como puedo hacer esto...

[JoseGMariani]

yo se hacer msg en vb6 pero solo tienen la opcion ceptar.. yo quisiera que por ejemplo cuando el usuario pise la X para salir o un boton.. le slaga un msj.. pero con opciones de (si - no ) y deposues yo poder configurar por ejemplo.l. si psa la opcion SI se hagan las acciones.. si pisa NO .. no haga nada,.. como haria yo eso.. ? h visto ejemplos en vb.NET pero no me funcionan.. :S


y otra pregunta como hago para hacerle form de configuracion donde por ejemplo el check la opcion : ejecutar cuando la pc inicie .. y se quede grabada esa informacion y cuando el prenda la pc el programa se ejecute,. .. en si quiero saber como se hace.. en principio para r aprendiendo un form de configuracion,, donde el por ejemlo eliga un skin y sea el por defecto.... por ejemplo... me pueden decir como se hace q tengo q hacer.. mas o menso en principio con ejemplos o algo asi.. y yo despues de hay, empiezo a aprender.. jeje muchas gracias espero su respuesta..

[David]

Para lo primero. Sólo debes especificar los botones que quieres. Por ejemplo, un MsgBox de Sí/No:

Código vb:

Dim Reply As VbMsgBoxResult
Reply = MsgBox("¿Sí/No?", vbYesNo + vbQuestion, "Pregunta")
If Reply = vbYes Then
    'Botón Sí
Else
    'Botón No
End If
 

Para lo segundo puedes usar un archivo .ini para guardar la configuración. En las FAQ's hay un ejemplo de ello.

[Avellaneda]

A la segunda pregunta:

Además de lo que te indica David, tambien puedes guardar y leer el valor del Check en el registro, p.e.

Al cerrar el Form, guardamos el valor actual del Check:

Código vb:

Private Sub Form_Unload(Cancel As Integer)
RegCheck Check1
End Sub
 

Función para guardar en el registro:

Código vb:

Function RegCheck(ElControl As Control)
SaveSetting App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name, ElControl.Value
End Function
 

Al abrir el Form, recuperamos el valor del registro:

Código vb:

Private Sub Form_Load()
Check1.Value = LeerCheck(Check1)
End Sub
 

Función para leer el registro:

Código vb:

Function LeerCheck(ElControl As Control) As Long
LeerCheck = GetSetting(App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name)
End Function
 

[JoseGMariani]

muy bueno muchas gracias!!! una duda.. respecto a lo que me a dicho david el grande! en ese ejemplo .. las opcioens salen en español es decir:

si no


si yo quisiera que las opciones salieran en ingles.. como seria?

[JoseGMariani]

AVELLANEDA.. :s el codigo que me das.. no me funciona de seguro estoy haciendo algo mal.. =(

donde pones.. Function RegCheck(ElControl As Control) donde dice: ELCONTROL hay tengo que replazarlo por? o en donde tengo q replazar.. :S dime porfavor..

[David]

Al llamar a la función, como bien indicó Avellaneda en el ejemplo, debes especificar el CheckBox. Por ejemplo, si tu check se llama Check1, al llamar a la función:

Código vb:

RegCheck Check1
 

Código vb:

Check1.Value = LeerCheck(Check1)