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