VB Project Source Code

Thursday 11 June 2015

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




Wednesday 10 June 2015

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









Monday 8 June 2015

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")......




Saturday 6 June 2015

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").....





Thursday 4 June 2015

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