nadaserio

fvomaster respondió: En éste caso encontré el método utilizando una API, revísala por si acaso te sirviera.. Declaramos en el formulario : Const LB_FINDSTRING = &H18F Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg...

fvomaster respondió: Te presentaré mi solución con un ejemplo para que lo revises.. En un formulario añadimos un ListBox y declaramos : Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,...

fvomaster respondió: Para colocar la hora y la fecha en la barra de titulo de una MDI Form debes seguir cada uno de etsos pasos: 1) Coloca un objeto timer en el formulario MDI. El valor de la propiedad Interval del objeto timer debe ser 1000. Elimina el valor de la...

fvomaster respondió: El procedimiento IsLoadForm retorna un bolean que indica si el formulario solicitado por su nombre se encuentra abierto. Opcionalmente se puede hacer activo si se encuentra en memoria. La función es útil en interfaces MDI. Public Function...

fvomaster respondió: El Grid tiene una propiedad Columns que hace referencia a la columna en cuestión. La columna tiene otro objeto ValueItems que determina el aspecto de la columna. La propiedad Presentación de este objeto determina el modo de presentación. El valor 4...

fvomaster respondió: Lo que sucede es que las fechas en SQL se deben consultar con un comando llamado CDate, mira el siguiente ejemplo.. varfecha="10/12/2005" yo haria: "Select * from mytabla where fecha=#" & cdate(varfecha) &"#" Eso es todo, pruébalo y me avisas..

fvomaster respondió: Entiendo, para esos procesos largos donde quisieras tomar el tiempo, te sugiero que ocupes lo siguiente. Dim t As Single DoEvents t = Timer '// Proceso ... MsgBox "Elapse time = " & Format(Timer - t, "0.00") Pruébalo y hablamos.. Fvomaster

fvomaster respondió: Ok, veamos el siguiente código.. Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As...

fvomaster respondió: Revisa el siguiente código que encontré para que lo adaptes y pruebes.. Crear un formulario y escribir el siguiente código: Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted...