TRUCO 1: ¿Cómo llevar el cursor al centro de un objeto?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Utilice la siguiente subrutina para posicionar el puntero del ratón en el centro de un objeto:
Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long,_
ByVal y As Long)
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long,_
lRect As Rect)
Private Type Rect
left As Long
tpo As Long
right As Long
bottom As Long
End Type
Public Sub SetMouseFocus (ByVal Obj As Object)
Dim Rect As Rect
GetWindowRect Obj.hwnd, Rect
SetCursorPos Rect.right - ((Rect.left) / 2),_
Rect.bottom - ((Rect.bottom - Rect.top) / 2)
End Sub
TRUCO 2: ¿Cómo juntar los contenidos de dos archivos?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
El comando copy de DOS permite coger los contenidos de dos ficheros y ponerlos secuencialmente en un tercero. En Visula basic se puede hacer lo mismo utilizando con la siguiente rutina:
Public Function Sub Join Files (Source1 as String,_
Source2 as String, Dest as Sting)
Dim Buffer() as Byte
Open Source1 for Binary Access Read as #1
Open Source2 for Binary Access Read as #2
Open Dest for Binary Access Write as #3
ReDim Buffer(1 To LOF(1))
Get #1, ,Buffer
Get #3, ,Buffer
ReDim Buffer(1 To LOF(2))
Get #2, ,Buffer
Get #3, ,Buffer
Close #1, #2, #3
End Sub.
TRUCO 3: ¿Cómo pedir confirmación de descarga de un formulario?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Quizás a veces desee dar a los usuarios la opción de confirmar que desean descargar un formulario. En vez de utilizar una función MsgBox y un Select Case, puede incluir este código en el evento Form_Unload.
Private Sub Form_Unload (Cancelar as Integer)
Cancelar = (MsgBox ("¿Salir?", vbOKCancel Or _
vbQuestion, "Demo Confirmacion") = vbCancel)
End Sub
Detrás del botón Salir y de la opción Salir del menú, ponga simplemente Unload Me. Cada vez que un usuario quiera salir se les pedirá confirmación
TRUCO 4: ¿Cómo comprobar rápidamente si un Recorset es vacío?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Utilice esta rutina para comprobar rápidamente si un Recorset es vacío:
Public Function IsEmptyRecordset (rs As RecordSet) As Boolean
IsEmptyRecorSet=((rs.BOF=True) And (rs.Eof=True))
End Function
TRUCO 5: ¿Cómo hacer una comprobación rápida al salir de un formulario?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Al salir de un formulario es conveniente preguntar al usuario si desea salir del mismo, para ello podemos usar el evento Unload del formulario. Ello implica el tener que usar un MsgBox
y una sentencia Case para comprobar el valor que ha devuelto el usuario. Es posible hacer
todo esto en una sola instrucción, para ello tenemos que comprobar el valor que devuelve MsgBox directamente con vbCancel de esta forma:
Private Sub Form_Unload(Cancel as Integer)
Cancel = (MsgBox("¿Desea salir ahora?", vbOKCancel Or vbQuestion, " Confirmación rápida") = vbCancel)
End Sub
Microsoft explorer 6.0 