Hacer Drag & Drop en un formulario

Trucos VBA

En un formulario (Form), añadimos un control PictureBox (Picture1) con una imagen cualquiera, y escribimos el siguiente código: 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,…

leer más

Crear un acceso directo en el menú inicio de windows

Trucos VBA

Para crear un acceso directo en el menú inicio de windows: Private Declare Function fCreateShellLink Lib «STKIT432.DLL» (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Private Sub Form_Load() iLong = fCreateShellLink(«», «Notepad++», «C:\Archivos de Programa\notepad++\notepad++.exe», «») End Sub

leer más

Calcular la etiqueta de un disco duro

Trucos VBA

Para calcular la etiqueta de un disco duro en VBA Private Declare Function GetVolumeInformation& Lib «kernel32» Alias «GetVolumeInformationA» (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub Form_Load()…

leer más

Menú de la ventana

Trucos VBA

Para añadir nuevas opciones al Menú de la ventana: Abrimos un proyecto nuevo, y hacemos doble clic sobre el formulario. Mediante el gestor de menús escribimos lo siguiente: Caption -> Editor Name -> MnuEditor Pulse Insertar y el botón «->» Caption -> Añadir Name -> MnuAñadir Pulse Insertar Caption ->…

leer más