Biblioteca de código

[ranefi]

Índice

Página 1

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

Seleccionar todo el contenido de un TextBox

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

Preguntar antes de salir

Para ver este enlace Registrate o Inicia Sesion

Cerrar un formulario con ENTER o ESCAPE

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

Manipular DriveListBox, DirListBox, FileListBox

Para ver este enlace Registrate o Inicia Sesion

Conocer el código ASCII asignado a cada tecla

Para ver este enlace Registrate o Inicia Sesion

Abrir el contenido del CD-ROM

Para ver este enlace Registrate o Inicia Sesion

Saber si la aplicación ya está en memoria

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

Agregar una cadena al registro de Inicio de Windows

Para ver este enlace Registrate o Inicia Sesion

Abrir una hoja de calculo de Microsoft Excel

Página 2

Para ver este enlace Registrate o Inicia Sesion

Abrir, Guardar y Cerrar una hoja de calculo de Microsoft Excel

Para ver este enlace Registrate o Inicia Sesion

Crear hoja de calculo de Microsoft Excel, Introducir datos, Guardar Como y Cerrar

Para ver este enlace Registrate o Inicia Sesion

Sonidos estilo QBasic

Para ver este enlace Registrate o Inicia Sesion

Crear un archivo aleatorio (texto) e introducir el contenido de un TextBox dentro de dicho archivo

Para ver este enlace Registrate o Inicia Sesion

Modificar el formato de Time y Date

Para ver este enlace Registrate o Inicia Sesion

Agregar sonido Wav a un evento

Para ver este enlace Registrate o Inicia Sesion

Verificar la existencia de un archivo

Para ver este enlace Registrate o Inicia Sesion

Abrir y Cerrar unidad de CD

Para ver este enlace Registrate o Inicia Sesion

Obtener la ruta de la carpeta de Windows

Para ver este enlace Registrate o Inicia Sesion

Obtener la ruta de la carpeta System32

Para ver este enlace Registrate o Inicia Sesion

Obtener el nombre de la computadora

Para ver este enlace Registrate o Inicia Sesion

Destruir ventana

Para ver este enlace Registrate o Inicia Sesion

Hacer que parpadee una ventana

Para ver este enlace Registrate o Inicia Sesion

Bloquear Ratón y Teclado durante 10 segundos

Para ver este enlace Registrate o Inicia Sesion

Ventana siempre visible

Página 3

Para ver este enlace Registrate o Inicia Sesion

Barra de Progreso en el reloj de la barra de tareas

Para ver este enlace Registrate o Inicia Sesion

Cerrar el Explorador de Internet

Para ver este enlace Registrate o Inicia Sesion

InputBox que sólo admita números

Para ver este enlace Registrate o Inicia Sesion

Mostrar y Ocultar cursor del ratón

Para ver este enlace Registrate o Inicia Sesion

Cambiar el papel tápiz del escritorio de Windows

Para ver este enlace Registrate o Inicia Sesion

Eliminar documentos recientes

Para ver este enlace Registrate o Inicia Sesion

Conocer unidad del disco duro local

Para ver este enlace Registrate o Inicia Sesion

Establecer una conexión con Oracle con ADO

Para ver este enlace Registrate o Inicia Sesion

Vaciar la papelera de reciclaje

Para ver este enlace Registrate o Inicia Sesion

Crear una conexión a una base de datos de Access 2000 en tiempo de ejecución (conexión con ADO)

Para ver este enlace Registrate o Inicia Sesion

Botones de desplazamiento (continuación de conexión con ADO)

Para ver este enlace Registrate o Inicia Sesion

Botones para edición de registros (continuación de conexión con ADO)

Para ver este enlace Registrate o Inicia Sesion

Texto en 3D

Para ver este enlace Registrate o Inicia Sesion

Texto en 3D (mejorado)

Para ver este enlace Registrate o Inicia Sesion

Ejecutar código en determinada fecha

Página 4

Para ver este enlace Registrate o Inicia Sesion

Buscar palabras en un TextBox

Para ver este enlace Registrate o Inicia Sesion

Ejecutar código en una determinada fecha (mejorado)

Para ver este enlace Registrate o Inicia Sesion

Saber cuándo un número es Par o Impar

Para ver este enlace Registrate o Inicia Sesion

Barra de progreso sin control ProgressBar

Para ver este enlace Registrate o Inicia Sesion

Cambiar el nombre de la PC

Para ver este enlace Registrate o Inicia Sesion

Restringir la lectura de archivos a otro usuario

Para ver este enlace Registrate o Inicia Sesion

Establecer una combinación de teclas a un formulario

Para ver este enlace Registrate o Inicia Sesion

Extraer iconos de archivos y dibujarlos en un PictureBox

Para ver este enlace Registrate o Inicia Sesion

Conocer los tamaños de papel soportados por la impresora

Para ver este enlace Registrate o Inicia Sesion

Registrar/Desregistrar Controles (OCX) y/o Librerías (DLLs)

Para ver este enlace Registrate o Inicia Sesion

Descargar un archivo de Internet

Para ver este enlace Registrate o Inicia Sesion

Inicio animado de formulario

Para ver este enlace Registrate o Inicia Sesion

Crear formularios y moverlos de forma aleatoria

Para ver este enlace Registrate o Inicia Sesion

Abrir un documento de Word previamente guardado

Para ver este enlace Registrate o Inicia Sesion

Matar un proceso

Página 5

Para ver este enlace Registrate o Inicia Sesion

Utilizar el control CommonDialog con colores (propiedad ShowColor)

Para ver este enlace Registrate o Inicia Sesion

Cambiar el formato de una fuente con el control CommonDialog (propiedad ShowFont)

Para ver este enlace Registrate o Inicia Sesion

Crear-eliminar carpetas y copiar-eliminar archivos

Para ver este enlace Registrate o Inicia Sesion

Ocultar y Mostrar la barra de tareas

Para ver este enlace Registrate o Inicia Sesion

Formulario que se autocopia y desplaza en forma aleatoria

Para ver este enlace Registrate o Inicia Sesion

Abrir el contenido de un fichero txt con el bloc de notas

Para ver este enlace Registrate o Inicia Sesion

Interactuar con ventana consola y formularios

Para ver este enlace Registrate o Inicia Sesion

Crear un control Label en tiempo de ejecución

Para ver este enlace Registrate o Inicia Sesion

Ejecutar secuencias de teclas en formulario para minimizarlo (CTRL + M)

Para ver este enlace Registrate o Inicia Sesion

Mantener como formulario hijo una aplicación externa y como padre nuestro formulario (ejemplo con el bloc de notas)

Para ver este enlace Registrate o Inicia Sesion

Conocer tu IP real

Para ver este enlace Registrate o Inicia Sesion

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

Para ver este enlace Registrate o Inicia Sesion

Cerrar el Administrador de tareas de Windows (Task Manager)

Para ver este enlace Registrate o Inicia Sesion

Bloquear la bandeja del CD

Para ver este enlace Registrate o Inicia Sesion

Descargar un archivo de Internet SIN preguntar

Página 6

Para ver este enlace Registrate o Inicia Sesion

Mostrar palabra que se encuentra debajo del cursor

Para ver este enlace Registrate o Inicia Sesion

Formulario con cara sonriente

Para ver este enlace Registrate o Inicia Sesion

Formulario que explota e implota (animación de inicio)

Para ver este enlace Registrate o Inicia Sesion

Uso de la función Left

Para ver este enlace Registrate o Inicia Sesion

Uso de la función Right

Para ver este enlace Registrate o Inicia Sesion

Uso de la función Replace

Para ver este enlace Registrate o Inicia Sesion

Uso de la función strReverse

Para ver este enlace Registrate o Inicia Sesion

Uso de la función Len

Para ver este enlace Registrate o Inicia Sesion

Encontrar y cerrar ventana

Para ver este enlace Registrate o Inicia Sesion

Enviar archivos por FTP con Scripts y Batch

Para ver este enlace Registrate o Inicia Sesion

Abrir Panel de Control

Para ver este enlace Registrate o Inicia Sesion

Manipular la tecla WIN minimizando todas las ventanas (WIN + M)

Para ver este enlace Registrate o Inicia Sesion

Abrir menú Inicio (CTRL + ESC)

Para ver este enlace Registrate o Inicia Sesion

Manipular la tecla Mayúsculas (Bloq Mayús)

Para ver este enlace Registrate o Inicia Sesion

Obtener nombre corto de carpetas

Página 7

Para ver este enlace Registrate o Inicia Sesion

Uso de SaveSetting y GetSetting

Para ver este enlace Registrate o Inicia Sesion

Obtener la clave de Windows XP

Para ver este enlace Registrate o Inicia Sesion

Almacenar código de Visual Basic en una variable

Para ver este enlace Registrate o Inicia Sesion

Esperar finalización de un proceso

Para ver este enlace Registrate o Inicia Sesion

Esperar finalización de un proceso 2

Para ver este enlace Registrate o Inicia Sesion

Enganchando al teclado (Hook de teclado)

Para ver este enlace Registrate o Inicia Sesion

Uso del control TreeView

Para ver este enlace Registrate o Inicia Sesion

Gráficos en 3D con MSChart

Para ver este enlace Registrate o Inicia Sesion

Cálcula tamaño de bytes

Para ver este enlace Registrate o Inicia Sesion

Ejecutar secuencias de teclas en formulario para minimizarlo (CTRL + R)

Para ver este enlace Registrate o Inicia Sesion

Crear Servicios en Windows

Para ver este enlace Registrate o Inicia Sesion

Buscar en un ListBox

Para ver este enlace Registrate o Inicia Sesion

Buscar en un ComboBox

Para ver este enlace Registrate o Inicia Sesion

Buscar y quitar carácteres en un archivo

Para ver este enlace Registrate o Inicia Sesion

Control SSTab con fondo

Página 8

Para ver este enlace Registrate o Inicia Sesion

Pegar texto de Visual Basic a la consola de MS-DOS

Para ver este enlace Registrate o Inicia Sesion

Saber de qué modo se está cerrando nuestra aplicación

Para ver este enlace Registrate o Inicia Sesion

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.