TextBox.ScrollBars : TextBox « System.Windows.Forms « VB.Net by API

1. VB.Net by API
2. System.Windows.Forms
3. TextBox

TextBox.ScrollBars

  
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

   
    
  

Related examples in the same category