Dúvida picturebox - apresentação dos dados

[saramgsilva]

olá pessoal eu estou a fazer um programa, e estou com alguma dúvidas:

Private Sub Command1_click()

        Dim linhas As Integer
        Dim colunas As Integer
        Dim i As Integer
        Dim j As Integer
        Dim contador As Integer

        linhas = Val(TextBox1.Text)
        colunas = Val(TextBox2.Text)

        If linhas = 0 Or colunas = 0 Then
            MsgBox("Erro....")
        Else
            picture1.Cls()
            contador = 0
            For i = 1 To linhas
                For j = 1 To colunas
                    contador = contador + 1
                    picture1.print contador 
                Next
            Next



        End If


    End Sub

o meu problema é: se linhas = 2 e colunas =4

deveria ter  o resultado na Picture1 assim :

1 2 3 4

5 6 7 8

e está aparecer :

1

2

3

4

5

6

7

8

[Revolt]

Private Sub Command1_click()

        Dim linhas As Integer
        Dim colunas As Integer
        Dim lista() as Integer
        Dim i As Integer
        Dim j As Integer
        Dim contador As Integer

        linhas = Val(TextBox1.Text)
        colunas = Val(TextBox2.Text)

        If linhas = 0 Or colunas = 0 Then
            MsgBox("Erro....")
        Else
            picture1.Cls()
            contador = 0
            For i = 1 To linhas
                For j = 1 To colunas
                    Redim Preserve lista(contador)
                    contador = contador + 1
                    lista(contador) = contador
                Next
            Next

            Dim lista2() as Integer
            Dim o as Integer = 0
            For i = 1 to contador
            If o = 4 Then
            Picture1.print lista2(0) & " " & lista2(1) & " " & lista2(2) & " " & lista2(3)
            picture1.print ControlChars.Crlf
            o = 0
            Else
            lista2(o) = lista(i)
            o += 1
            Next

        End If

    End Sub

Talvez uma coisa deste género ou parecida?

EDIT: Não sei se existe a classe ControlChars em VB6 mas deve existir algo parecido  😉

[NuGuN]

Boas...

Outra soloção seria esta:

Private Sub Command1_click()
Dim linhas As Integer
Dim colunas As Integer
Dim i As Integer
Dim j As Integer
Dim contador As Integer

Dim temp As String

linhas = Val(TextBox1.Text)
colunas = Val(TextBox2.Text)

If linhas = 0 Or colunas = 0 Then
    MsgBox ("Erro....")
Else
    Picture1.Cls
    contador = 0
    For i = 1 To linhas
        temp = vbNullString ' ou temp = ""
        For j = 1 To colunas
            contador = contador + 1
            temp = temp & " " & contador
        Next
        Picture1.Print temp
    Next
End If
End Sub

Desculpa lá o código estar em VB6...  ?

Cumps

[saramgsilva]

Boas...

Outra soloção seria esta:

Private Sub Command1_click()
Dim linhas As Integer
Dim colunas As Integer
Dim i As Integer
Dim j As Integer
Dim contador As Integer

Dim temp As String

linhas = Val(TextBox1.Text)
colunas = Val(TextBox2.Text)

If linhas = 0 Or colunas = 0 Then
    MsgBox ("Erro....")
Else
    Picture1.Cls
    contador = 0
    For i = 1 To linhas
        temp = vbNullString ' ou temp = ""
        For j = 1 To colunas
            contador = contador + 1
            temp = temp & " " & contador
        Next
        Picture1.Print temp
    Next
End If
End Sub

Desculpa lá o código estar em VB6...  ?

Cumps

ya fixe!!! acho que é mm isso que quero< 😉 vou testar ...

obrigada

tofas

[saramgsilva]

já consegui 😉 ehehhe  obrigada pela ajuda!!!!

Codigo final:

Private Sub Command1_click()

Dim linhas As Integer
Dim colunas As Integer
Dim i As Integer
Dim j As Integer
Dim contador As Integer

Dim temp As String

linhas = Val(Text1.Text)
colunas = Val(Text2.Text)

If linhas = 0 Or colunas = 0 Then
    MsgBox ("Erro....")
Else
    Picture1.Cls
    contador = 0
    
    For i = 1 To linhas
    
        temp = ""  ' ou temp = vbNullString
        For j = 1 To colunas
            contador = contador + 1
            temp = temp & "  " & contador
         
        Next
        Picture1.Print temp
    Next
End If


End Sub

[NuGuN]

😉

Vumps