Clases con Imagen + Info

M.T.

M.T.

Aprendiz Lvl 3
Esto seguramente este (de algùn lado saque las fotos), sinceramente no busque solo lo subo porque tenia ganas ya que iba a borrar las "Miniaturas" y querìa dejarlo aca.

Explicaciòn: Al seleccionar una clase nos va aparecer la foto de esa respectiva + un texto abajo con informaciòn sobre ella.

Buscamos:

Código: 
Private Sub CargarCombos()

Antes del End Sub borramos:

Código: 
lstProfesion.ListIndex = 1

'Esto es para que no seleccione la clase Clèrigo por default asì podemos apreciar la Miniatura de Pregunta.'

Buscamos EN EL FRMCREARPERSONAJE:

Código: 
Private Sub Form_Load()

Y abajo agregamos:

Código: 
PClase = LoadPicture(DirGraficos & "MinOtros.gif")

Buscamos:

Código: 
Private Sub lstProfesion_Click()

Y antes del End Sub agregamos.

Select Case UserClase
Case 1
PClase = LoadPicture(DirGraficos & "MinMago.gif")
Label1 = "Mago es una clase "
Case 2
PClase = LoadPicture(DirGraficos & "MinClerigo.gif")
Label1 = "Clèrigo es una clase "
Case 3
PClase = LoadPicture(DirGraficos & "MinGuerrero.gif")
Label1 = "Guerrero es una clase "
Case 4
PClase = LoadPicture(DirGraficos & "MinAsesino.gif")
Label1 = "Asesino es una clase "
Case 5
PClase = LoadPicture(DirGraficos & "MinLadron.gif")
Label1 = "Ladron es una clase experta en hurto y robo. Suelen andar ocultas, con gran sigilo."
Case 6
PClase = LoadPicture(DirGraficos & "MinBardo.gif")
Label1 = "Bardo es una clase que al tener su Laud se vuelven muy fuertes."
Case 7
PClase = LoadPicture(DirGraficos & "MinDruida.gif")
Label1 = "Druida es una clase "
Case 8
PClase = LoadPicture(DirGraficos & "MinBandido.gif")
Label1 = "Bandido es una clase prima-hermana del Ladròn solo que esta preparada para Luchar, se pueden ocultar muy bien, solo con puños dan un gran golpe."
Case 9
PClase = LoadPicture(DirGraficos & "MinPaladin.gif")
Label1 = "Paladin es una clase "
Case 10
PClase = LoadPicture(DirGraficos & "MinCazador.gif")
Label1 = "Cazador es una clase "
Case 11
PClase = LoadPicture(DirGraficos & "MinPlebeyo.gif")
Label1 = "Trabajador es una clase "
Case 12
PClase = LoadPicture(DirGraficos & "MinPirata.gif")
Label1 = "Pirata es una clase "
End Select

En el frmCrearPersonaje agregamos un Label llamado "Label1" y un Image llamado "PClase"

Solo faltarìa descargar las imagenes y pegarlas en la carpeta Graficos del Cliente.

Descarga: http://venthak.hol.es/Miniaturas.rar

No acepto criticas, ya se que el còdigo es una cagada y que seguramente este en todos lados ;). Dejo un ejemplo para venderlo un poquito màs. Es el primer vìdeo.
Si tu internet es lento mira el segundo ejemplo.

Ejemplo visual: http://venthak.hol.es/BaoSimple/
Ejemplo 2: http://venthak.hol.es/BaoSimple/Videos/CFM.mp4
 
Última edición:
Shak

Shak

Evolution
Miembro del equipo
Developer
Especialista de Argentum
CuiCui dijo:
Y por qué un gif?
Haz clic para expandir...

Porque las miniaturas de GMAO, tienen fondo trasparente (No son todos los lados iguales, tienen una semi circunferencia si mal no recuerdo), y sino, no se pueden cargar.

Bigote
 
Debes iniciar sesión o registrarte para responder aquí.
Arriba