Cómo captuar un pantallazo del propio formulario en visual basic 6.0

Este código que coloco a continuación sirve para obtener una instantánea o captura de pantalla del formulario actual o si se modifica un poco, ocultando el formulario, permite obtener una imagen de la ventana activa.

'Api para generar un evento de tecla
Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

'recibe la ruta donde crear la imagen
Private Sub Capturar_Pantalla(path As String)
  
    'Captura la pantalla activa
    Call keybd_event(44, 1, 0, 0)
   
        DoEvents
   
    'Guardamos la imagen en disco
    SavePicture Clipboard.GetData, path
     
End Sub

Private Sub Command1_Click()
'Aca colocamos donde deseamos guardar la imagen. En este ejemplo se guarda en la misma carpata donde está guardado el proyecto.
 Dim path As String
    path = App.path & "\imagen" & ".jpeg"
Capturar_Pantalla (path)
End Sub

Mezclador de audio en visual basic 6.0

Ejemplo de un sencillo mezclador de audio de mp3 de dos canales que funciona con el control mediaplayer.

Puedes descargar el proyecto completo desde aca:

Descargar mezclador de audio

Hice uso de controles de terceros, o sea que no son de microsoft, por lo tanto si tienes errores al cargarlos, debes registrarlos de la siguiente manera:

Entras a la ventana de ejecutar (presionando la tecla Windows + R ) y escribes lo siguiente

REGSVR32 c:\windows\system\msdxm.ocx.

REGSVR32 c:\windows\system\KewlButtonz.ocx

Los controles están anexos en el proyecto en la carpeta Ocx.

Crear un juego de memorama en visual basic 6.0

Crear un memorama en visual basic 6.0

Este es un juego de memorama desarrollado en visual basic 6.0.
Es de 24 casillas con figuras relacionadas a las señales de transito.

El código completo se encuentra aca

Cómo insertar sonido en visual basic .net y visual 6.0?

Muchas veces deseamos que se reproduzca un archivo de audio al cliquear un botón o al realizar determinada acción, para ello visual basic .net nos provee de una sencilla línea de código para llevarlo a cabo:

My.Computer.Audio.Play(Application.StartupPath & "/nombredearchivo.wav")

Donde "nombredearchivo.wav" debe ser reemplazado por el nombre de nuestro archivo de audio.



Para hacerlo en visual basic 6.0 se hace lo siguiente:

'Declaraciones
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1 ' reproducción asíncrona


private sub boton_click()

snd = sndPlaySound(App.Path & "\nombredearchivo.wav", SND_ASYNC)

end sub

Buscar en una base de datos en Visual Basic 6.0

Declaración de variables
Public RSAfiliados As New ADODB.Recordset


Yo usé un flexgrid que llamé flex.

Private Sub BuscarCedula_Click()
'codigo para buscar un registro
Dim ced As String, cednum As Double

ced = InputBox("Digite el número de la cédula", titulo)

If ced = Empty Then
    Exit Sub
End If
'almacena la cédula digitada
cad = "select * from AFILIADOS where cedula = " & ced

If RSAfiliados.State = 1 Then
RSAfiliados.Close
End If
RSAfiliados.Open cad, CNDatos, adOpenStatic, adLockReadOnly
If RSAfiliados.EOF Then 'si no existe la cédula
      MsgBox "No se encontraron afliados con ese número de cédula", vbOKOnly, titulo
Else
Call llenarcampos
End If
End Sub

Private Sub llenarcampos()
Dim i As Integer, j As Integer
vdatos = RSAfiliados.GetRows(RSAfiliados.RecordCount)
With flex
flex.Clear
.FormatString = "|^No|<NOMBRES|<APELLIDOS|^CEDULA|<DIRECCION|^TELEFONO|<BARRIO|"
'ajusta el ancho de las columnas
.ColWidth(0) = 0
.ColWidth(1) = 300
.ColWidth(2) = 1500
.ColWidth(3) = 2000
.ColWidth(4) = 1000
.ColWidth(5) = 2000
.ColWidth(7) = 1760
'rellena el color de fondo de cada fila por medio
       
      

For i = 0 To flex.Cols - 1
flex.Col = i
For j = 1 To flex.Rows Step 2
flex.Row = j
flex.CellBackColor = &HE0E0E0
Next j
Next i
'coloca los datos en el grid


For i = 1 To UBound(vdatos, 2) + 1
    flex.Row = i
    For j = 0 To 7
    flex.Col = j + 1
    flex.Text = vdatos(j, i - 1)
    Next j
    Next i
End With
End Sub

Bienvenidos a mi Blog.

En este espacio encontraras las respuestas a tus dudas sobre código en el lenguaje visual basic 6.0, visual basic .net y programación para microcontroladores pic.