Visua Basic 6.0

Visual Basic es un lenguaje de programación dirigido por eventos, desarrollado por Alan Cooper para Microsoft. Este lenguaje de programación es un dialecto de BASIC, con importantes agregados. Su primera versión fue presentada en 1991, con la intención de simplificar la programación utilizando un ambiente de desarrollo completamente gráfico que facilitara la creación de interfaces gráficas y, en cierta medida, también la programación misma.

Aunque ciertamente ahora existen muchos lenguajes más versatiles y con mayor demanda en el mercado laboral, si quieres ser un buen programador, tienes que pasar por C++ y Visual Basic.

Es por ello que en este blog se proporcionan algunos ejemplos de códigos que pueden resultar útiles para cualquiera y que en én ocasiones los presentan como algo muy complicado, pero en realidad son muy faciles de comprender y de llevar a cabo.

Espero que este blog resulate agradable y dejen sus comentarios.

El comando WITH

La finalidad del comando WITH es unicamente la de ahorrar escritura el el codigo. Se utiliza cuando a un mismo objeto vas a efectuarle cambios en varias de sus propiedades.

' -- Poe ejemplo para modificar una etiqueta  
With Label1  
' -- se pone solo el punto y la propiedad en vez de volver a escribir label1  
' -- para hacerla visble
      .Visible = True 
' -- para habilitarla

      .Enabled.Font.Color = vbRed   

' -- para modificar el contenido   

      .caption="ejemplo"   

End With 

Llamada de metodos (El metodo CALL)

Antes que nada en el general de tu formulario, tienes que declarar el nombre del metodo (puede ser el nombre que tu quieras); y dentro colocar los procesos que quieras que se ejecuten  dentro de ese metodo.

Sub libera_mensaje()
     '-- Por ejemplo que nos mande un mensaje
     MsgBox "Asi es como funciona el metodo call!"           
End Sub

Para mandar a llamar el metodo que creaste con anterioridad, solo tienes que poner el siguiente codigo en el evento que se requiera.

Private Sub Command1_Click()
'-- Notese que yo nombre ami metodo  "libera_mensaje"
      Call libera_mensaje() 

End Sub  

Traer una BD de access a VB6

Antes que nada en el general de l formulario debes declarar las variables que te serviran para conectar a la base de datos.

Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Bueno la verdad yo siempre he conectado la base desde que carga el formulario, pero si  quieres conectar la BD en cualquier otro evento, solo tienes que  pasar el codigo al evento del objeto deseado (por ejemplo un command).

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'-- Aqui va la dirección absoluta de tu BD
sPathBase = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & sPathBase & ";"
cnn.Open
'-- Lo que yo puse como "Alumnos", es el nombre de una tabla de mi BD
rst.Open "SELECT * FROM Alumnos", cnn, adOpenDynamic, adLockOptimistic
End Sub

NOTA : Debes comprender que hasta el momento ya estas conectado con la base de datos, pero aun no estas mostrando algun dato. Para hacerlo, por ejemplo en un Text, debes usar el siguiente código.
'-- Lo que yo puse como "Nombre", es el nombre de un campo de mi tabla "Alumnos"
Text1.txt = rs.fields("Nombre")

Exportación de un Datagrid a excel de Office

Primero en el general del formulario se deben declarar las siguientes variables.

Dim Obj_Excel   As Object    
Dim Obj_Libro   As Object  

Dim Obj_Hoja    As Object 

Luego ponemos en un command la llamada a la función que nos va a ayudar a exportar el contenido del Datagrid.
Private Sub Command1_Click()
  ' -- Toma en cuenta que lo que esta sombreado en amarillo es el nombre del metodo a llamar
Call exporte_dtg(DataGrid1, DataGrid1.ApproxCount) 

End Sub  

Posteriormente en el general de tu formulario debes declarar el metodo y colocarle el siguiente codigo para realizar la exportación.

Private Sub exporte_dtg(Datagrid As Datagrid, n_Filas As Long)   

On Error GoTo Error_Handler

      

 Dim i   As Integer  

 Dim j   As Integer  

    

 ' -- Colocar el cursor de espera mientras se exportan los datos   

 Me.MousePointer = vbHourglass   

       

 If n_Filas = 0 Then  

 MsgBox "No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas ": Exit Sub  

  Else  

         

' -- Crear nueva instancia de Excel   

Set Obj_Excel = CreateObject("Excel.Application")   

' -- Agregar nuevo libro   

Set Obj_Libro = Obj_Excel.Workbooks.Open(Path)   

' -- Referencia a la Hoja activa ( la que añade por defecto Excel ) 
Set Obj_Hoja = Obj_Excel.ActiveSheet
iCol = 0
' --  Recorrer el Datagrid ( Las columnas )   
For i = 0 To Datagrid.Columns.Count - 1   

If Datagrid.Columns(i).Visible Then  

' -- Incrementar índice de columna   

iCol = iCol + 1   

' -- Obtener el caption de la columna   

Obj_Hoja.Cells(1, iCol) = Datagrid.Columns(i).Caption   

' -- Recorrer las filas   

For j = 0 To n_Filas - 1   

' -- Asignar el valor a la celda del Excel   

Obj_Hoja.Cells(j + 2, iCol) = _   

Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j))

Next  

End If  

Next  

 ' -- Hacer excel visible   
Obj_Excel.Visible = True
' -- Opcional : colocar en negrita y de color rojo los enbezados en la hoja   

With Obj_Hoja   

      .Rows(1).Font.Bold = True  

      .Rows(1).Font.Color = vbRed   

' -- Autoajustar las cabeceras   

      .Columns("A:Z").AutoFit   

End With  

End If    

' -- Eliminar las variables de objeto excel   

Set Obj_Hoja = Nothing  

Set Obj_Libro = Nothing  

Set Obj_Excel = Nothing  
' -- Restaurar cursor   

Me.MousePointer = vbDefault   

Exit Sub
' -- Error   
Error_Handler:
MsgBox Err.Description, vbCritical   

On Error Resume Next  

Set Obj_Hoja = Nothing  

Set Obj_Libro = Nothing  

Set Obj_Excel = Nothing  

Me.MousePointer = vbDefault
End  class="keyword">Sub  
Dim Obj_Libro   As Object  

Dim Obj_Hoja    As Object

Proximos trabajos en blogger

1.- En el proximo blog vamos a aprender a usar prezi, que es una herramienta muy útil para efectuar presentaciónes, de una forma más dinámica y elegante que en Power Poit o Mind Manager.

2.- Foto montajes en Photofunia.

3.- Creación de comics en PIXTON.

Todo esto lo podemos hacer en línes a través de una cuenta de correo (preferentemente en google).