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
Hi Rainer,
Ich konnte alle Probleme lösen …Es bedarf nur an etwas mehr Zeit 
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
Hi Joe,
Ich konnte alle Probleme lösen …Es bedarf nur an etwas mehr
Zeit
na also, geht doch … 
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
Hi Rainer,
das ist meine Letzte frage zu diesem Thema!!
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
das ist meine Letzte frage zu diesem Thema!!
Hallo Rainer,
ich erhöhe auf 2 3 46 )
Lieben Gruß
Reinhard
MOrgen Schoin,
das richt nach einem Insider … ? egal ich biete 3058. was auch immer das heissen mag
erfolgreichen arbeitstag … mfg Joe
Hi Joe,
das ist meine Letzte frage zu diesem Thema!!
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
Hi Joe,
das richt nach einem Insider … ?
Ja, und Du hast einen Teil davon gelesen.
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.
Gruß, Rainer
Nabend Ihr 2
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
macht so weiter mfg jonny