| Usuario |
por qué desaparece el control?? |
Desconocido
|
| Enviado - 25/8/2004 |
| |
hola: prueben este código en un picture o cualquier control:
por qué despues de arrastrar y soltar el control picture simplemente desaparece??.. que hice mal :(
Option Explicit
Dim dy As Single
Dim dx As Single
Private Sub Cancelar_Drag(source As Control)
source.Visible = True
source.Drag vbCancel
End Sub
Private Sub Finalizar_drag(source As Control, button As Integer)
If button = vbLeftButton Then
source.Visible = True
source.ZOrder
source.Drag vbEndDrag
End If
End Sub
Private Sub Iniciar_drag(source As Control, button As Integer, x As Single, y As Single)
If button = vbLeftButton Then
dx = x
dy = y
source.Drag vbBeginDrag
source.Visible = False
source.Drag
End If
End Sub
Private Sub Dragdrop(source As Control, x As Single, y As Single)
source.Visible = True
source.Move x - dx - 60, y - dx - 60
source.Drag.vbEndDrag
source.ZOrder
End Sub
Private Sub Picture1_dragdrop(source As Control, x As Single, y As Single)
cancelardrag source
End Sub
Private Sub Picture1_mousedown(button As Integer, shift As Integer, x As Single, y As Single)
Iniciar_drag Picture1, button, x, y
End Sub
Private Sub picture1_mouseup(button As Integer, shift As Integer, x As Single, y As Single)
Finalizar_drag Picture1, button
End Sub
:( |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 26/8/2004 |
| |
Tenés que cambiar Private Sub Dragdrop por Private Sub Form_Dragdrop, ya que éste es el nombre del proc de evento.
Además tenés un error en donde dice cancelardrag source, debe ser cancelar_drag source, y otro error en source.Drag.vbEndDrag, debe ser source.Drag vbEndDrag
Saludos |
| |
|
|
|
