El Codigo para cada control es como se muestra
Private Sub Dir1_Change()
On Error Resume Next
' -- Cada vez que cambiamos de directorio, le indicamos al
' -- control FileListBox que muestre los archivos de ese directorio
File1.Path = Dir1.Path
End Sub
La siguiente parte de codigo se coloca dentro del file1 tal como se muestra
Private Sub File1_Click()
On Error GoTo error_handler
' -- Mostramos en la barra de título del formulario el nombre del
' -- archivo seleccionado en el control File1
Me.Caption = "Archivo Actual: " & File1.FileName
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
' -- Rutina de error en caso de que no se pueda cargar la imagen en el Image
Exit Sub
error_handler:
MsgBox Err.Description, vbCritical
End Sub
Esta otra parte va dentro del formulario en el evento form load
Private Sub Form_Load()
' -- Para indicarle al control File que liste y filtre solo Bmp
File1.Pattern = "*.JPG;*.BMP"
' -- Para reajustar la imagen en el control image "*.bmp;*.jpg
Image1.Stretch = True
End Sub
La siguiente parte del codigo la colocan dentro del drive1
Private Sub Drive1_Change()
On Error GoTo error_handler
' -- Cada vez que cambiamos de unidad, indicamos al control
' -- Dir Que muestre los directorios de esa unidad
Dir1.Path = Drive1.Drive
' -- Rutina de error en caso de que se seleccione una unidad no disponible
' -- O que se produzca cualquier otro tipo de error
Exit Sub
error_handler:
MsgBox Err.Description, vbCritical
End Sub
Codigo apra Drag en Drop de un control
Para realizar este ejemplo solo es necesario colocar un picture sobre el formulario.
he aqui el codigo
Private DragX As Integer
Private DragY As Integer
Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move (X - DragX), (Y - DragY)
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Si el boton del raton es el derecho, no hacemos nada
If Button = 2 Then Exit Sub
Picture1.Drag 1
DragX = X
DragY = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 2
End Sub
