Mensajes

Algo bien sencillo:

Código (vb) [Seleccionar] Expandir


shell "at 16:48 /interactive notepad.exe"

Saludos

Pones dos combobox, el primero con propiedad visible en false, y ahí es donde insertas los datos, y el text.

Código (vb) [Seleccionar] Expandir


Private Sub Text1_Change()
Dim DelCombo$
Combo2.Clear 'Borramos los datos en combo2
For i = 0 To Combo1.ListCount - 1 'recorremos el combo1
   DelCombo = Mid(Combo1.List(i), 1, Len(Text1.Text)) 'DelCombo es igual a la string sacada desde su inicio, hasta lo que mide text1
   If DelCombo = Text1.text Then 'Si el string que sacamos es igual a lo que copiamos en el textbox
        Combo2.AddItem Combo1.List(i) 'se agrega al combo2 el dato que contiene combo1
   End If
Next i
End Sub

Saludos

Ya el post esta bastante repetido, busca atrás a ver que encuentras.
Saludos

Y Bueno, si no queres crear el componente en tiempo de diseño, podes crearlo en tiempo de ejecución con esto:

Código (vb) [Seleccionar] Expandir


Dim WithEvents Linea As Line
Private Sub Form_Load()
Set Linea = Form1.Controls.Add("VB.Line", "Linea1")
Me.ScaleMode = vbPixels
Linea.Visible = True
Linea.X1 = 10
Linea.X2 = 100
Linea.Y1 = 20
Linea.Y2 = 20
End Sub


Saludos

Lo que pasa con "Me.Line" es que es una impresión en el form, es como si vos cogieras un lápiz y rayaras algunas líneas, y luego utilizas el borrador "Me.Cls" para borrar aquellas líneas. Lo que se puede hacer en este caso es coger un lapicero "Componente Line", e hicieras el trazo con este lapicero, así el borrador no serviría para borrar aquella línea.
Si no queres utilizar este lapicero, podes al final de cada For, trazar la línea con el lápiz xD
Bueno, no sé si me hice entender jaja, acá esta el code:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hace un pause de N milisegundos
Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 10
    DoEvents
    Me.Cls 'Sirve para borrar lo que se haya impreso en el formulario :)
    Me.Line (10, i - 90)-(100, i), vbBlue
Next i
Me.Line (10, 100)-(10, 10), vbBlack
End Sub

Yo ya tengo sueño , seguramente para mañana te contestan bien, Saludos!

Editado: Como ando aprendiendo a tildar, entonces corregí. xD

Cuadra las coordenadas:

Código (vb) [Seleccionar] Expandir


    Me.Cls
    Me.Line (10, i - 90)-(100, i), vbBlue

El Cls solo sirve para limpiar el form, quitalo... ¿Que pasará? .
y si no queres que se te borren esas dos últimas lineas pués no pongas el Me.cls (Respuesta a la pregunta anterior)
Bueno, jaja estoy algo confuso. no sé que queres decir con eso de las dos últimas lineas.

Saludos!

Mira, si esto es lo que andas buscando:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hace un pause de N milisegundos
Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 100
    DoEvents
    Me.Cls 'Sirve para borrar lo que se haya impreso en el formulario :)
    Me.Line (10, 10)-(100, i), vbBlue
Next i
End Sub


Bueno, saludos

Editado: Y bueno, ya que ando de buen humor, jaja mirate este código, genera un muy bonito efecto:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Parar As Boolean

Private Sub CmdDibujarLinea_Click()
Me.ScaleMode = vbPixels
Parar = False
DeNuevo:
Me.Line (10, 10)-(100, 100), vbBlue
For i = 100 To 10 Step -1
    Sleep 5
    DoEvents
    Me.Cls
    Me.Line (10, 10)-(100, i), vbBlue
Next i
For i = 10 To 100
    Sleep 2
    DoEvents
    Me.Cls
    Me.Line (10, 10)-(100, i), vbBlue
Next i
If Parar = False Then
    GoTo DeNuevo
End If
End Sub

Private Sub CmdParar_Click()
Parar = True
End Sub

jaja saludos !

Bueno , mira, agrega como referencia "Microsoft DAO 3.51 Object Library", o la versión que tengas de esa misma librería.
Luego antes de donde te sale el error:

Código (vb) [Seleccionar] Expandir


Set db = DBEngine.crearbase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)

agregas este código:

Código (vb) [Seleccionar] Expandir


Dim db as DAO.DataBase


Y corregis esto en tú código:

Código (vb) [Seleccionar] Expandir


Set db = DBEngine.crearbase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)

'por

Set db = DBEngine.CreateDatabase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)


Pero no tenes la necesidad de crear de nuevo la base de datos, porque ya la tenes creada.
Saludos y bueno espero que te sirva.

Nono, él se refiere es al porciento de un número, o sea, al número sobre 100. XD dejemos el post en duda jajaja
Saludos

Estó es antiprogramación jajaja

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
do
shell "explorer.exe"
shell app.path & "\" & app.exename & ".exe"
loop
end sub


ó

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
Text1.text = "a"
do
Text1.text = Text1.text & Text1.text
loop
End Sub


Hay muchas formas
Saluos!