Zitat:

Ich sollte eine Möglichkeit haben gestzstellen, auf welcher Abhollinie (z.B. 1-14) ein Index liegt. So kann ich bein Click auf ein Label, die Informationen genau dieser Linie abrufen und auch anzeigen. Siehst Du dazu eine Möglichkeit?

  With Label1(n)
    .Tag = CStr(i) & "/" & CStr(j)

Private Sub Label1_Click(Index As Integer)
 
  Dim T$, LineNr%, AbholSt%
 
  T = Label1(Index).Tag
  LineNr = 1 + Val(T)
  AbholSt = Val(Mid$(T, 1 + InStr(1, T, "/")))
  MsgBox "Linie:" & Str$(LineNr) & vbCr _
    & "Abholstelle:" & Str$(AbholSt), vbInformation + vbOKOnly
 
End Sub

Zitat:

ich möchte auf jeder Abholzeile vor der 1. Abholstelle die Bezeichnung der Abhollinie (z.B. Linie Rathaus) ausgeben. Besteht dazu die Möglichkeit?

Zitat:

Kannst Du mir bitte noch mitteilen, wie (über welche Einstellungen) ich die Grösse der angezeigten Boxen verändern Kann?

  Dim Breite&, Hoehe&
  Breite = 30 ' Pixel
  Hoehe = 30 ' Pixel
 
  With Label1(n)
    ' ...
    .Move xp, yp - Hoehe / 2, Breite, Hoehe

Gruss,

Zardoz

Beitrag wurde zuletzt am 03.12.19 um 14:38:27 editiert.