Friday 11/05/10

I am going to be working with Michael Halvorsons tutorials on working with object collections

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each ctrl In Controls
ctrl.text = "click me!"


Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each ctrl In Controls
ctrl.Left = ctrl.Left + 25
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For Each ctrl In Controls
If ctrl.Name <> "Button1" Then
ctrl.Left = ctrl.Left + 30
End If
Next
End Sub

Here is another tutorial

Dim URLSVisited As New Collection()



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

End Sub


Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
URLSVisited.Add(TextBox1.Text)
System.Diagnostics.Process.Start(TextBox1.Text)

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim URLName As String = "", AllURLS As String = ""
For Each URLName In URLSVisited
AllURLS = AllURLS & URLName & vbCrLf
Next URLName
MsgBox(AllURLS, MsgBoxStyle.Information, "Web sites visisted")

End Sub