Visual Basic .Net Window Programming

Horizontal and Vertical Scroll Bar,Numeric Scroll Bar,Progress Bar and Domain Name Scroll Bar Demo

Public Class Form1

    Dim i As Integer

    Private Sub VScrollBar1_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll

        lblR.Text = VScrollBar1.Value

        Me.BackColor = Color.FromArgb(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)

    End Sub

    Private Sub VScrollBar2_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar2.Scroll

        lblG.Text = VScrollBar2.Value

        Me.BackColor = Color.FromArgb(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)

    End Sub

    Private Sub VScrollBar3_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar3.Scroll

        lblB.Text = VScrollBar3.Value

        Me.BackColor = Color.FromArgb(VScrollBar1.Value, VScrollBar2.Value, VScrollBar3.Value)

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblHR.Click

    End Sub

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

        lblHR.Text = HScrollBar1.Value

        Me.BackColor = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)

    End Sub

    Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll

        lblHG.Text = HScrollBar2.Value

        Me.BackColor = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)

    End Sub

    Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll

        lblHB.Text = HScrollBar3.Value

        Me.BackColor = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)

    End Sub

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        DomainUpDown1.Items.Add(TextBox1.Text)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        i = i + 10

        If i <= 100 Then

            ProgressBar1.Value = i

        Else

            i = 0

        End If

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        MsgBox(NumericUpDown1.Value)

    End Sub

End Class

Gridview Connectivity using VB.Net

Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=bsw.mdb")

        Dim com As New OleDbCommand

        com.Connection = con

        Try

            con.Open()

            com.CommandText = "insert into stu values(" & Val(TextBox1.Text) & ",'" & TextBox2.Text & "','" & TextBox3.Text & "')"

            com.ExecuteNonQuery()

            MsgBox("Save")

            fill_grid()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox(Application.StartupPath.ToString())

    End Sub

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

        con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=bsw.mdb"

        fill_grid()

    End Sub

    Private Sub fill_grid()

        Dim da As New OleDbDataAdapter("select * from stu", con)

        Dim ds As New DataSet

        da.Fill(ds, "girfa")

        DataGridView1.DataSource = ds.Tables("Girfa")

    End Sub

End Class

Add Custom Cursor to control (VB.Net)

Cursor is a small graphic image that we used as mouse pointer. When we move our mouse over a  control an image is moved which is cursor. you can change any control pointer when user hover the mouse on a particular control here is coding which enable you to change cursor pointer of button. In VB.net every control has a property cursor which has predefined set of cursor So I am making code for apply your default cursor

You can get many cursor form C:\Windows\Cursors

Public Class Form1

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

        Button1.Cursor = New Cursor("test.cur")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

End Class

DataTable Class

   Represents one table of in-memory data.

Remarks

The DataTable is a central object in the ADO.NET library. Other objects that use the DataTable include the DataSet and the DataView.

When accessing DataTable objects, note that they are conditionally case sensitive. For example, if one DataTable is named "mydatatable" and another is named "Mydatatable", a string used to search for one of the tables is regarded as case sensitive. However, if "mydatatable" exists and "Mydatatable" does not, the search string is regarded as case insensitive. A DataSet can contain two DataTable objects that have the same TableName property value but different Namespace property values. For more information about working with DataTable objects, see Creating a DataTable (ADO.NET).

If you are creating a DataTable programmatically, you must first define its schema by adding DataColumn objects to the DataColumnCollection (accessed through the Columns property). For more information about adding DataColumn objects, see Adding Columns to a DataTable (ADO.NET).

To add rows to a DataTable, you must first use the NewRow method to return a new DataRow object. The NewRow method returns a row with the schema of the DataTable, as it is defined by the table's DataColumnCollection. The maximum number of rows that a DataTable can store is 16,777,216. For more information, see Adding Data to a DataTable.
The DataTable also contains a collection of Constraint objects that can be used to ensure the integrity of the data. For more information, see DataTable Constraints (ADO.NET).
There are many DataTable events that can be used to determine when changes are made to a table. These include RowChanged, RowChanging, RowDeleting, and RowDeleted. For more information about the events that can be used with a DataTable, see DataTable Event Handling.

Public Class Form1

    Dim dt As New DataTable

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

        Dim c1 As New DataColumn()

        Try

            c1.DataType = System.Type.GetType("System.Int32")

            c1.ColumnName = "roll"

            c1.AutoIncrement = True

            c1.AutoIncrementSeed = 1

            c1.AutoIncrementStep = 1

            dt.Columns.Add(c1)

            c1 = New DataColumn

            c1.DataType = System.Type.GetType("System.String")

            c1.ColumnName = "name"

            dt.Columns.Add(c1)

            DataGridView1.DataSource = dt

            c1 = New DataColumn

            c1.DataType = System.Type.GetType("System.String")

            c1.ColumnName = "city"

            dt.Columns.Add(c1)

        Catch ex As Exception

            MsgBox("Error in form load " & vbCrLf & ex.Message)

        End Try

    

    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        If txtName.Text = "" Or txtCity.Text = "" Then

            MsgBox("plz fill all fields properly")

        Else

            Dim dr As DataRow

            dr = dt.NewRow

            'dr(0) = Val(txtRoll.Text)

            dr(1) = txtName.Text

            dr(2) = txtCity.Text

            dt.Rows.Add(dr)

            DataGridView1.DataSource = dt

        End If

    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

    End Sub

    Private Sub txtRoll_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles txtRoll.HelpRequested

        Help.ShowPopup(txtRoll, "User is restricted to enter value in this field,because it is setup to auto increment", hlpevent.MousePos)

    End Sub

End Class

HelpButton

When this property is set to true, a small button with a question mark appears in the caption bar to the left of the Close button. You can use this button to display help for your application. You can create an event handler for the HelpRequested event of the Control class to display Help information to the user when the Help button of the form is clicked.

The value of the HelpButton property is ignored if the Maximize or Minimize buttons are shown.

HelpRequested Event

Occurs when the user requests help for a control. The HelpRequested event is commonly raised when the user presses the F1 key or an associated context-sensitive help button is clicked.

Public Class Form1

    Private Sub Button1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles Button1.HelpRequested

        Help.ShowPopup(Button1, "Button is most useful control" & vbCrLf & "to implement some action on click", hlpevent.MousePos)

    End Sub

    Private Sub CheckBox1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles CheckBox1.HelpRequested

        Help.ShowPopup(CheckBox1, "This is check box " & vbCrLf & "A GUI control that enable you to " & vbCrLf & _

               "select more than one option from multiple choice", hlpevent.MousePos)

    End Sub

    Private Sub DateTimePicker1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles DateTimePicker1.HelpRequested

        Help.ShowPopup(DateTimePicker1, "This is DateTimePicker " & vbCrLf & "Enable you to select a date", hlpevent.MousePos)

    End Sub

    Private Sub ListBox1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles ListBox1.HelpRequested

        Help.ShowPopup(ListBox1, "A Windows Forms ListBox control displays" & vbCrLf & " a list of items from which" & vbCrLf & _

                " can select one or more.", hlpevent.MousePos)

    End Sub

    Private Sub RadioButton1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles RadioButton1.HelpRequested

        Help.ShowPopup(RadioButton1, "Radio Button enables you to " & vbCrLf & "Select one option at a time " & vbCrLf & _

               "From multiple option", hlpevent.MousePos)

    End Sub

    Private Sub PictureBox1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles PictureBox1.HelpRequested

        Help.ShowPopup(PictureBox1, "This is picture box used to display image on form", hlpevent.MousePos)

    End Sub

End Class

Multiple Tables in Gridview

Gridview a control that is used to display records on form you can show more one table data in grid view by making some tricks.Gridview use data source properties for display records its uses data table . Dataset a class design to hold more that table simultaneously so I setup dataset with more than one table and setup table index to Gridview by combobox.

Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection

    Dim ds As New DataSet

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

        con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=bsw.mdb"

        Try

            con.Open()

            com.Connection = con

            Dim da As New OleDbDataAdapter("select * from stu", con)

            da.Fill(ds, "stu")

            da = New OleDbDataAdapter("select * from emp", con)

            da.Fill(ds, "emp")

        Catch ex As Exception

            MsgBox("Error form load " & vbCrLf & ex.Message)

        End Try

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        DataGridView1.DataSource = ds.Tables(ComboBox1.Text)

    End Sub

End Class

NotifyIcon Class

Specifies a component that creates an icon in the notification area. This class cannot be inherited.

Remarks

Icons in the notification area are shortcuts to processes that are running in the background of a computer, such as a virus protection program or a volume control. These processes do not come with their own user interfaces. The NotifyIcon class provides a way to program in this functionality. The Icon property defines the icon that appears

Controls

1)Notification Icon    2) Button

Properties Setting

Notification Icon

BalloonTipIcon=info

BalloonTipText=This is demo text for notification

BalloonTipTitle=”Girfa”

Text=Girfa Application

Coding

   Private Sub NotifyIcon1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click

        MsgBox("clicked on notification icon")

    End Sub

    Private Sub NotifyIcon1_BalloonTipClicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked

        MsgBox("clicked on icon")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NotifyIcon1.ShowBalloonTip(2000)

    End Sub