Ciao!
Ho un problema e spero che possiate darmi un suggerimento, sto facendo un programma in cui devo gestire degli eventi da tastiera, clikko sul tasto + e di conseguenza l'immagine che ho visualizzato in una imageEdit si deve spostare di un terzo in avanti e deve comparire anche una picturebox contenente dei dati. Il contrario deve avvenire se clikko sul tasto -.
Il problema è che l'evento viene richiamato più volte quindi non riesco a gestirlo come vorrei, posto il codice:
Select Case KeyCode
Case vbKeyAdd
'Scorre la pagina in avanti e si posiziona sul tipo di dati da inserire
yPos = Img.ImageHeight / 8
If clickAdd = 0 And pctDatiRich.Visible Then
Img.ScrollPositionY = yPos
clickAdd = 1
pctDatiAlunno.Visible = True
pctDatiRich.Visible = False
ElseIf clickAdd = 1 And pctDatiAlunno.Visible Then
Img.ScrollPositionY = yPos * 3
pctDatiAlunno.Visible = False
pctDatiScuola.Visible = True
clickAdd = clickAdd + 1
End If
Case vbKeySubtract
'Scorre la pagina indietro e si posiziona sul tipo di dati da inserire
'Dim yPos As Long
yPos = Img.ImageHeight / 8
If clickAdd = 1 Then
Img.ScrollPositionY = 0
clickAdd = clickAdd - 1
pctDatiAlunno.Visible = False
pctDatiRich.Visible = True
ElseIf clickAdd > 1 Then
Img.ScrollPositionY = yPos
pctDatiAlunno.Visible = True
pctDatiScuola.Visible = False
clickAdd = 1
End If
Grazie!!!
Rispondi quotando