Bem.. pessoal este é meu primeiro Tutorial, e por incrivel que pareça estou me dando bem com o VB6!
Obs:.. Se não poder postar este script removam, eu precurei algum tuto sobre isto além do de EXP, e não achei.Créditos: Lendário -> Foi o Script de EXP que me ajudou a descobri os outros.
No Final Ficará Assim:- Spoiler:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
COMEÇANDO: Abra o "
client.vb6" va em "
Frm.NpcEditor". Com ele aberto clique na barrinha de rolagem da "
Hit Points" (
Fazeremos primeiro o de HP ) e delete ela.
O nome dela era "
StartHP"lembre-se desse nome, pois usaremos ele mais tarde.
Agora va na opção "
TextBox" e Cria uma caixa do tamanho da
Scrollbar que você deletou.
Como disse o Lendário: -(
pra ficar certinho sabe? xD)
xD!
Agora na caixa de propriedades você vai perceber que o nome da TextBox é Text1 (
ou Text mais outro número)
Vamos Mudar esse nome pra algo que possamos lembrar por exemplo
TextoHP.
Vizualize o Código do "
frmNpcEditor.frm" clicando com o direito no próprio form e selecionando a Opção
"
View Code" ou na opção View no menu principal e depois "
Code".
Dê
Ctrl + F e na janelinha de Busca e Digite "
StartHP" (
Sem aspas, lembra do StartHP?) clique em
Find Next.
No Código Substitua o texto
StartHP por
TextoHP (
ou o que colocou como nome no TextBox)
Ainda nesse mesmo
Sub Mude o Outro
StartHP para
TextoHP e agora mude o "
.Value" (
sem aspas)
do TextHP por "
.text" (
sem aspas) de modo que o código ficará assim:
- Spoiler:
Private Sub TextoHP_Change()
lblStartHP.Caption = CStr(TextoHP.Text)
End Sub
Finalizando: Agora Dê
Ctrl + F de novo mais dessa vez marque a opção "
Current Project" e Pesquise por
"StartHP.Value" (
sem aspas).
Mude o texto encontrado por "
TextoHP.text" procure de novo e mude o novo resultado por "
TextoHP.text", e procura de novo e poia "
TextoHP.text" .
Existem apenas tres resultados, mas por via das dúvidas pesquise de novo, se der um erro dizendo que não encontrou beleza tudo feito!
Pronto ja fizemos o do
HP, so copilar e está -lá! Hehe! Como agora ja fiz tudo explicado vou amostrar o de Força e Defesa, mais simplificado (
finalmente os mOnstros terão mais do que 1000 de DEF e FOR. )
FORÇA: Agora volte novamente para o "
Frm.NpcEditor" lá delete igual antes a Barrinha de rolagem de "
Strenght" e grave o nome dela que é:
scrlSTRAgora crie uma "
TextBox" pondo-o no mesmo lugar da
Scroll Bar que você deletou.
Mude o nome dela para "
TextoFOR" agora va no Código de "
Frm.NpcEditor" e procura por "
scrlSTR".
Faça igual a mudança de acordo com o Spoiler Aaixo:
- Spoiler:
Private Sub TextoFOR_Change()
lblSTR.Caption = CStr(TextoFOR.Text)
End Sub
Após isto faça
Ctrl + F novamente nao se esqueça de marcar a opção "
Current Project".
Porcure por "
scrlSTR.Value" muda o resultado por "
TextoFOR.text" faça isso novamente.
Existem 2 opções, mais por via das duvidas faça novamente, se der erro , quer dizer que não tem mais, e pronto o der
FORÇA está pronto agora vamos para o de
DEFESA!
DEFESA: Volte novamente para
"Frm.NpcEditor" delete a Scroll Bar de Defense. e Faça uma TextBox em seu lugar!
Após isto bote o nome da TextBox de :
TextoDEFLembrando:- O nome da ScrollBar que vc deletou é:
scrlDEFAgora va no Código do "
frm.NpcEditor", e procura por "
scrlDEF" após isto faça a mudança de acordo com o Spoiler abaixo:
- Spoiler:
Private Sub TextoDEF_Change()
lblDEF.Caption = CStr(TextoDEF.Text)
End Sub
Após isto faça
Ctrl + F novamente nao se esqueça de marcar a opção "
Current Project".
Porcure por "
scrlDEF.Value" muda o resultado por "
TextoDEF.text". Achoque so tem 1 opção, mais por via das duvidas preocura novamente
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] .
O tópico de EXPERIENCIA do Lendário esta aki: EXPERIENCIA
Após isto feito, por favooor! Não se esqueça de COPILAR! XD! Entam Creditos la em cima! Espero ter ajudado! xD Como eu ja disse meu primeiro Tópico!!! Té + Pessoal!
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]