sábado, 1 de outubro de 2011

on

Public Class Form1

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

        'Monta um ArrayList de Softwares
        Dim ArraySoft As New ArrayList
        With ArraySoft
            .Add("Word")
            .Add("Excel")
            .Add("Access")
            .Add("PowerPoint")
            .Add("Visual Studio")
            .Add("Visio")
            .Sort() 'Classifica a lista em ordem alfabética
        End With
        With Me.lstSoftwares 'listbox onde será exibida a lista
            .DataSource = ArraySoft 'Origem dos dados que serão exibidos no listbox
            .SelectedIndex = 0 'Será selecionado o primeiro item
        End With

    End Sub
End Class


0 comentários:

Postar um comentário

:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.