Erro ao digitar!

por guifs Sex 22 Mar 2013, 17:59

bom pessoal é o seguinte , se eu clicar em uma label para digitar algum , da um erro ou slá oq m bug talvez , bem olhem o print aew Erro ao digitar! Catswcx

ou https://2img.net/r/ihimizer/img600/4811/catswcx.jpg

por afonsobr Sex 22 Mar 2013, 18:11

A imagem está muito ruim. Faça upload novamente sem redimensionamento.

por guifs Sex 22 Mar 2013, 18:16

bom vou upar , mais o code é

Código:: Call AddText("Available Commands: /info, /who, /fps, /fpslock, /Verificar,/atualizar ", HelpColor) Case "/atualizar" frmMain.picScreen.Refresh AddText "Atualização Comcluida com sucesso", AlertColor Case "/Verificar" If Player(MyIndex).Vip = 1 Then AddText "Voce e Jogador VIP", BrightRed Else If Player(MyIndex).Vip < 1 Then AddText "Voce e Jogador Free", BrightRed End If [color=cyan]Case[/color] "/top" Dim u As Byte For u = 1 To 20 frmMain.lblTopLevel(u) = TopLvl(u).Nivel frmMain.lblTopName(u) = TopLvl(u).Nome Next frmMain.picTopLevel.Visible = Not frmMain.picTopLevel.Visible Case "/org" If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then GoTo Continue If UBound(Command) < 2 Then AddText "Usage: /org (nome) (nível)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Or Not IsNumeric(Command(2)) Then AddText "Usage: /org (nome) (nível)", AlertColor GoTo Continue End If

e o erro é :

Spoiler:

por lucas100vzs Sáb 23 Mar 2013, 05:23

Guifs ,

Troque todo o código que você postou por este:

Código:: Call AddText("Available Commands: /info, /who, /fps, /fpslock, /Verificar,/atualizar ", HelpColor) Case "/atualizar" frmMain.picScreen.Refresh AddText "Atualização Comcluida com sucesso", AlertColor Case "/Verificar" If Player(MyIndex).Vip = 1 Then AddText "Voce e Jogador VIP", BrightRed Else If Player(MyIndex).Vip < 1 Then AddText "Voce e Jogador Free", BrightRed End If End If Case "/top" Dim u As Byte For u = 1 To 20 frmMain.lblTopLevel(u) = TopLvl(u).Nivel frmMain.lblTopName(u) = TopLvl(u).Nome Next frmMain.picTopLevel.Visible = Not frmMain.picTopLevel.Visible Case "/org" If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then GoTo Continue If UBound(Command) < 2 Then AddText "Usage: /org (nome) (nível)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Or Not IsNumeric(Command(2)) Then AddText "Usage: /org (nome) (nível)", AlertColor GoTo Continue End If

O problema era que você esqueceu um "End If" na case "Verficar"....Usou 2 "If's" sem 2 "End If's"....Só trocar pelo código acima que funciona....ou você pode ir lá adicionar manualmente...No mais é isso!! Laughing

por guifs Sáb 23 Mar 2013, 08:06

lucas , vlw +1 ,eu tentei com 1 if só e dps num sei para q end if nex end if end if , mais disfarça q eu fiz uma burrada dessa e.e , mais 1 aew

por Frozen Sáb 23 Mar 2013, 08:48

guifs escreveu:lucas , vlw +1 ,eu tentei com 1 if só e dps num sei para q end if nex end if end if , mais disfarça q eu fiz uma burrada dessa e.e , mais 1 aew

Tópico Trancado movido para assuntos resolvidos , caso dúvida continue me manda uma pm.

por Conteúdo patrocinado

Erro ao digitar!

Erro ao digitar!

Re: Erro ao digitar!

Re: Erro ao digitar!

Re: Erro ao digitar!

Re: Erro ao digitar!

Re: Erro ao digitar!

Re: Erro ao digitar!