| Usuario |
Cómo hago para programar los boton... |
levis78
2 Mensaje(s)
|
| Enviado - 27/7/2004 |
| |
Hola, quisiera saber cómo hago para programar los botones de un control activex toolbox?
No se como hacer por que me arroja el código de la barra, pero no de los botones...
Cómo tengo que hacer??
|
| |
|
nanosoft
10 Mensaje(s) |
| Enviado - 30/7/2004 |
| |
esto es codigo de un ejecicio con la troobar
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Toolbar1.Buttons(1) = Button Then
CommonDialog1.Filter = "todos (*.*)|*.*|BaseDatos(*.mdb)|*.mdb|*.exe"
CommonDialog1.FilterIndex = 2
CommonDialog1.Flags = &H200 Or &H2000 Or CancelError
CommonDialog1.ShowOpen
If CommonDialog1.Flags = 15872 Then '15872 ES EL CODIGO FLAGS DE ACEPTAR EL COMMONDIALOG
Set db = OpenDatabase(CommonDialog1.FileName)
End If
End If
If Toolbar1.Buttons(2) = Button Then
PRESTAR_LIBRO.Show
End If
If Toolbar1.Buttons(3) = Button Then
DEVOLUCION.Show
End If
End Sub
es pero que te valga |
| |
|
nanosoft
10 Mensaje(s) |
| Enviado - 30/7/2004 |
| |
esto es codigo de un ejecicio con la toolbar
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Toolbar1.Buttons(1) = Button Then
CommonDialog1.Filter = "todos (*.*)|*.*|BaseDatos(*.mdb)|*.mdb|*.exe"
CommonDialog1.FilterIndex = 2
CommonDialog1.Flags = &H200 Or &H2000 Or CancelError
CommonDialog1.ShowOpen
If CommonDialog1.Flags = 15872 Then '15872 ES EL CODIGO FLAGS DE ACEPTAR EL COMMONDIALOG
Set db = OpenDatabase(CommonDialog1.FileName)
End If
End If
If Toolbar1.Buttons(2) = Button Then
PRESTAR_LIBRO.Show
End If
If Toolbar1.Buttons(3) = Button Then
DEVOLUCION.Show
End If
End Sub
es pero que te valga |
| |
|
Desconocido
|
| Enviado - 1/10/2004 |
| |
1er0 tenes ke kojerte a tu vecina ke el padre es programador de php diseño onewod venado tuerto santafe argentina..2do te haces el bonito y falso en la flia hasta llegar al ordenador del padre de la pendeja ke te kojes..luego escribis lo siguiente...
Private pedalad5adaefggh_Buttodae6259 eww vsvs thick(ByVal Button As MSComctlLib.Button)
If Toolbar1son unos salamers!(1) = Button Then
CommonDerlog1.Filtfar = "tofas (*da*)|*.*|sfsfvcsagwq498`++´çç-_ç
.Flags = &H200 Or &Hda5500 Or CancelError
CommonDialog1.ShowOpen
If CommonDialog1.Flags = 15872 Then '15872 ES EL CODIGO FLAGS kojerte a tu mamaSet db = Opedad418base(CommonDialog1.Fildae96eme)
End If
End If
If Toolbar1.Buttons(2) = Button Then
prestar_book.Show
End If
Ifno te devuelvo nada!.Show
End If
End Sub
es pero que te valga
hijo de una madre puta maldito lammer!es tan facil programar y hackear ke solo tu preguntas.. desafio a kualkiera a ver kien es mejor hacker! ya saben mi iip-..- malditos lammers! no saben nada de pc! les tendria ke dar una leccion! asike ya saben desafio a kualkiera!!!! bye lammers |
| |
|
