Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Visual Basic 6

Estas en el tema de Visual Basic 6 en el foro de Visual Basic clásico en Foros del Web. Hola buenas, pues queria comentaros que e hecho una aplicación para el metin2, (no hace falta saber del juego), aqui teneis la foto http://img858.imageshack.us/i/lal.jpg/ Bueno, ...
  #1 (permalink)  
Antiguo 09/04/2011, 15:05
 
Fecha de Ingreso: abril-2011
Mensajes: 1
Antigüedad: 13 años
Puntos: 0
Visual Basic 6

Hola buenas, pues queria comentaros que e hecho una aplicación para el metin2, (no hace falta saber del juego), aqui teneis la foto http://img858.imageshack.us/i/lal.jpg/

Bueno, lo que queria comentar es que en los botones, en el que pone página web, queria hacer que yo pusiera tal página web y que entrará, por ejemplo cojer y darle al botton y que te salga la página web, luego mi otra pregunta es en el boton entrar, como hacer para que cuando los datos del servidor estan mal, salga un cartel y diga por ejemplo Has dado datos que no existen (por ejemplo) y cuando lo pongas bien, entres al servidor y mi última pregunta y la más fácil segun la gente es, como hacer que funcione un MSGBOX en el boton historia de metin2heaven, que salga ''Metin 2 heaven lo fundo tal en el 2008'' y asi no se si me entendeis, la tipica pantallita en el medio de la pantalla que dice la historia, y cuando le das a aceptar se quita.

Espero que me podais ayudar un saludo y muchisimas gracias de antemano
  #2 (permalink)  
Antiguo 10/04/2011, 17:00
Avatar de Shizuka  
Fecha de Ingreso: marzo-2011
Mensajes: 106
Antigüedad: 13 años, 1 mes
Puntos: 4
Respuesta: Visual Basic 6

Para el msgbox es esto:

If Text1.Text = "1" And Text2.Text = "2" Then
Form1.Hide //esconder ese formulario
Form2.Show //para que te muestre el fomulario siguiente
Else
MsgBox "Usuario o contraseña incorrectos"
End If

no sé si sea a lo que te refieres

o tambien puedes usar este: pero solo que se agregan iconos y te da opciones

Dim b As Integer
b = MsgBox("¿Desea salir del sistema?", vbInformation + vbYesNo, "Salir")
If b = 6 Then
End
Else
Cancel = True
End If

obviamente debes sustituir los valores n.n

Etiquetas: basic, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:01.