Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Labels modificadores de atributos Dom 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
| |
|