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