• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

saramgsilva

Dúvida picturebox - apresentação dos dados

6 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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  ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora