¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Labels modificadores de atributos

Ir abajo 
AutorMensaje
Agus
Admin



Mensajes : 69
Fecha de inscripción : 01/07/2008

Labels modificadores de atributos Empty
MensajeTema: Labels modificadores de atributos   Labels modificadores de atributos EmptyDom Ago 24, 2008 11:20 pm

Todo en el Cliente:
En el frmCrearPersonaje Creamos 5 Labels, sin caption y con los siguientes nombres:
Citación :

modfuerza, modConstitucion, modAgilidad, modInteligencia y modCarisma.
Y los acomodamos al lado de cada artibuto segun Corresponda
Despues Buscamos
Citación :

Private Sub lstRaza_Click()
Call DameOpciones
y abajo agregamos:
Citación :

Select Case (lstRaza.List(lstRaza.ListIndex))
Case Is = "Humano"
modfuerza.Caption = "+ 1"
modConstitucion.Caption = "+ 2"
modAgilidad.Caption = "+ 1"
modInteligencia.Caption = ""
modCarisma.Caption = ""
Case Is = "Elfo"
modfuerza.Caption = ""
modConstitucion.Caption = "+ 1"
modAgilidad.Caption = "+ 3"
modInteligencia.Caption = "+ 1"
modCarisma.Caption = "+ 2"
Case Is = "Elfo Oscuro"
modfuerza.Caption = "+ 1"
modConstitucion.Caption = ""
modAgilidad.Caption = "+ 1"
modInteligencia.Caption = "+ 2"
modCarisma.Caption = "- 3"
Case Is = "Enano"
modfuerza.Caption = "+ 3"
modConstitucion.Caption = "+ 3"
modAgilidad.Caption = "- 1"
modInteligencia.Caption = "- 6"
modCarisma.Caption = "- 3"
Case Is = "Gnomo"
modfuerza.Caption = "- 5"
modAgilidad.Caption = "+ 4"
modInteligencia.Caption = "+ 3"
modCarisma.Caption = "+ 1"
End Select
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
Labels modificadores de atributos
Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: