Biblioteca de código

[ranefi]

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

Agregar 3 controles; 3 controles CommandButton e insertar el siguiente código en un...

Formulario

Código:

Dim Comando As String


Sub ProcesarMSDOS(Comando As String)
    AppActivate "C:\WINDOWS\System32\cmd.exe"
   
    Clipboard.Clear
   
    N$ = Comando + Chr$(13)
   
    Clipboard.SetText N$
   
    SendKeys "% {e}{p}", True
   
    AppActivate "Proyecto1 - Microsoft Visual Basic"
End Sub


Sub Command1_Click()
    Comando = "Dir"
   
    ProcesarMSDOS (Comando$)
End Sub


Sub Command2_Click()
    Comando = "chkdsk"
   
    ProcesarMSDOS (Comando$)
End Sub

Sub Command3_Click()
    AppActivate "C:\WINDOWS\System32\cmd.exe"
   
    SendKeys "% {c}", True
End Sub

Sub Form_Load()
    j% = Shell("cmd", 1)
End Sub

Éste código lo encontré en la paginita de papá Gates.

[ranefi]

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

Agregar 1 control y 1 Formulario MDI; 1 control CommandButton e insertar el siguiente código en un...

Formulario MDI

Código:

Private Sub MDIForm_Load()
    Form1.Show
End Sub

Formulario

Código:

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        MsgBox "El usuario eligió el comando Cerrar del menú Control del formulario."
    End If

    If UnloadMode = vbFormCode Then
        MsgBox ("Se invocó la instrucción Unload desde el código")
    End If

    If UnloadMode = vbAppWindows Then
        MsgBox ("La sesión actual del entorno operativo Microsoft Windows está finalizando.")
    End If

    If UnloadMode = vbAppTaskManager Then
        MsgBox ("El Administrador de tareas de Microsoft Windows está cerrando la aplicación.")
    End If

    If UnloadMode = vbFormMDIForm Then
        MsgBox ("Un formulario MDI secundario se está cerrando porque el formulario MDI también se está cerrando.")
    End If
   
    If UnloadMode = vbFormOwner Then
        MsgBox "Un formulario se está cerrando por que su formulario propietario se está cerrando."
    End If
   
    Cancel = True
End Sub

Con este ejemplo se puede saber de qué forma se está cerrando nuestra aplicación. Nos vemos.

[ranefi]

Crear base de datos con una tabla y campos

Agregar las siguientes referencias al proyecto:

• Microsoft ADO Ext. 2.8 for DDL and Security
• Microsoft Jet and Replication Objects 2.6 Library

E insertar el siguiente código en un...

Formulario

Código:

Private Sub Form_Load()
    ConectaAccess
End Sub

Módulo

Código:

Const nombreBD = "bd.mdb"
Const nombreTabla = "Tablilla"

Public Sub ConectaAccess()
    Dim RutaBD As String: RutaBD = App.Path & "\"
    Dim strProveedor As String
    Dim crearADO As ADOX.Catalog
   
    strProveedor = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        RutaBD & nombreBD
   
    On Error GoTo ups
    Set crearADO = New ADOX.Catalog
   
    If Len(Dir$(nombreBD)) Then
        If MsgBox("Desea reemplazar la base de datos existente?", _
         vbQuestion + vbYesNo + vbDefaultButton2, _
         "Reemplazar base de datos") = vbNo Then
            Exit Sub
        Else
            Kill nombreBD
        End If
    End If
   
    crearADO.Create strProveedor
   
    Dim Tablita As ADOX.Table: Set Tablita = New ADOX.Table
   
    With Tablita
        .Name = nombreTabla
       
        .Columns.Append "ID", adInteger
        .Columns.Append "Nombre", adVarWChar, 50
        .Columns.Append "Direccion", adVarWChar, 50
        .Columns.Append "Telefono", adVarWChar, 50
    End With
   
    crearADO.Tables.Append Tablita
   
    Set Tablita = Nothing
    Set crearADO = Nothing
    Exit Sub
ups:
    MsgBox "¡Órale! Algó pasó:" & vbCrLf & _
        Err.Number & " " & Err.Description, vbExclamation, _
        "Un error cochino"
       
    Err.Clear
End Sub

No tiene mucha ciencia.