Vb.net with access data base 2

Vb.net with access data base 2



'Interop.ADODB.Dll
Imports ADODB


Public Class Form1

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











        con = New ADODB.Connection
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=vbdotnetwithaccess.mdb"
        con.Open()







        Dim RS As New ADODB.Recordset

Vb.net with access Data Base 1

Vb.net with access Data Base tutorial



'Interop.ADODB.dll
Imports ADODB

Public Class Form1



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







        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Please Enter the value")
            Exit Sub
        End If






        Dim con As ADODB.Connection
        con = New ADODB.Connection

Delegate tutorial vb.net

Delegate tutorial vb.net


Public Class Form1
    Delegate Sub SubStr(ByVal str As String)

    Protected Sub DelegTest()
        Dim FRM As New Form2
        Dim SStr As SubStr = AddressOf FRM.TestCls
        SStr.Invoke("Delegate Run")......

List View tutorial vb.net

List View tutorial vb.net


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.Columns.Add("Colum A", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Colum B", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Colum C", 100, HorizontalAlignment.Left)

        Dim SingleItem As ListViewItem.....

Date-Time Format Strings tutorial vb.net

Date-Time Format Strings tutorial vb.net



Imports System.Threading
Imports System.Globalization
Imports System.Text

Public Class Form1

    Private formHasLoaded As Boolean = False
    Private cultureValue As String
    Private Sub DateTimeChech()
        Dim dtmNow As DateTime = Now
        Dim sb As New StringBuilder()

        sb.Append("When using " & cultureValue & " CultureInfo, today's date and time will format as follows:")
        sb.Append(vbCrLf)
        sb.Append(vbCrLf)

        AppendLine(sb, dtmNow.ToString("d"), " Short date pattern")
        AppendLine(sb, dtmNow.ToString("D"), " Long date pattern").....

Animation tutorial vb.net

Animation tutorial vb.net


Imports System.Drawing.Text
Imports System.Drawing.Drawing2D

Public Class Form1

    Protected currentGradientShift As Integer = 10
    Protected gradiantStep As Integer = 5

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

        Dim grfx As Graphics = CreateGraphics()
        Dim font As New Font("Microsoft Sans Serif", 25, _
            FontStyle.Bold, GraphicsUnit.Point)
        Dim strText As String = "www.vbsourcecodef.blogspot.com"
        Dim sizfText As New SizeF(grfx.MeasureString(strText, font))
        Dim ptfTextStart As New PointF(CSng(ClientSize.Width - sizfText.Width) / 2, CSng(ClientSize.Height - sizfText.Height) / 2)......

Set proxy Gecko web browser tutorial

Set proxy Gecko web browser tutorial


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fxb.Navigate("http://www.vbdotnet3school.blogspot.com")
    End Sub

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

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

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        fxb.Navigate(ComboBox1.Text)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Skybound.Gecko.GeckoPreferences.User("network.proxy.type") = 1
        Skybound.Gecko.GeckoPreferences.User("network.proxy.share_proxy_settings") = True

Gecko Web Browser tutorial vb.net

Gecko Web Browser tutorial vb.net


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fxb.Navigate("http://www.vbdotnet3school.blogspot.com")
    End Sub

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

Mouse Location tutorial vb.net

Mouse Location tutorial vb.net



Public Class Form1

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Label1.Text = "X   " & e.Location.X & "   Y   " & e.Location.Y
    End Sub......

Proxy tutorial vb.net

Proxy tutorial vb.net




Public Class Form1

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

        sProxy.SetProxy(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sProxy As New IEProxy
        sProxy.DisableProxy()
    End Sub
End Class



Imports System
Imports System.Runtime.InteropServices......

Create Text File VB.net

Create Text File VB.net

Make MyFolder Folder and then run the project

Public Class Form1

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

Clip Board tutorial Vb.net

Clip Board tutorial Vb.net

Public Class Form1

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

        My.Computer.Clipboard.Clear().......

Check internet connection tutorial Vb.net

Check internet connection tutorial Vb.net


Imports System.Runtime.InteropServices





Public Class Form1



    <DllImport("wininet.dll")> Private Shared Function InternetGetConnectedState(<System.Runtime.InteropServices.Out()> ByRef Description As Integer, ByVal ReservedValue As Integer) As Boolean
    End Function.......

System ip address tutorial VB.net

System ip address tutorial VB.net


Imports System.Net
Public Class Form1




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hostname As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = hostname.AddressList......

Auto clicker tutorial vb.net

Auto clicker tutorial vb.net

Imports System

Public Class Form1

    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

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

        MyMethod()......

   

Text Calculator tutorial VB.net

Text Calculator tutorial VB.net

Public Class Form1

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

         TextBox3.Text = Information.VarType(TextBox1) + Information.VarType(TextBox2.Text)

        TextBox1.Text = "".......

Array tutorial vb.net

Array tutorial vb.net


Public Class Form1
    Dim ArrayVAr(4) As String

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

        ArrayVAr(0) = "Lahor"
        ArrayVAr(1) = "Multan"......

VB Source Code

Free tutorial vb.net vb6 sql mysql access data base