VB.Net by API/System.Windows.Forms/TextBox
Содержание
- 1 Inherits TextBox
- 2 TextBox.AppendText
- 3 TextBox.BorderStyle
- 4 TextBox.Copy()
- 5 TextBox.DataBindings.Add
- 6 TextBox.DoDragDrop
- 7 TextBox.Enter
- 8 TextBox.Font
- 9 TextBox.KeyPress
- 10 TextBox.Modified
- 11 TextBox.Multiline
- 12 TextBox.PasswordChar
- 13 TextBox.Paste()
- 14 TextBox.ScrollBars
- 15 TextBox.SelectedText
- 16 TextBox.SelectionLength
- 17 TextBox.TextChanged
- 18 TextBox.Validating
Inherits TextBox
<source lang="vbnet"> Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ruponentModel Imports System.Windows.Forms Imports System.IO Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim myform As Form = New Form1() Application.Run(myform) End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim text_box As New NoContextMenuTextBox text_box.Location = New Point(TextBox1.Left, TextBox1.Top + TextBox1.Height + 4) text_box.Size = TextBox1.Size Me.Controls.Add(text_box) End Sub
End Class Public Class NoContextMenuTextBox
Inherits System.Windows.Forms.TextBox Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Const WM_CONTEXTMENU As Integer = &H7B If m.Msg <> WM_CONTEXTMENU Then MyBase.WndProc(m) End If End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(16, 16) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(120, 20) Me.TextBox1.TabIndex = 0 " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(156, 102) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class
</source>
TextBox.AppendText
<source lang="vbnet"> Imports System.Windows.Forms
Module Module1
Sub Main() Application.Run(New Form1) End Sub
End Module
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(32, 40) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(408, 208) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "" " "DateTimePicker1 " Me.DateTimePicker1.Location = New System.Drawing.Point(128, 264) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.TabIndex = 1 " "Button1 " Me.Button1.Location = New System.Drawing.Point(168, 312) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(112, 23) Me.Button1.TabIndex = 2 Me.Button1.Text = "Get Time" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(472, 349) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.DateTimePicker1, Me.TextBox1}) Me.Name = "Form1" Me.Text = "FilesSince" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.AppendText(DateTimePicker1.Value.ToString & " ") End Sub
End Class
</source>
TextBox.BorderStyle
<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class TextBoxTextChanged : inherits Form
dim txt as TextBox dim btn as Button dim strOriginal as string public sub New() Text = "TextBox Modified and TextChanged" Size = new Size(300, 375) txt = new TextBox() txt.Parent = me txt.Text = "Enter text here." txt.Size = new Size(280, 275) txt.Location = new Point(10,10) AddHandler txt.TextChanged, AddressOf txt_TextChanged txt.Multiline = true txt.BorderStyle = BorderStyle.Fixed3D txt.ScrollBars = ScrollBars.Vertical txt.Anchor = AnchorStyles.Left or AnchorStyles.Right or AnchorStyles.Top or AnchorStyles.Bottom strOriginal = txt.Text btn = new Button() btn.Parent = me btn.Text = "Check " btn.Location = new Point(20,320) AddHandler btn.Click, AddressOf btn_Click btn.Anchor = AnchorStyles.Bottom end sub public shared sub Main() Application.Run(new TextBoxTextChanged()) end sub private sub txt_TextChanged(ByVal sender as object,ByVal e as EventArgs) Console.WriteLine("txt_TextChanged") if strOriginal = txt.Text then txt.Modified = false else txt.Modified = true end if end sub private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) if txt.Modified then Console.WriteLine("modified.") strOriginal = txt.Text txt.Modified = false else Console.WriteLine("not been modified." ) end if end sub
end class
</source>
TextBox.Copy()
<source lang="vbnet">
Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class TextBoxCopyPaste
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.TextBox2 = New System.Windows.Forms.TextBox Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(128, 72) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(112, 20) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "" " "Button1 " Me.Button1.Location = New System.Drawing.Point(128, 120) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(112, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Copy Selected Text" " "Label1 " Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(344, 48) Me.Label1.TabIndex = 2 Me.Label1.Text = "Copying Selected Text" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(128, 168) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(112, 20) Me.TextBox2.TabIndex = 3 Me.TextBox2.Text = "" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(360, 253) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Copy() TextBox2.Paste() End Sub
End Class
</source>
TextBox.DataBindings.Add
<source lang="vbnet"> Public Class Form2
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.Container Private WithEvents textBox1 As System.Windows.Forms.TextBox Private WithEvents button1 As System.Windows.Forms.Button "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.textBox1 = New System.Windows.Forms.TextBox() Me.button1 = New System.Windows.Forms.Button() Me.SuspendLayout() " "textBox1 " Me.textBox1.Location = New System.Drawing.Point(48, 56) Me.textBox1.Name = "textBox1" Me.textBox1.TabIndex = 0 Me.textBox1.Text = "textBox1" " "button1 " Me.button1.Location = New System.Drawing.Point(56, 96) Me.button1.Name = "button1" Me.button1.TabIndex = 1 Me.button1.Text = "button1" " "Form2 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.button1, Me.textBox1}) Me.Name = "Form2" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
- End Region
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click Dim sConnection As String = _ "Provider=SQLOLEDB.1;" & _ "Password=sqlpassword;" & _ "Persist Security Info=True;" & _ "User ID=sa;" & _ "Initial Catalog=CD;" & _ "Data Source=(local)" Dim sSQL As String sSQL = "SELECT ArtistID, ArtistName From Artist" Dim objConn _ As New OleDb.OleDbConnection(sConnection) Dim objDataAdapter _ As New OleDb.OleDbDataAdapter(sSQL, objConn) Dim objDS _ As New DataSet("Artists") Dim objDV _ As DataView Try objConn.Open() Catch myException As System.Exception Windows.Forms.MessageBox.Show(myException.Message) End Try If objConn.State = ConnectionState.Open Then Try objDataAdapter.Fill(objDS, "Disc") objConn.Close() Dim objTable As DataTable objTable = objDS.Tables("Disc") objDV = objTable.DefaultView textBox1.DataBindings.Add("Text", objDV, "ArtistName") Catch myexception As Exception Windows.Forms.MessageBox.Show(myException.Message) End Try End If End Sub
End Class
</source>
TextBox.DoDragDrop
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Reflection Imports System.Windows.Forms public class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents TreeView1 As System.Windows.Forms.TreeView Friend WithEvents DestinationTextBox As System.Windows.Forms.TextBox Friend WithEvents SourceTextBox As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.DestinationTextBox = New System.Windows.Forms.TextBox() Me.SourceTextBox = New System.Windows.Forms.TextBox() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.TreeView1 = New System.Windows.Forms.TreeView() Me.SuspendLayout() " "DestinationTextBox " Me.DestinationTextBox.AllowDrop = True Me.DestinationTextBox.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DestinationTextBox.Location = New System.Drawing.Point(4, 166) Me.DestinationTextBox.Multiline = True Me.DestinationTextBox.Name = "DestinationTextBox" Me.DestinationTextBox.Size = New System.Drawing.Size(354, 195) Me.DestinationTextBox.TabIndex = 1 Me.DestinationTextBox.Text = "" " "SourceTextBox " Me.SourceTextBox.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SourceTextBox.Location = New System.Drawing.Point(4, 4) Me.SourceTextBox.Multiline = True Me.SourceTextBox.Name = "SourceTextBox" Me.SourceTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.SourceTextBox.Size = New System.Drawing.Size(354, 144) Me.SourceTextBox.TabIndex = 2 Me.SourceTextBox.Text = "Use your right or left key to drag and drop item in left ListBox or Tree to the bottom TextBox." " "ListBox1 " Me.ListBox1.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ListBox1.ItemHeight = 14 Me.ListBox1.Items.AddRange(New Object() {"Item 1", "Item 2", "Item 3", "Item 4", "Item 5", "Item 6", "Item 7", "Item 8", "Item 9", "Item 10", "Item 11", "Item 12", "Item 13", "Item 14", "Item 15"}) Me.ListBox1.Location = New System.Drawing.Point(370, 4) Me.ListBox1.Name = "ListBox1" Me.ListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended Me.ListBox1.Size = New System.Drawing.Size(190, 144) Me.ListBox1.TabIndex = 3 " "TreeView1 " Me.TreeView1.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TreeView1.ImageIndex = -1 Me.TreeView1.Location = New System.Drawing.Point(370, 166) Me.TreeView1.Name = "TreeView1" Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node0", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node1"), New System.Windows.Forms.TreeNode("Node12", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node13")}), New System.Windows.Forms.TreeNode("Node14"), New System.Windows.Forms.TreeNode("Node15", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node16"), New System.Windows.Forms.TreeNode("Node17")})}), New System.Windows.Forms.TreeNode("Node2", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node3", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node4"), New System.Windows.Forms.TreeNode("Node5"), New System.Windows.Forms.TreeNode("Node6")}), New System.Windows.Forms.TreeNode("Node7"), New System.Windows.Forms.TreeNode("Node8", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node10"), New System.Windows.Forms.TreeNode("Node11")}), New System.Windows.Forms.TreeNode("Node9")})}) Me.TreeView1.SelectedImageIndex = -1 Me.TreeView1.Size = New System.Drawing.Size(187, 195) Me.TreeView1.TabIndex = 4 " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.AutoScroll = True Me.ClientSize = New System.Drawing.Size(564, 367) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView1, Me.ListBox1, Me.SourceTextBox, Me.DestinationTextBox}) Me.Name = "Form1" Me.Text = "Drag and Drop Demo" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Destination_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DestinationTextBox.DragDrop DestinationTextBox.Text = e.Data.GetData(DataFormats.Text).ToString DestinationTextBox.BackColor = Color.White End Sub Private Sub Destination_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DestinationTextBox.DragEnter DestinationTextBox.BackColor = Color.Yellow e.Effect = DragDropEffects.Copy End Sub Private Sub SourceTextBox_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SourceTextBox.MouseDown SourceTextBox.DoDragDrop(SourceTextBox.SelectedText, DragDropEffects.Copy Or DragDropEffects.Move) End Sub Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown Dim i As Integer, selItems As String For i = 0 To ListBox1.SelectedItems.Count - 1 selItems = selItems & ListBox1.SelectedItems.Item(i) & vbCrLf Next SourceTextBox.DoDragDrop(selItems, DragDropEffects.Copy Or DragDropEffects.Move) End Sub Private Sub Destination_DragLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DestinationTextBox.DragLeave DestinationTextBox.BackColor = Color.White End Sub Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown If e.Button = MouseButtons.Right Then TreeView1.DoDragDrop(TreeView1.SelectedNode.Text, DragDropEffects.Copy Or DragDropEffects.Move) End If End Sub
End Class
</source>
TextBox.Enter
<source lang="vbnet">
Imports System.Windows.Forms public class HandleMultipleEventsFromDifferentControls
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub MultipleEvents(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles _ TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, _ TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged Dim activeControl As TextBox activeControl = CType(sender, TextBox) ShowInfo.Text = "TextField #" & _ activeControl.Name & _ ", " & activeControl.Text.Length & " character(s)" End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.TextBox2 = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.TextBox3 = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.ShowInfo = New System.Windows.Forms.Label Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(120, 8) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(160, 20) Me.TextBox1.TabIndex = 1 " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 10) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(93, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Text Box Field #1:" " "Label2 " Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(8, 42) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(93, 13) Me.Label2.TabIndex = 2 Me.Label2.Text = "Text Box Field #2:" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(120, 40) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(160, 20) Me.TextBox2.TabIndex = 3 " "Label3 " Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(9, 72) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(93, 13) Me.Label3.TabIndex = 4 Me.Label3.Text = "Text Box Field #3:" " "TextBox3 " Me.TextBox3.Location = New System.Drawing.Point(121, 70) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(159, 20) Me.TextBox3.TabIndex = 5 " "Label4 " Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(8, 104) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(62, 13) Me.Label4.TabIndex = 6 Me.Label4.Text = "Information:" " "ShowInfo " Me.ShowInfo.AutoSize = True Me.ShowInfo.Location = New System.Drawing.Point(120, 104) Me.ShowInfo.Name = "ShowInfo" Me.ShowInfo.Size = New System.Drawing.Size(27, 13) Me.ShowInfo.TabIndex = 7 Me.ShowInfo.Text = "N/A" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(320, 136) Me.Controls.Add(Me.ShowInfo) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.MaximizeBox = False Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Sharing Control Logic" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents ShowInfo As System.Windows.Forms.Label
End Class
</source>
TextBox.Font
<source lang="vbnet"> Imports System.Windows.Forms public class RadioButtonControlFont
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Public mysize As Integer Public mybold As Boolean Public myItalic As Boolean Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) CheckBox1.Checked = 1 End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged myItalic = Not myItalic TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Regular) If myItalic And mybold Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic) ElseIf myItalic Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic) ElseIf mybold Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold) End If End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mybold = False myItalic = False mysize = 25 End Sub Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged mysize = 36 TextBox1.Font = New System.Drawing.Font("", mysize) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged mysize = 25 TextBox1.Font = New System.Drawing.Font("", mysize) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged mybold = Not mybold TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Regular) If myItalic And mybold Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold) ElseIf myItalic Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic) ElseIf mybold Then TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold) End If End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.CheckBox1 = New System.Windows.Forms.CheckBox Me.CheckBox2 = New System.Windows.Forms.CheckBox Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.RadioButton1 = New System.Windows.Forms.RadioButton Me.RadioButton2 = New System.Windows.Forms.RadioButton Me.TextBox1 = New System.Windows.Forms.TextBox Me.GroupBox1.SuspendLayout() Me.SuspendLayout() " "CheckBox1 " Me.CheckBox1.AutoSize = True Me.CheckBox1.Location = New System.Drawing.Point(230, 34) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(48, 16) Me.CheckBox1.TabIndex = 1 Me.CheckBox1.Text = "Italic" Me.CheckBox1.UseVisualStyleBackColor = True " "CheckBox2 " Me.CheckBox2.AutoSize = True Me.CheckBox2.Location = New System.Drawing.Point(230, 56) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(48, 16) Me.CheckBox2.TabIndex = 2 Me.CheckBox2.Text = "Bold" Me.CheckBox2.UseVisualStyleBackColor = True " "GroupBox1 " Me.GroupBox1.Controls.Add(Me.RadioButton2) Me.GroupBox1.Controls.Add(Me.RadioButton1) Me.GroupBox1.Location = New System.Drawing.Point(224, 85) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(132, 77) Me.GroupBox1.TabIndex = 3 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Font size" " "RadioButton1 " Me.RadioButton1.AutoSize = True Me.RadioButton1.Location = New System.Drawing.Point(6, 20) Me.RadioButton1.Name = "RadioButton1" Me.RadioButton1.Size = New System.Drawing.Size(59, 16) Me.RadioButton1.TabIndex = 1 Me.RadioButton1.TabStop = True Me.RadioButton1.Text = "Larger font" Me.RadioButton1.UseVisualStyleBackColor = True " "RadioButton2 " Me.RadioButton2.AutoSize = True Me.RadioButton2.Location = New System.Drawing.Point(6, 42) Me.RadioButton2.Name = "RadioButton2" Me.RadioButton2.Size = New System.Drawing.Size(59, 16) Me.RadioButton2.TabIndex = 2 Me.RadioButton2.TabStop = True Me.RadioButton2.Text = "Smaller font" Me.RadioButton2.UseVisualStyleBackColor = True " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(12, 12) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(195, 150) Me.TextBox1.TabIndex = 4 Me.TextBox1.Text = "www.vbex.ru" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(368, 174) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.CheckBox2) Me.Controls.Add(Me.CheckBox1) Me.Name = "Form1" Me.Text = "Form1" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class
</source>
TextBox.KeyPress
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1() Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBox1.Location = New System.Drawing.Point(48, 104) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(192, 27) Me.TextBox1.TabIndex = 1 Me.TextBox1.Text = "" " "Label1 " Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(24, 24) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(232, 48) Me.Label1.TabIndex = 2 Me.Label1.Text = "Type somthing" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(292, 268) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.TextBox1}) Me.Name = "Form1" Me.Text = "Key Event Examples" Me.ResumeLayout(False) End Sub
- End Region
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles TextBox1.KeyPress If e.KeyChar < "0" Or e.KeyChar > "9" Then MessageBox.Show("only digits allowed") e.Handled = True End If End Sub
End Class
</source>
TextBox.Modified
<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class TextBoxTextChanged : inherits Form
dim txt as TextBox dim btn as Button dim strOriginal as string public sub New() Text = "TextBox Modified and TextChanged" Size = new Size(300, 375) txt = new TextBox() txt.Parent = me txt.Text = "Enter text here." txt.Size = new Size(280, 275) txt.Location = new Point(10,10) AddHandler txt.TextChanged, AddressOf txt_TextChanged txt.Multiline = true txt.BorderStyle = BorderStyle.Fixed3D txt.ScrollBars = ScrollBars.Vertical txt.Anchor = AnchorStyles.Left or AnchorStyles.Right or AnchorStyles.Top or AnchorStyles.Bottom strOriginal = txt.Text btn = new Button() btn.Parent = me btn.Text = "Check " btn.Location = new Point(20,320) AddHandler btn.Click, AddressOf btn_Click btn.Anchor = AnchorStyles.Bottom end sub public shared sub Main() Application.Run(new TextBoxTextChanged()) end sub private sub txt_TextChanged(ByVal sender as object,ByVal e as EventArgs) Console.WriteLine("txt_TextChanged") if strOriginal = txt.Text then txt.Modified = false else txt.Modified = true end if end sub private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) if txt.Modified then Console.WriteLine("modified.") strOriginal = txt.Text txt.Modified = false else Console.WriteLine("not been modified." ) end if end sub
end class
</source>
TextBox.Multiline
<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class TextBoxTextChanged : inherits Form
dim txt as TextBox dim btn as Button dim strOriginal as string public sub New() Text = "TextBox Modified and TextChanged" Size = new Size(300, 375) txt = new TextBox() txt.Parent = me txt.Text = "Enter text here." txt.Size = new Size(280, 275) txt.Location = new Point(10,10) AddHandler txt.TextChanged, AddressOf txt_TextChanged txt.Multiline = true txt.BorderStyle = BorderStyle.Fixed3D txt.ScrollBars = ScrollBars.Vertical txt.Anchor = AnchorStyles.Left or AnchorStyles.Right or AnchorStyles.Top or AnchorStyles.Bottom strOriginal = txt.Text btn = new Button() btn.Parent = me btn.Text = "Check " btn.Location = new Point(20,320) AddHandler btn.Click, AddressOf btn_Click btn.Anchor = AnchorStyles.Bottom end sub public shared sub Main() Application.Run(new TextBoxTextChanged()) end sub private sub txt_TextChanged(ByVal sender as object,ByVal e as EventArgs) Console.WriteLine("txt_TextChanged") if strOriginal = txt.Text then txt.Modified = false else txt.Modified = true end if end sub private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) if txt.Modified then Console.WriteLine("modified.") strOriginal = txt.Text txt.Modified = false else Console.WriteLine("not been modified." ) end if end sub
end class
</source>
TextBox.PasswordChar
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class PasswordFieldByTextBox
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.TextBox2 = New System.Windows.Forms.TextBox Me.Label1 = New System.Windows.Forms.Label Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(96, 56) Me.TextBox1.Name = "TextBox1" Me.TextBox1.PasswordChar = Microsoft.VisualBasic.ChrW(42) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "" " "Button1 " Me.Button1.Location = New System.Drawing.Point(104, 104) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 1 Me.Button1.Text = "Read Text" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(96, 160) Me.TextBox2.Name = "TextBox2" Me.TextBox2.TabIndex = 2 Me.TextBox2.Text = "" " "Label1 " Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(184, 40) Me.Label1.TabIndex = 3 Me.Label1.Text = "Passwords" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.Text End Sub
End Class
</source>
TextBox.Paste()
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class TextBoxCopyPaste
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.TextBox2 = New System.Windows.Forms.TextBox Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(128, 72) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(112, 20) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "" " "Button1 " Me.Button1.Location = New System.Drawing.Point(128, 120) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(112, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Copy Selected Text" " "Label1 " Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(344, 48) Me.Label1.TabIndex = 2 Me.Label1.Text = "Copying Selected Text" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(128, 168) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(112, 20) Me.TextBox2.TabIndex = 3 Me.TextBox2.Text = "" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(360, 253) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Copy() TextBox2.Paste() End Sub
End Class
</source>
TextBox.ScrollBars
<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class TextBoxTextChanged : inherits Form
dim txt as TextBox dim btn as Button dim strOriginal as string public sub New() Text = "TextBox Modified and TextChanged" Size = new Size(300, 375) txt = new TextBox() txt.Parent = me txt.Text = "Enter text here." txt.Size = new Size(280, 275) txt.Location = new Point(10,10) AddHandler txt.TextChanged, AddressOf txt_TextChanged txt.Multiline = true txt.BorderStyle = BorderStyle.Fixed3D txt.ScrollBars = ScrollBars.Vertical txt.Anchor = AnchorStyles.Left or AnchorStyles.Right or AnchorStyles.Top or AnchorStyles.Bottom strOriginal = txt.Text btn = new Button() btn.Parent = me btn.Text = "Check " btn.Location = new Point(20,320) AddHandler btn.Click, AddressOf btn_Click btn.Anchor = AnchorStyles.Bottom end sub public shared sub Main() Application.Run(new TextBoxTextChanged()) end sub private sub txt_TextChanged(ByVal sender as object,ByVal e as EventArgs) Console.WriteLine("txt_TextChanged") if strOriginal = txt.Text then txt.Modified = false else txt.Modified = true end if end sub private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) if txt.Modified then Console.WriteLine("modified.") strOriginal = txt.Text txt.Modified = false else Console.WriteLine("not been modified." ) end if end sub
end class
</source>
TextBox.SelectedText
<source lang="vbnet">
Imports System.Windows.Forms Imports System.Drawing.Text Imports System.Drawing Imports System.Drawing.Drawing2D public class TextBoxSelectionLength
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.SelectionLength = 0 Then MessageBox.Show(TextBox1.Text) Else MessageBox.Show(TextBox1.SelectedText) End If End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(12, 12) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(410, 137) Me.TextBox1.TabIndex = 0 " "Button1 " Me.Button1.Location = New System.Drawing.Point(150, 173) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(131, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Display selected text" Me.Button1.UseVisualStyleBackColor = True " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(434, 208) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button
End Class
</source>
TextBox.SelectionLength
<source lang="vbnet">
Imports System.Windows.Forms Imports System.Drawing.Text Imports System.Drawing Imports System.Drawing.Drawing2D public class TextBoxSelectionLength
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.SelectionLength = 0 Then MessageBox.Show(TextBox1.Text) Else MessageBox.Show(TextBox1.SelectedText) End If End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(12, 12) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(410, 137) Me.TextBox1.TabIndex = 0 " "Button1 " Me.Button1.Location = New System.Drawing.Point(150, 173) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(131, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Display selected text" Me.Button1.UseVisualStyleBackColor = True " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(434, 208) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button
End Class
</source>
TextBox.TextChanged
<source lang="vbnet">
Imports System.Windows.Forms public class HandleMultipleEventsFromDifferentControls
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub MultipleEvents(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles _ TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, _ TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged Dim activeControl As TextBox activeControl = CType(sender, TextBox) ShowInfo.Text = "TextField #" & _ activeControl.Name & _ ", " & activeControl.Text.Length & " character(s)" End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.TextBox2 = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.TextBox3 = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.ShowInfo = New System.Windows.Forms.Label Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(120, 8) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(160, 20) Me.TextBox1.TabIndex = 1 " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 10) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(93, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Text Box Field #1:" " "Label2 " Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(8, 42) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(93, 13) Me.Label2.TabIndex = 2 Me.Label2.Text = "Text Box Field #2:" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(120, 40) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(160, 20) Me.TextBox2.TabIndex = 3 " "Label3 " Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(9, 72) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(93, 13) Me.Label3.TabIndex = 4 Me.Label3.Text = "Text Box Field #3:" " "TextBox3 " Me.TextBox3.Location = New System.Drawing.Point(121, 70) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(159, 20) Me.TextBox3.TabIndex = 5 " "Label4 " Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(8, 104) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(62, 13) Me.Label4.TabIndex = 6 Me.Label4.Text = "Information:" " "ShowInfo " Me.ShowInfo.AutoSize = True Me.ShowInfo.Location = New System.Drawing.Point(120, 104) Me.ShowInfo.Name = "ShowInfo" Me.ShowInfo.Size = New System.Drawing.Size(27, 13) Me.ShowInfo.TabIndex = 7 Me.ShowInfo.Text = "N/A" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(320, 136) Me.Controls.Add(Me.ShowInfo) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.MaximizeBox = False Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Sharing Control Logic" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents ShowInfo As System.Windows.Forms.Label
End Class
</source>
TextBox.Validating
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1)
End Sub
End Class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtFirstName As System.Windows.Forms.TextBox Friend WithEvents txtLastName As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents errProvider As System.Windows.Forms.ErrorProvider Friend WithEvents txtEmail As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtFirstName = New System.Windows.Forms.TextBox() Me.txtLastName = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.errProvider = New System.Windows.Forms.ErrorProvider() Me.txtEmail = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.SuspendLayout() " "GroupBox1 " Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.txtEmail, Me.Label2, Me.Label1, Me.txtFirstName, Me.txtLastName}) Me.GroupBox1.Location = New System.Drawing.Point(8, 8) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(368, 124) Me.GroupBox1.TabIndex = 11 Me.GroupBox1.TabStop = False " "Label2 " Me.Label2.Location = New System.Drawing.Point(16, 52) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(64, 16) Me.Label2.TabIndex = 8 Me.Label2.Text = "Last Name:" " "Label1 " Me.Label1.Location = New System.Drawing.Point(16, 28) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(64, 16) Me.Label1.TabIndex = 7 Me.Label1.Text = "First Name:" " "txtFirstName " Me.txtFirstName.Location = New System.Drawing.Point(84, 24) Me.txtFirstName.Name = "txtFirstName" Me.txtFirstName.Size = New System.Drawing.Size(152, 21) Me.txtFirstName.TabIndex = 4 Me.txtFirstName.Text = "" " "txtLastName " Me.txtLastName.Location = New System.Drawing.Point(84, 48) Me.txtLastName.Name = "txtLastName" Me.txtLastName.Size = New System.Drawing.Size(152, 21) Me.txtLastName.TabIndex = 5 Me.txtLastName.Text = "" " "Button1 " Me.Button1.Location = New System.Drawing.Point(152, 204) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(76, 24) Me.Button1.TabIndex = 10 Me.Button1.Text = "OK" " "txtEmail " Me.txtEmail.Location = New System.Drawing.Point(84, 84) Me.txtEmail.Name = "txtEmail" Me.txtEmail.Size = New System.Drawing.Size(152, 21) Me.txtEmail.TabIndex = 9 Me.txtEmail.Text = "" " "Label3 " Me.Label3.Location = New System.Drawing.Point(16, 88) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(64, 16) Me.Label3.TabIndex = 10 Me.Label3.Text = "Email:" " "ErrorProviderValidation " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.ClientSize = New System.Drawing.Size(388, 238) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.Button1}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "ErrorProviderValidation" Me.Text = "ErrorProvider Validation" Me.GroupBox1.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles txtFirstName.Validating, txtLastName.Validating If CType(sender, TextBox).Text = "" Then errProvider.SetError(sender, "You must enter a first and last name.") Else errProvider.SetError(sender, "") End If End Sub
End Class
</source>