Ir para conteúdo

Featured Replies

  • Respostas 16
  • Visualizações 2.5k
  • Created
  • Última resposta

Top Posters In This Topic

Most Popular Posts

  • 1º Felipe, sua conta de usuario no computador tem permissões de Administrador? 2º Qual seu Windows? Se for Windows 7 desabilite o "Controle de Contas de Usuario", para tal siga estes passos: Menu

  • Felipe, tente usar o seguinte código Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Public c As Client Public p As Pla

  • Felipe, eu testei o procedimento dito por você e achei o problema. Acontece que este método que você esta utilizando é antigo, e o mesmo não é mais suportado pela API. Agora para você definir o pl

Postado
  • Autor

Já baixei e mesmo assim nada! O ruim se ponho outra versão funciona ;/

Form1.vb

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants


Public Class Form1

    Public c As Client

    Public p As Player


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For Each cl In Client.GetClients

            ComboBox1.Items.Add(cl)

        Next

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

End Class

Postado

Felipe, tente usar o seguinte código


Imports Tibia 

Imports Tibia.Util 

Imports Tibia.Objects 

Imports Tibia.Constants 


Public Class Form1 

    Public c As Client 

    Public p As Player 


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        For Each cl In c.GetClients 

            ComboBox1.Items.Add(cl) 

        Next 

    End Sub 


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        Form2.Show() 

    End Sub 


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

        Close() 

    End Sub 

End Class

Eu mudei o Client.GetClients e coloquei c.GetClients ali no "For".

Não testei (estou no trampo ;D ).

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.6k

Informação Importante

Confirmação de Termo