Sobre Grids no VB

Olá a Tds,

Estou migrando para o VB, devido as opções do mercado. Bom mais o foco não é este gostaria de saber se existe um grid fora o DataGridView, para trabalhar com valores de variaveis, ou se o DataGridView faz isto?

Estou enviando um codigo do exemplo q fiz para verem que criei e estou exibindo os valores dentro de um TextBox(txt_view.text), só q gostária de exibir estes valores dentro de um Grid.

Agradeço a Atenção de tds

Objetos Propiedades
TextBox1 name txt_view
TextBox2 name txt_pesq
TextBox3 name txt_result
Button1 name btn_inserir
Button2 name btn_org
Button3 name btn_limpar
Button4 name btn_pesq

'Criar duas matrizes A e B,
'Ler os valores da matriz A
'Para B() <- A()* 5
'O Botão Organizar irá fazer uma organização somente na matriz B por ordem crescente
'O Botão Inserir irá adcionar os valores de A
'A pesquisa filtra os valores de B

Public Class Form1
    Dim col_a(0 To 7) As Integer
    Dim col_b(0 To 7) As Integer

    Private Sub Btn_org_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_org.Click
        Dim i, j, x As Integer
        Dim result As String
        result = "Os valores das matrizes A e B:" & vbCrLf & vbCrLf
        For i = 0 To UBound(col_b)
            For j = i To UBound(col_b)
                If col_b(i) > col_b(j) Then
                    x = col_b(i)
                    col_b(i) = col_b(j)
                    col_b(j) = x
                End If
            Next
            result = result & col_a(i) & vbTab & col_b(i) & vbCrLf
        Next
        Txt_view.Text = result
    End Sub

    Private Sub Btn_inserir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_inserir.Click
        Dim prompt, Title, result As String
        Dim i As Integer
        result = "Os valores das matrizes A e B:" & vbCrLf & vbCrLf
        prompt = "Entra com os valores da coluna A de nº:"
        For i = 0 To UBound(col_a)
            Title = "Nº" & (i + 1)
            col_a(i) = InputBox(prompt & (i + 1), Title)
            col_b(i) = col_a(i) * 5
            result = result & col_a(i) & vbTab & col_b(i) & vbCrLf
        Next
        Txt_view.Text = result

        Btn_org.Enabled = True
        btn_limpar.Enabled = True
    End Sub

    Private Sub btn_limpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_limpar.Click
        Txt_view.Text = ""
        Btn_org.Enabled = False
        btn_Pesq.Enabled = False
        Txt_Pesq.Enabled = False
        btn_limpar.Enabled = False
        txt_result.Text = ""
        Txt_Pesq.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Btn_org.Enabled = False
        btn_Pesq.Enabled = False
        Txt_Pesq.Enabled = False
        btn_limpar.Enabled = False
    End Sub

    Private Sub btn_Pesq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Pesq.Click
        Dim i, x As Integer
        Dim pesq As Boolean
        i = 0
        pesq = False
        x = Txt_Pesq.Text
        While (i <= UBound(col_b)) And (pesq = False)
            If (x = col_b(i)) Then
                pesq = True
                x = col_b(i)
            Else
                i = i + 1
            End If
        End While

        If (pesq = True) Then
            txt_result.Text = x
        Else
            MsgBox("Número não localizado")
        End If
    End Sub

    Private Sub rdb_pesq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_pesq.Click
        If Txt_view.Text <> "" Then
            btn_Pesq.Enabled = True
            Txt_Pesq.Enabled = True
        Else
            MsgBox("Não existe valor a ser pesquisado")
        End If
    End Sub
End Class

Topicos relacionados