Biblioteca de código

[ranefi]

Índice

Página 1
Código para permitir sólo minúsculas en un TextBox
Sólo permitir números en un cuadro de texto
Seleccionar todo el contenido de un TextBox
Ejecutar el código de un CommandButton al ingresar 7 caracteres a un TextBox
Preguntar antes de salir
Cerrar un formulario con ENTER o ESCAPE
Habilitar o deshabilitar un botón dependiendo del contenido de un TextBox
Manipular DriveListBox, DirListBox, FileListBox
Conocer el código ASCII asignado a cada tecla
Abrir el contenido del CD-ROM
Saber si la aplicación ya está en memoria
Abrir una dirección de Internet con el Explorador de Internet
Agregar una cadena al registro de Inicio de Windows
Abrir una hoja de calculo de Microsoft Excel

Página 2
Abrir, Guardar y Cerrar una hoja de calculo de Microsoft Excel
Crear hoja de calculo de Microsoft Excel, Introducir datos, Guardar Como y Cerrar
Sonidos estilo QBasic
Crear un archivo aleatorio (texto) e introducir el contenido de un TextBox dentro de dicho archivo
Modificar el formato de Time y Date
Agregar sonido Wav a un evento
Verificar la existencia de un archivo
Abrir y Cerrar unidad de CD
Obtener la ruta de la carpeta de Windows
Obtener la ruta de la carpeta System32
Obtener el nombre de la computadora
Destruir ventana
Hacer que parpadee una ventana
Bloquear Ratón y Teclado durante 10 segundos
Ventana siempre visible

Página 3
Barra de Progreso en el reloj de la barra de tareas
Cerrar el Explorador de Internet
InputBox que sólo admita números
Mostrar y Ocultar cursor del ratón
Cambiar el papel tápiz del escritorio de Windows
Eliminar documentos recientes
Conocer unidad del disco duro local
Establecer una conexión con Oracle con ADO
Vaciar la papelera de reciclaje
Crear una conexión a una base de datos de Access 2000 en tiempo de ejecución (conexión con ADO)
Botones de desplazamiento (continuación de conexión con ADO)
Botones para edición de registros (continuación de conexión con ADO)
Texto en 3D
Texto en 3D (mejorado)
Ejecutar código en determinada fecha

Página 4
Buscar palabras en un TextBox
Ejecutar código en una determinada fecha (mejorado)
Saber cuándo un número es Par o Impar
Barra de progreso sin control ProgressBar
Cambiar el nombre de la PC
Restringir la lectura de archivos a otro usuario
Establecer una combinación de teclas a un formulario
Extraer iconos de archivos y dibujarlos en un PictureBox
Conocer los tamaños de papel soportados por la impresora
Registrar/Desregistrar Controles (OCX) y/o Librerías (DLLs)
Descargar un archivo de Internet
Inicio animado de formulario
Crear formularios y moverlos de forma aleatoria
Abrir un documento de Word previamente guardado
Matar un proceso

Página 5
Utilizar el control CommonDialog con colores (propiedad ShowColor)
Cambiar el formato de una fuente con el control CommonDialog (propiedad ShowFont)
Crear-eliminar carpetas y copiar-eliminar archivos
Ocultar y Mostrar la barra de tareas
Formulario que se autocopia y desplaza en forma aleatoria
Abrir el contenido de un fichero txt con el bloc de notas
Interactuar con ventana consola y formularios
Crear un control Label en tiempo de ejecución
Ejecutar secuencias de teclas en formulario para minimizarlo (CTRL + M)
Mantener como formulario hijo una aplicación externa y como padre nuestro formulario (ejemplo con el bloc de notas)
Conocer tu IP real
Código para permitir sólo mayúsculas en un TextBox
Cerrar el Administrador de tareas de Windows (Task Manager)
Bloquear la bandeja del CD
Descargar un archivo de Internet SIN preguntar

Página 6
Mostrar palabra que se encuentra debajo del cursor
Formulario con cara sonriente
Formulario que explota e implota (animación de inicio)
Uso de la función Left
Uso de la función Right
Uso de la función Replace
Uso de la función strReverse
Uso de la función Len
Encontrar y cerrar ventana
Enviar archivos por FTP con Scripts y Batch
Abrir Panel de Control
Manipular la tecla WIN minimizando todas las ventanas (WIN + M)
Abrir menú Inicio (CTRL + ESC)
Manipular la tecla Mayúsculas (Bloq Mayús)
Obtener nombre corto de carpetas

Página 7
Uso de SaveSetting y GetSetting
Obtener la clave de Windows XP
Almacenar código de Visual Basic en una variable
Esperar finalización de un proceso
Esperar finalización de un proceso 2
Enganchando al teclado (Hook de teclado)
Uso del control TreeView
Gráficos en 3D con MSChart
Cálcula tamaño de bytes
Ejecutar secuencias de teclas en formulario para minimizarlo (CTRL + R)
Crear Servicios en Windows
Buscar en un ListBox
Buscar en un ComboBox
Buscar y quitar carácteres en un archivo
Control SSTab con fondo

Página 8
Pegar texto de Visual Basic a la consola de MS-DOS
Saber de qué modo se está cerrando nuestra aplicación
Crear base de datos con una tabla y campos

[ranefi]

Código para permitir sólo minúsculas en un TextBox

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
            Dim CadenaTemporal as String

            CadenaTemporal = Chr(KeyAscii)
            KeyAscii = Asc(LCase(CadenaTemporal))
End Sub

Sólo copien eso peladetes y bueno, como es obvio, también agreguen un TextBox llamado Text1. Nos vemos.

[ranefi]

Sólo permitir números en un cuadro de texto

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
                 If Not IsNumeric(Chr(KeyAscii)) = True Then
                                               KeyAscii = 0
                 End If
End Sub

Eso es todo. Nos vemos.

[ranefi]

Seleccionar todo el contenido de un TextBox

'AGREGAR UN TEXTBOX LLAMADO Text1

Código:

Private Sub Text1_GotFocus()
            With Text1
                        .SelStart = 0
                        .SelLength = Len(.Text)
            End With
End Sub

Esto permitirá seleccionar todo el contenido de un TextBox al momento de "Pasarle el foco". Nos vemos peladetes.

[ranefi]

Ejecutar el código de un CommandButton al ingresar 7 caracteres a un TextBox

'AGREGAR UN TEXTBOX Y UN COMMANDBUTTON

Código:

Private Sub Text1_KeyPress(Keyascii As Integer)
                        If Len(Text1.Text) = 7 Then
                                    Command1_Click
                        End If
End Sub

Private Sub Command1_Click()
                       MsgBox "Hola mundo, te va a comer ranefi", VbInformation, "ranefilandia"
End Sub

Nos vemos.

[ranefi]

Preguntar antes de salir

Agregar un CommandButton con el nombre Command1

Código:

Private Sub Command1_Click()
            Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
            Dim Salir As String
           
            Salir = MsgBox("    ¿Deseas salir?", _
                        vbQuestion + vbYesNo + vbDefaultButton2, "Salida")
                       
            If Salir <> 6 Then Cancel = True
End Sub

Es muy simple. Nos vemos.

[ranefi]

Cerrar un formulario con ENTER o ESCAPE

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
            If KeyAscii = 27 Then Unload Me
           
            If KeyAscii = 13 Then Unload Me
End Sub

Obviamente, éste código se colocará en procedimiento KeyPress del control en el que se desee dicho efecto, ejemplo: Text1_KeyPress(KeyAscii As Integer)

Nos vemos.

[ranefi]

Habilitar o deshabilitar un botón dependiendo del contenido de un TextBox

Agregar un TextBox y un CommandButton

Código:

Private Sub Text1_Change()
            If Text1.Text = Empty Then
                        Command1.Enabled = False
            Else
                        Command1.Enabled = True
            End If
End Sub

Nos vemos.

[ranefi]

Manipular DriveListBox, DirListBox, FileListBox

Agregar un DriveListBox, un DirListBox y un FileListBox

Código:

Private Sub Drive1_Change()
On Error GoTo ups
            Dir1.path = Drive1.Drive
            Exit Sub
ups:
            MsgBox "La unidad no está lista", vbInformation, "Intente una vez más"
End Sub

Private Sub Dir1_Change()
On Error GoTo ups
            File1.path = Dir1.path
            Exit Sub
ups:
            MsgBox Err.Description
End Sub

Private Sub File1_Click()
            Me.Caption = File1.FileName
End Sub

Nos vemos.

[ranefi]

Conocer el código ASCII asignado a cada tecla

Agregar una etiqueta (label1)

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
                        Label1.Caption = "El código ASCII de la tecla presionada es: " & KeyAscii
End Sub

Al presionar un tecla, el código ascii asignado a esa tecla se imprimirá en la etiqueta (label1).

Código proporcionado por Universal SAC

Nota: Más adelante quizá no ponga quién mandó el código, para enfocarnos más en la creación de la biblioteca. Gracias Universal SAC.

[ranefi]

Abrir el contenido del CD-ROM

Agregar un CommandButton con el nombre Command1

Código:

Private Sub Command1_Click()
            Dim RutaCD As String
            RutaCD = App.Path
            Shell "Explorer " + RutaCD, 1
End Sub

Obviamente, esto sirve para abrir la carpeta en que se encuentra nuestra aplicación, pero si compilan el código y agregan la aplicación al CD, notarán que muestra el contenido del CD.

[ranefi]

Saber si la aplicación ya está en memoria

Código:

Private Sub Form_Load()
            If App.PrevInstance = True Then
                        MsgBox "La aplicación ya está en memoria", _
                                    vbInformation, "ranefi rules"
                       
                        End
            End If
End Sub

Ahora simplemente compila el código fuente y ejecuta la aplicación después, sin cerrar la aplicación, ejecutas nuevamente la aplicación. Nos vemos.

[ranefi]

Abrir una dirección de Internet con el Explorador de Internet

Agregar un CommandButton, aunque también se puede agregar un Label e introducir el siguiente código en el procedimiento Click

Código:

Private Sub Command1_Click()
            Dim MiSuperPaginilla As String
           
            MiSuperPaginilla = "http://ranefi.mx.gs"
           
            Shell "Explorer " & MiSuperPaginilla
End Sub

Nos vemos cochinotes.

[ranefi]

Agregar una cadena al registro de Inicio de Windows

Código:

Private Sub Command1_Click()
            Dim RegistroCochino As Object
            Dim RutaCochina As String
            Dim CadenaNueva As String
            Dim ContenidoCadena As String
           
            ContenidoCadena = "http://ranefi.mx.gs"
            CadenaNueva = "\ranefi"
            RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
                        "\CurrentVersion\Run" & CadenaNueva
           
            Set RegistroCochino = CreateObject("WScript.Shell")
           
            RegistroCochino.RegWrite RutaCochina, ContenidoCadena
End Sub

También se puede agregar en el procedimiento Load del formulario. Nos vemos.

[ranefi]

Abrir una hoja de calculo de Microsoft Excel

Agregar un CommandButton

Código:

Private Sub Command1_Click()
            Dim appExcel As Object
            Dim ArchivoApestoso As String
           
            ArchivoApestoso = App.Path & "\Apestoso.xls"
            Set appExcel = CreateObject("Excel.Application")
           
            appExcel.Visible = True
            appExcel.WorkBooks.Open FileName:=ArchivoApestoso
           
            With appExcel.ActiveSheet
                        .Range("A1").Formula = "Hola mundo"
                        .Range("B2").Formula = "Te saluda"
                        .Range("C3").Formula = "ranefi"
                        .Range("D4").Formula = "Muerete de miedo, que voy por ti"
            End With
End Sub

Con esto supongo que habrás creado una hoja de calculo llamada Apestoso.xls y que se encontrará en la misma ruta que la aplicación. Esto es muy útil, nos vemos.