Sistema de Hotkeys.

RenanR · 1 Sistema de Hotkeys. 10/4/2012, 00:13

RenanR

Membro Honorário I

Mensagens : 126
<b> T$: </b>

T$: : 4721

Como funciona:
Nas configurações você marca um Checkbox. Ao marcar, para abrir o sua bolsa, equipamentos, guild, e etc.. basta aperta nas keys que você configurar.

Tutorial
Client-Side

Vá na frmMirage, e na picOptions, crie um checkbox com name de:

chkHotKeys

E caption de:

Hotkeys

Agora abra o código da form e procure por:

Código:: Private Sub Form_KeyPress(KeyAscii As Integer) Call HandleKeypresses(KeyAscii) If (KeyAscii = vbKeyReturn) Then KeyAscii = 0 End If

Abaixo adicione:

Código:: If chkHotkeys.Value = Unchecked Then Exit Sub Else If (KeyAscii = 98) Then If picInv3.Visible = True Then picInv3.Visible = False Else picInv3.Visible = True End If End If If (KeyAscii = 101) Then If picEquip.Visible = True Then picEquip.Visible = False Else picEquip.Visible = True End If End If If (KeyAscii = 97) Then If picFriend.Visible = True Then picFriend.Visible = False Else picFriend.Visible = True End If End If If (KeyAscii = 103) Then If picGuild.Visible = True Then picGuild.Visible = False Else picGuild.Visible = True End If End If If (KeyAscii = 106) Then If picWhosOnline.Visible = True Then picWhosOnline.Visible = False Else picWhosOnline.Visible = True End If End If If (KeyAscii = 109) Then If picPlayerSpells.Visible = True Then picPlayerSpells.Visible = False Else picPlayerSpells.Visible = True End If End If End If

Bom galera, aqui eu adicionei 6 hotkeys, com as keys de "b", "e", "m", "a", "g", "j".
Vocês podem mudar as keys de acordo com os numeros de Keyascii do VB.. observem no código escrito: If (Keyascii = 109) Then
Você muda o 109 para o numero da key que quiser.. em Keyascii.. em baixo estarei dizendo todas as keyascii do vb.

Tambem podem alterar o que a key irá abrir vendo no codigo, exemplo:

Código:: If (KeyAscii = 106) Then If picWhosOnline.Visible = True Then picWhosOnline.Visible = False Else picWhosOnline.Visible = True End If End If

Veja, esta, irá abrir a picWhosOnline (Jogadores Online). Você pode mudar de acordo com o nome da pic que está na frmmirage.

e Para adicionar mais keys, basta colocar em baixo de

Código:: If (KeyAscii = 109) Then ' Key a ser usada If picPlayerSpells.Visible = True Then ' Se estiver aberto picPlayerSpells.Visible = False ' Feche Else ' Mas se tiver fexado picPlayerSpells.Visible = True ' Abra End If End If End If

Mais um código igual a esse ai, mudando o que vai abrir, e mudando a hotkey(numero da hotkeys).

Bom é isso ai.

Aqui está as keys de KeyAscii do VB!