[GUIA]Nuevos comandos [vb2008]

Topic created · 1 Posts · 395 Views
  • **Hoy estoy de racha, asi que os voy a dejar unos comandos que no son esenciales pero le dan un mejor toque de profesionalidad a la apariencia del programa.
    Creamos un nuevo proyecto.
    Agregamos 1 botón y 1 label.
    Algo así:

    Bien, damos click en el Form1 (donde haya algo en blanco, osea fuera de donde los botones y eso.)
    Ahí escribimos esto.

    Dim myPhrase As String
            myPhrase = Microsoft.VisualBasic.InputBox("Introduce tu NickName")
            Label1.Text = Trim(myPhrase)
    

    Hacemos doble click en el botón y agregáis lo siguiente:

    [code] Dim testMsg As Integer
            testMsg = MsgBox("Mensage de texto", vbYesNo + vbCritical, "¿Desea salir?")
    
            If testMsg = 6 Then
                Close()
            ElseIf testMsg = 7 Then
    
        
            End If[/code]
    

    El programa debería quedar algo así:

    Bien, el primer paso que hagamos al abrir el programa te pedirá tu nick, que será substituido lo que pongas por el Label1 que habéis puesto en el form1
    Yo en este caso voy a poner Anghios:

    Veis? es substituido por el label1.

    Ahora damos click a salir.

    Nos pedirá si Si o si No.
    El simbolo se puede cambiar.
    Por ejemplo:

         Dim testMsg As Integer
            testMsg = MsgBox("Mensage de texto", vbYesNo + vbInformation, "¿Desea salir?")
    
            If testMsg = 6 Then
                Close()
            ElseIf testMsg = 7 Then
    
        
            End If
    

    Ahí les saldrá el simbolito de información.
    vbCritical ->
    vbQuestion ->
    vbExclamation ->
    vbInformation - >
    **

Log in to reply