Einfach oder nicht ?

Computer: Software & Programmierung Visual Basic
#41

Hi Joe,

Beim Laden bekomme ich den fehler:
Control Array 16 doesnt exist. hmpf
Link1(i).Text = Textvomtextfeld(i)

und, existiert es? Was ist Link1()?

Private Sub Form\_Load()
ReDim Dest(Pic.LBound To Pic.UBound)
ReDim Kommentar(Pic.LBound To Pic.UBound)
ReDim Textvomtextfeld(Pic.LBound To Pic.UBound)
End Sub

Private Sub Laden\_Click()
ff = FreeFile
pfd = App.Path
If Right(pfd, 1) "\" Then pfd = pfd & "\"
 Ppfad = pfd & "Link.cfg"
 Picopen = pfd & "open.bmp"
 Picclose = pfd & "close.bmp"

Open Ppfad For Input As #ff
 For i = Pic.LBound To Pic.UBound
 Input #ff, Dest(i)
 Input #ff, Kommentar(i)
 Input #ff, Textvomtextfeld(i)
 Link1(i).Text = Textvomtextfeld(i)
 Next
Close #ff

End Sub

ähhmmmm, gibt das nicht immer Probleme, direkt in ein Array zu laden?

Open Ppfad For Input As #ff
 For i = Pic.LBound To Pic.UBound
 input #ff, Wert
 Dest(i)= Wert
 Input #ff, Wert
 Kommentar(i)= Wert
 Input #ff, Wert
 Textvomtextfeld(i) = Wert
 Link1(i).Text = Textvomtextfeld(i)
 Next
Close #ff

Ich glaube, so würde da bei mir aussehen.

Gruß, Rainer

#42

Hi Rainer,
Ich konnte alle Probleme lösen …Es bedarf nur an etwas mehr Zeit :stuck_out_tongue:

Naja eine Frage hätte ich da noch.
wenn ich nun verschiedene Files/configurationen lade bleiben die Linien aus der davor geladenen Konfiguration auf dem Form.
ein Form1.Refresh löscht leider auch die aktuellen.
Kann ich die Linien vor dem laden irgendwie enfernen ?

mfg jonny

(Ps. habe leider keine Ahnung vom Excel / nicht viel zeit :///

mfg jonny

#43

Hi Joe,

Ich konnte alle Probleme lösen …Es bedarf nur an etwas mehr
Zeit :stuck_out_tongue:

na also, geht doch … :smile:

Naja eine Frage hätte ich da noch.
wenn ich nun verschiedene Files/configurationen lade bleiben
die Linien aus der davor geladenen Konfiguration auf dem Form.

Ja, die sind ja Bestandteil des Bildes (Image).

ein Form1.Refresh löscht leider auch die aktuellen.

Nur wenn Du die erst malst und dann die Form löschst. Aber warum solltest Du das tun? Übrigens … hast Du die Form auf Autoredraw = True? Falls nein, minimiere mal die Form und mach sie wieder auf, dann sind alle Linien weg. Mit Me.Autoredraw = True nicht.

Kann ich die Linien vor dem laden irgendwie enfernen ?

Ja, mit der Hintergrundfarbe ‚übermalen‘. Das hat den selben Effekt, wie Me.CLS.

Gruß, Rainer

#44

Hi Rainer,
das ist meine Letzte frage zu diesem Thema!! :stuck_out_tongue:

Ich möchte kommentar(i) ausgeben lassen.
Nur habe ich das Problem das Jeder Inhalt 2x auftaucht.
Also zb in Kommentar(10) und Kommentar(20) steht das gleiche. Ich möchte aber nur eines von dem beiden in der Liste angezeigt bekommen.
wie löse ich das ?
mfg joe

Private Sub Command1\_Click()
Dim I As Integer
For I = Pic.LBound To Pic.UBound
 If Kommentar(I) = "" Or Kommentar(I) = " " Then
 Else
 List2.AddItem Kommentar(I)
 End If
Next
End Sub
#45

das ist meine Letzte frage zu diesem Thema!! :stuck_out_tongue:

Hallo Rainer,
ich erhöhe auf 2 3 46 :smile:)
Lieben Gruß
Reinhard

#46

MOrgen Schoin,
das richt nach einem Insider … ? egal ich biete 3058. was auch immer das heissen mag :stuck_out_tongue:

erfolgreichen arbeitstag … mfg Joe

#47

Hi Joe,

das ist meine Letzte frage zu diesem Thema!! :stuck_out_tongue:

Ich möchte kommentar(i) ausgeben lassen.
Nur habe ich das Problem das Jeder Inhalt 2x auftaucht.
Also zb in Kommentar(10) und Kommentar(20) steht das gleiche.
Ich möchte aber nur eines von dem beiden in der Liste
angezeigt bekommen.
wie löse ich das ?

hmmm, dann steht der Kommentar aber auch für künftige Ausgaben nur ein mal zur Verfügung. Je nachdem, wie Du den Text ausgibst, kann es dann passieren, daß er Kopf steht.

Wenn Du das so möchtest, dann trage den Text doch gleich nur ein mal ein. Du siehst die Stelle im Code?

Private Sub Pic\_Click(Index As Integer)
 Dim w As Long
 If Dest(Index) 0 Then
 Kommentar(Dest(Index)) = ""
 Kommentar(Index) = ""
 Pic(Index).BackColor = Me.BackColor
 Pic(Dest(Index)).BackColor = Me.BackColor
 Dest(Dest(Index)) = 0
 Dest(Index) = 0
 End If

 If Src = 0 Then
 Src = Index
 Pic(Index).BackColor = vbRed
 Else

 Dest(Index) = Src
 Dest(Src) = Index
 Kommentar(Dest(Index)) = InputBox("Kommentar eingeben", "Kommentar")
**Kommentar(Index) = Kommentar(Dest(Index))**
 anzeigen
 Pic(Src).BackColor = vbWhite
 Pic(Dest(Src)).BackColor = vbWhite
 Src = 0
 End If
End Sub

Lass einfach die fett markierte Zeile weg, das ist der Eintrag, den Du mit Deinem Code löschen willst.

Gruß, Rainer

#48

Hi Joe,

das richt nach einem Insider … ?

Ja, und Du hast einen Teil davon gelesen. :smile:
Reinhard hatte die Prognose aufgestellt, daß Du uns hier bis 2043 erhalten bleibst. Das ging auf meine Ankündigung zurück, daß meine Vorfahren alle etwa 75 geworden sind, ich das Brett also 2030 wohl nicht mehr moderiere, weil ich so alt nicht werde. :smile:

Gruß, Rainer

#49

Nabend Ihr 2 :stuck_out_tongue:

Rechne rechne. 2043.
Da bin ich so ca.60 = Hardcoregamer im Altersheim. Licht aus und zoggn bis der notarzt kommt. Aber bis dahin werde ich meine Zeit noch „sinnvoll“ gestalten. Zbsp. In diesem TOP Forum. Achtung kurze schleimatacke. Ich bin vor ca einem JAhr auf dieses Forum aufmerksam geworden und seitdem „süchtig“ TOp Leute mit einem TOP skill. und ich hoffe das ich ab 2008, sogut in VB bin um hier auch etwas von dem erlesenen wissen zurückgeben zu dürfen.
Ich werde meinen sohn (1,5 Jahre) in dieses Forum einarbeiten sodas ich nun eine 2080 bieten kann :stuck_out_tongue:

macht so weiter mfg jonny