Visual Basic 6.0
Visual Basic 6.0
03.11.2010 19:22
Visual Basic 6 es uno de los lenguajes de referencia de Microsft (el primero fue Basic) Esta es la versión anterior del Visual Basic.NET. Actualmente se sigue utilizando en muchos programas o universidades. Fue un lenguaje muy importante en la programación visual
Apagar, reiniciar el ordenador
03.11.2010 19:28
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apagar
End Sub
Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reiniciar el Sistema
End ...
Eliminar un proceso
03.11.2010 19:28
Con este truco podrás eliminar un proceso que corre en la memoria. Para implementarlo basta con copiar el código fuente en un modulo de Visual Basic 6.0 y realizar la llamada con la función:
KillProcess(“nombreProceso”). Si existe mas de un proceso con el mismo nombre eliminará todos...
Conversiones numéricas de Decimal a nbase y viceversa.
03.11.2010 19:27
Conversiones numéricas de Decimal a nbase y viceversa.
Const NumChars = "0123456789ABCDEF"
Rem Transforma un número en decimal
Rem S = Número (cualquier base)
Rem NumBase = Número de la Base
Rem 2=Binario, 8=Octal, 10=Decimal, 16=Hexadecimal
Rem Si hay un error, retorna -1.
Function...
Limpiar todas las cajas de texto de un formulario
03.11.2010 19:27
Podemos limpiar, o inicializar todos los campos de un formulario de visual basic 6.0 rápidamente.
Public Sub Limpiar(frmForm As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1
DoEvents
Next...
Saber cómo ha arrancado Windows.
03.11.2010 19:26
Con esta Función podemos saber como ha arrancado Windows (si ha arrancado a prueba de fallos, a prueba de fallos con red, o en modo normal)
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
Select Case...
Validar un número de tarjeta de crédito (ISO 2894)
03.11.2010 19:26
En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894. Este algoritmo permite comprobar que la numeración de la tarjeta es correcta, pero obviamente no indica si la tarjeta sigue siendo...
5 funciones de fechas
03.11.2010 19:25
Gracias a este truco de visual basic 6.0 podrás:
Saber la cantidad de días de un año determinado
Calcular la cantidad de días de un mes específico
Averiguar si un día corresponde a un fin de semana
Averiguar el último día de un Mes determinado
Averiguar el último día de una semana...
Seleccionar texto en textbox
03.11.2010 19:24
Con esta función seleccionaremos todo el texto de un textbox.
Public Sub TextSelected()
Dim i As Integer
Dim oMyTextBox As Object
Set oMyTextBox = Screen.ActiveControl
If TypeName(oMyTextBox) = "TextBox" Then
i = Len(oMyTextBox.Text)
oMyTextBox.SelStart = 0
oMyTextBox.SelLength = i
End...
Mostrar la página de propiedades de una impresora
03.11.2010 19:24
er las propiedades de página de una impresora
Declaramos en un módulo :
Type PRINTER_DEFAULTS
pDatatype As Long
pDevMode As Long
DesiredAccess As Long
End Type
Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long
Declare...
Fuentes del sistema en un combo
03.11.2010 19:23
Si necesitamos rellenar un combo con los nombres de los tipos de letra presentes en el sistema (fuentes)podemos hacer :
Suponiendo que el combo que quieres llenar se llama combo1 y está en el form1 :
En un módulo :
Public Const LF_FACESIZE = 32
Type LOGFONT
lfHeight As Long
lfWidth As...