Visual Basic 6 - Far scorrere una barra di scorrimento se un oggetto arriva al limite della form

Forum - Visual Basic 6 - Far scorrere una barra di scorrimento se un oggetto arriva al limite della form

Pagine: [ 1 2 3 4 ]

alceus (Normal User)
Pro

Messaggi: 61
Iscritto: 11/06/2008

Postato alle 15:45
Lunedì, 23/06/2008

Ciao, ho un problema:
in una form ho un oggetto che, attraverso i tasti della tastiera, faccio muovere sulla form. Volendo piazzare nella form una barra di scorrimento, come faccio a farla scorrere quando l'oggetto raggiunge il margine (ad esempio inferiore) della form, in modo da poterlo ancora vedere?
Spero di essere stato chiaro
Grazie

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:30
Lunedì, 23/06/2008

una soluzione è quella di mettere in una picturebox (molto vasta)tt gli altri oggetti, e poi muovi la picturebox sul form, e muovendo la picturebox si muovono di conseguenza anche gli oggetti al suo interno

alceus (Normal User)
Pro

Messaggi: 61
Iscritto: 11/06/2008

Postato alle 17:47
Lunedì, 23/06/2008

Mi dispiace, ma con la picture box non funziona proprio:addirittura la stessa picture box non si muove...

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:49
Lunedì, 23/06/2008

passail codice e vediamo cosa nn va

alceus (Normal User)
Pro

Messaggi: 61
Iscritto: 11/06/2008

Postato alle 17:53
Lunedì, 23/06/2008

Codice sorgente - presumibilmente VB.NET

Option Explicit
Dim k As Integer ' Proprietà Top della Picture1
Dim j As Integer ' Proprietà Left della Picture1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
k = Picture1.Top
j = Picture1.Left
If KeyCode = vbKeyUp Then
Picture1.Top = k - 3000
End If
If KeyCode = vbKeyDown Then
Picture1.Top = k + 3000
End If
If KeyCode = vbKeyLeft Then
Picture1.Left = j - 3000
End If
If KeyCode = vbKeyRight Then
Picture1.Left = j + 3000
End If
End Sub

alceus (Normal User)
Pro

Messaggi: 61
Iscritto: 11/06/2008

Postato alle 17:55
Lunedì, 23/06/2008

ho impostato 3000 come distanza, ma è un numero indicativo, se ne può mettere anche un altro...

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:04
Lunedì, 23/06/2008

nn va perchè fai eseguire il codice quando si verifica l' evento keydown del form

invece devi spostare la picturebox quando l' oggetto che devi muovere scende sotto il livello dela form

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:11
Lunedì, 23/06/2008

del tipo

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
    If txt.Top + txt.Height >= Picture1.Height Then
        Picture1.Top = Picture1.Top + 300
    Else
        txt.Top = txt.Top + 300
    End If
End Sub

alceus (Normal User)
Pro

Messaggi: 61
Iscritto: 11/06/2008

Postato alle 18:33
Lunedì, 23/06/2008

Il problema, purtroppo, è un altro: l'evento keydown va bene, è la picturebox che non si può muovere nella form. Se provi a sostituire la picture box con un oggetto shape, quest'ultimo si muove...

Pagine: [ 1 2 3 4 ]