Monday 8/1/2011

Dim seekString As String = "Visual"
Dim strLocation As Long
strLocation = TextBox1.Text.IndexOf(seekString)
If strLocation > 0 Then
TextBox1.SelectionStart = strLocation
TextBox1.SelectionStart = seekString.Length
End If
TextBox1.ScrollToCaret()

---

Private Sub EditCopyItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditCopyItem.Click
If txtEditor.SelectionLength > 0 Then
Clipboard.SetText(txtEditor.SelectedText)
End If
End Sub

Private Sub EditCutItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditCutItem.Click
Clipboard.SetText(txtEditor.SelectedText)
txtEditor.SelectedText = ""
End Sub


Private Sub EditPasteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditPasteItem.Click
If Clipboard.ContainsText Then
txtEditor.SelectedText = Clipboard.GetText
End If
End Sub

---

Dim ListItem As String
ListItem = InputBox("Enter new item's name")
If ListItem.Trim <> "" Then
sourceList.Items.Add(ListItem)
End If

---

While sourceList.SelectedIndices.Count > 0
destinationList.Items.Add(sourceList.Items(sourceList.SelectedIndices(0)))
sourceList.Items.Remove(sourceList.Items(sourceList.SelectedIndices(0)))
End While

---

Private Sub AddElement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddElement.Click
Dim itm As String
itm = InputBox("Enter new item", "New Item")
If itm.Trim <> "" Then AddElem(itm)
End Sub

Sub AddElem(ByVal newItem As String)
Dim idx As Integer
If ComboBox1.FindString(newItem) > 0 Then
idx = ComboBox1.FindString(newItem)
Else
idx = ComboBox1.Items.Add(newItem)
End If
ComboBox1.SelectedIndex = idx
End Sub

---

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class AddressOfWithEvents : Inherits System.Windows.Forms.Form

Dim WithEvents btn As Button

Public Sub New()
btn = New Button()
btn.Location = New Point(50, 50)
btn.Text = "test"

Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_click
End Sub

Private Sub btn_click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("btn_click method", "events demonstration")
End Sub

Private Sub btn_ClickHandles(ByVal sender As Object, ByVal e As EventArgs) Handles btn.Click
MessageBox.Show("btn_ClickHandles method", "Events Demonstration")
End Sub

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

Public Shared Sub Main()
Application.Run(New AddressOfWithEvents())
End Sub
End Class