sexta-feira, 12 de outubro de 2012

on


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        With DataGridView1
            .Rows.Add("15h30", "Operadora francesa se desculpa por blecaute de 9 horas em celulares")
            .Rows.Add("13h00", "Apple pode dominar mercado com iPad menor, dizem especialistas")
            .Rows.Add("09h01", "Loja de eletrônicos Best Buy anuncia corte de 2.400 funcionários nos EUA")
            .Rows.Add("07h00", "Em game, Anderson Silva vence Chael Sonnen no UFC 148 por pontos")
            .Rows.Add("06h23", "Twitter muda sistema de busca para apresentar resultados instantâneos")
        End With

    End Sub

    Private Sub btnItens_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnItens.Click

        Dim ContLinhas As Integer
        Dim i As Integer

        Me.txtItens.Text = ""

        ContLinhas = Me.DataGridView1.RowCount

        For i = 0 To ContLinhas - 1
            Me.txtItens.Text &= CStr(Me.DataGridView1.Item(0, i).Value) + " | " + CStr(Me.DataGridView1.Item(1, i).Value) + vbCrLf
        Next

    End Sub

End Class

Pegue o projeto neste link: http://www.mediafire.com/?y4a9z35268an5ah
Espero ter ajudado, até a próxima... Abraços.

0 comentários:

Postar um comentário