VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVB6: 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 = 0
Private 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 ]
Antworten
VB6: Label click ohne Label_Click - Ronan 12. Juni 2016 um 15:21:34
Re: Label click ohne Label_Click - Neptun 13. Juni 2016 um 23:42:47
Re: Label click ohne Label_Click - Ronan 14. Juni 2016 um 19:53:53

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015