|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Thema | VB6: Label click ohne Label_Click |
Von |
Ronan |
Datum |
12. Juni 2016 um 15:21:34 |
Frage |
Hallo,
ich hab ein Problem und zwar möchte ich mehrere Labels über die Tasten *Left* und *Right* auswählen und mit Enter(Return) anklicken. Das Problem dabei ist, ich habe das Click Event nicht. Ich mache das mit MouseDown über Button=1 oder Button=2. Dieses Beispiel habe ich gefunden: http://www.vbarchiv.net/tipps/tipp_223-maus-positionieren-und-klick-simulieren.html nur weiss ich nicht, was ich da angeben muss um das Label(0) Label(1) Label(0)...Label(X) anzugeklicken.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Label_xxxx End Sub Vielen Dank |
|
Antwort: |
Von |
Neptun |
Datum |
13. Juni 2016 um 23:42:47 |
Antwort |
Hallo Ronan, meinst du so: Controls: 1 * Label mit Index = 0Private Z1% Private Sub Form_Load() Dim i% Me.ScaleMode = vbPixels Me.KeyPreview = True For i = 0 To 7 If i > 0 Then Load Label1(i) With Label1(i) .Move 10 + 80 * i, 10, 60, 40 .BackColor = vbBlue .ForeColor = vbWhite .Caption = "Label " & CStr(i + 1) .Visible = True End With Next i Z1 = 0 Label1(0).BackColor = vbRed End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft If Z1 > 0 Then Label1(Z1).BackColor = vbBlue Z1 = Z1 - 1 Label1(Z1).BackColor = vbRed End If Case vbKeyRight If Z1 < Label1.UBound Then Label1(Z1).BackColor = vbBlue Z1 = Z1 + 1 Label1(Z1).BackColor = vbRed End If Case vbKeyReturn Call Label1_Click(Z1) Case vbKeyEscape Unload Me End Select End Sub Private Sub Label1_Click(Index As Integer) Label1(Index).Top = Label1(Index).Top + 4 End Sub Gruss,
Neptun |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|