Programación General > Visual Basic 6.0 e inferiores

 Pequeñas Preguntas

(1/1)

Angel38:
Hola compañeros de luchas y quebrantamientos de sesos, lo digo porque sé que hasta el mas macho programador a llorado con estos programas.  :lol:

Tengo una serie de dudas que espero me sean iluminadas sus respuestas como venidas de otro planeta  :alien:  como buen padawan  :lightsabre:  que soy quisiera guardar los registros que tengo en mi Pc, a otro pc.

Lo que quiero decir es que si puedo crear un boton o algo para que pueda guardar mis registros de una base de datos, habilitar la unidad floppy o CD (Si se pueden los dos mucho mejor  :devil: ).

Tambien quisiera saber si hay algun manual disponible que me enseñe  :smartass: el uso de los diferentes componentes que trae visual Basic 6.0 y como crear una aplicacion que utilice los componentes de windows, Ejm: apagar el pc o grabar un sonido y luego reproducirlo.

De antemano les agradezco y si necesitan de algo que si sepa, con gusto les ayudare.  :angel:

x.cyclop:
Para apagar la pc se usan las API's (creo). Eso del floppy, la verdad no estoy seguro que se pueda en Vb, creo que tendrías que meterle C. Corríganme que de esto no estoy seguro.

 :comp:

Sagutxo:
Salu2.

   Si ciertamente se usa una API: ExitWindowsEx

   Aquí tienes el ejemplo que viene con ApiGuide.


--- Código: Text ---'In general sectionConst EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load()    'KPD-Team 1998    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)    If msg = vbCancel Then End    'reboot the computer    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)End Sub  
Espero te sirva.  :smartass:

masticor:

--- Código: Text --- Private Declare Function ExitWindowsEx& Lib "user32" (ByValuFlags&, ByVal dwReserved&) Private Sub Command1_Click()Dim i As Integeri = ExitWindowsEx(1, 0&) 'Apaga el equipoEnd Sub Private Sub Command2_Click()Dim i As Integeri = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuarioEnd Sub Private Sub Command3_Click()Dim i As Integeri = ExitWindowsEx(2, 0&) 'Reinicia el SistemaEnd Sub  
Uno mas por si ayuda

Navegación

[0] Índice de Mensajes