Jump to content

Como inserir o valor correcto na TextBox3.text


programadorvb6
 Share

Go to solution Solved by Andrepereira9,

Recommended Posts

Olá Boa tarde estou com um problema de  rotina me dar os valores correctos na TextBox3.Text , sei que é uma coisa fácil mas não estou conseguindo meter os valores  respectivos nas caixas de texto.
Deixo aqui o código para que me ajudem.
Grato desde já pela vossa atenção.
Programador vb6

Erro1.jpg

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ArryTexto() As String
        Dim LinhaTexto As String
        Dim ix As Integer
        Dim i As Integer
        If ListBox1.Items.Count > 0 Then
            For i = 0 To ListBox1.Items.Count - 1

                MessageBox.Show(ListBox1.Items(i).ToString)
                LinhaTexto = ListBox1.Items(i).ToString
                ArryTexto = LinhaTexto.Split(",")
                For ix = 0 To UBound(ArryTexto)
                    Me.TextBox2.Text = ArryTexto(ix).ToString
                    MessageBox.Show(ArryTexto(ix))
                    Me.TextBox3.Text = ArryTexto(ix.ToString) + 1 ' Nao mete o valor correcto na caixa de texto TextBox3
                Next ix
            Next
            If i = ListBox1.Items.Count Then
                MsgBox("Fim")
            End If
        End If
    End Sub
End Class

 

Edited by programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

  • Solution

Boas

Experimenta assim

Dim ArryTexto() As String
Dim i As Integer
	If ListBox1.Items.Count > 0 Then
		For i = 0 To ListBox1.Items.Count - 1
			MessageBox.Show(ListBox1.Items(i).ToString)
			ArryTexto = ListBox1.Items(i).Split(",") ' Não precisas de ler para uma string para depois dividir. Podes fazer directo
			'o ciclo for neste caso é desnecessario, pois já estas a correr dentro de um for
			 só indicar o em cada textbox, o valor do array
			Me.TextBox2.Text = ArryTexto(0).ToString   'Posição 0 do array para o valor X
			Me.TextBox3.Text = ArryTexto(1).ToString   'Posição 1 do array para o valor X
		Next
	If i = ListBox1.Items.Count Then
		MsgBox("Fim")
	End If
End If

Ou ainda mais simplificado

Dim ArryTexto() As String
Dim x As Integer

	For Each item In ListBox1.Items
		x += 1
		ArryTexto = item.Split(",") ' Não precisas de ler para uma string para depois dividir. Podes fazer directo

		'o ciclo for neste caso é desnecessario, pois já estas a correr dentro de um for
		 só indicar o em cada textbox, o valor do array

		Me.TextBox2.Text = ArryTexto(0).ToString   'Posição 0 do array para o valor X

		Me.TextBox3.Text = ArryTexto(1).ToString   'Posição 1 do array para o valor X

		If x = ListBox1.Items.Count Then
			MsgBox("Fim")
		End If
Next

 

Edited by Andrepereira9

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Link to comment
Share on other sites

Olá @Andrepereira9deu tudo certo obrigado pela amabilidade de fornecer o código.
Desde já quero te desejar um Feliz Natal.
Tudo de bom para ti e todos os teus.
Até uma próxima.

ProgramadorvB6

Edited by programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

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.