Jump to content

Actualizar forms


fmmdias
 Share

Recommended Posts

É assim, estou a desenvolver um jogo, tenho duas inputboxs a pedir o nome dos jogadores, e guardo os nomes em duas variaveis, jogador1 e jogador2, que estao declaradas num module, para puder acender-lhe apartir de qualquer parte, as labels onde as quero mostrar estao noutra form, a form de jogo, e quando as chamo la nao aparece nada, penso que seja um problema de actualizaçao.

Link to comment
Share on other sites

Pelo que entendi, manda escrever nas labels os nomes que queres só depois de teres o tais nomes nas variaveis.

E se precisares de aceder a essas labels que estão noutro form podes aceder pelo namespace:

My.forms.fomrXPTO.labelXY

Porque quando mandas escrever nas labels o que tens nas variáveis jogador1 e jogador2, estas ainda estão vazias.

Acho que não entendi mal, mas espero ter ajudado.

Link to comment
Share on other sites

O codigo da form em que insiro é

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Form4.Show()
        nome1 = InputBox("Insira a primeira letra do seu nome", "Jogador 1")
        nome2 = InputBox("Insira a primeira letra do seu nome", "Jogador 2")
        MsgBox("nome1" & nome1)
        MsgBox("nome2" & nome2)
        Visible = False
    End Sub

esta declarado no module

Module numeros
    Public nome1 As String
    Public nome2 As String
    end Module

e chamo na form4 da seguinte forma:

 Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label9.Text = CStr(nome1)
        Me.Label10.Text = CStr(nome2)
        Me.Label5.Visible = False
        nj = 1

    End Sub
Link to comment
Share on other sites

Viste o que te disse ?

Agora tenta assim:

Private  Sub Label1_Click(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Form4.Show()
        nome1 = InputBox("Insira a primeira letra do seu nome", "Jogador 1")
        nome2 = InputBox("Insira a primeira letra do seu nome", "Jogador 2")
        MsgBox("nome1" & nome1)
        MsgBox("nome2" & nome2)
        Visible = False
        My.forms.Form4.Label9.Text = nome1
        My.forms.Form4.Label10.Text = nome2
End Sub
Link to comment
Share on other sites

Duas notas apenas.

1) Porque estás a definir as variáveis públicas usando um Módulo? Não faz sentido nenhum estar a usar variáveis públicas desnecessáriamente e já foram mostrados alguns métodos de resolver o teu problema;

2) O método Cstr() faz uma conversão para string. Se já tinhas declarado as variáveis como string, não precisas de converter novamente;

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.