[Tutorial] Criando Buton

por dazateam Sex 12 Jul 2013, 11:55

n frmmain crie uma nova picture com essas configurações:

Código:: nome: picNova borderstyle: 0-none backcolor: &H80000007& height: 270 width: 194 visible: false

agora alinhe ela de acordo com as outras

agora crie uma image com essas configurações:

Código:: nome: imgButton index: 8 height: 29 width: 69

alinhe ele de acordo com os outros (se preferir)

procure por:

Código:: Private Sub imgButton_Click(Index As Integer)

e em cada case depois de:

Código:: picParty.Visible = False

adicione:

Código:: picTrans.Visible = False

exemplo:

Código:: Case 1[/font][/b] If Not picInventory.Visible Then ' show the window picInventory.Visible = True picCharacter.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picNova.Visible = False BltInventory ' play sound PlaySound Sound_ButtonClick End If Case 2 If Not picSpells.Visible then ' send packet Set Buffer = New clsBuffer Buffer.WriteLong CSpells SendData Buffer.ToArray() Set Buffer = Nothing ' show the window picSpells.Visible = True picInventory.Visible = False picCharacter.Visible = False picOptions.Visible = False picParty.Visible = False picNova.Visible = False ' play sound PlaySound Sound_ButtonClick End If

faça isso em todas as cases menos na 5

agora depois da case 6 adicione isso:

Código:: Case 7 picNova.Visible = True ' show the window picCharacter.Visible = False picInventory.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False ' play sound PlaySound Sound_ButtonClick End Select

agora procure por:

Código:: frmMain.picHotbar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\hotbar.jpg")

em baixo adicione:

Código:: frmMain.picNova.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\Nova.jpg")

procure por:

Código:: frmMain.picParty.Visible = False

em baixo adicione:

Código:: frmMain.picNova.Visible = False

agora procure por:

Código:: Public Const MAX_MAINBUTTONS As Long =

e mude para o próximo numero que for ex: se tiver 5 coloque 6

procure por:

Código:: Public Sub cacheButtons()

e no final da sub antes do ' Error Handler adicione:

Código:: ' main - Nova With MainButton(7) .fileName = "Nova" .state = 0 ' normal End With

acho que só caso de algum erro me informe que resolvo

agora baixe esses arquivos e coloque na pasta da main

para baixar Clique aqui

Créditos

Dazateam/Raizen

Robin

por guifs Sex 12 Jul 2013, 12:36

Tu criou um imagbution,mais n colocou o code para litura da imagem do bution,revise seu tópico,mais legal para quem quer aprender algo '0'

por dazateam Sex 12 Jul 2013, 13:46

guifs escreveu:Tu criou um imagbution,mais n colocou o code para litura da imagem do bution,revise seu tópico,mais legal para quem quer aprender algo '0'

vlw guifs tinha esquecido kk'

topico atualizado~

por meganoma Sex 12 Jul 2013, 16:17

Obrigado,eu estava precisando mesmo :3

por guifs Sex 12 Jul 2013, 17:11

oks +1

por Conteúdo patrocinado

[Tutorial] Criando Buton

[Tutorial] Criando Buton

Re: [Tutorial] Criando Buton

Re: [Tutorial] Criando Buton

Re: [Tutorial] Criando Buton

Re: [Tutorial] Criando Buton

Re: [Tutorial] Criando Buton