How To Make Scrolling Text In Textbox And Label In VB.NET

this is a good snippet and this will be very useful for you , lets start

1.open visual basic 2008/2010

2. create a new project

3. add a textbox and a timer

4. enable the timer

5.write something in the textbox (textbox1 > properties > text )

How To Make A Application Launcher In VB.NET

this is a simple thing this works like run which you can find on windows xp,windows vista,windows 7,etc


you can use this to open programs,folders,documents and website etc

so lets get started

1. open visual basic 2008/2010

2. create a new project

3. name it whatever you want

4. add 3 buttons 

5. change the text property of them as below

button1 - ok
button2 - browse
button3 - cancel

6 . add a textbox and change property multiline - true

7. add a openfiledialog

8. make your form look like this





9. double click your form and add this code
'Author : Mohamed Shimran
'Blog : http://ultimateprogrammingtutorials.blogspot.com
Public Class Form1

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

        OpenFileDialog1.FileName = " "
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

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

    End Sub

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


    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

10. now debug and type commands that you usually do with windows run and press ok , it'll work

for example just type http://www.google.com in the textbox and press ok then your default browser will open and you will be navigated to website



How To Make A Simple Web Browser In C#

This is my first c# tutorial and its about making a web browser . this web browser doesnt have advanced controls this is just a simple one

lets begin making a simple web browser

1. open your visual c# 2008/2010

2.create a new project and name it whatever you want

3.edit your form properties like text and icon

4. now go to toolbox and grab web browser control inside the form


How To Make A Drop-Down Effect In VB.NET

oh after a little bit time i am here to write a tutorial i am glad about it , this tutorial is about making a drop down effect in visual basic . net its pretty simple , lets make it

1 .open your most favorite visual studio 2008/2010

2 . create a new project and name it whatever you want

3 . add a button

4 . add a panel

5 .set the panel size to 426, 220

6 . set the form size to 466, 305

7 . make your form look like this

How To Make A Sharecash Mirror Link Creator In VB.NET

sharecash is a best PPD (pay per download) website where you upload your files and get paid for downloads now you gonna learn how to make a sharecash mirror link creator in vb.net its pretty easy but its very useful it works like this for example you have a link http://verified-download.com/file/0OBo2 and you want to change that link or we can say generate mirror links

so lets get started as usual just open your favourite visual basic 2008/2010 and make a new project and name it whatever you want and form will load and go to toolbox and add two textboxes and a button textbox1 is for the original link and textbox2 for the mirror link now go to button1 properties and change the text to create mirror link or whatever you want and at last just double click your form and delete everything and paste the code

How To Use Themes In VB.NET : Using Ghost Theme

today i am up with a small thing i know all of you hate the windows GUI so i have decided to write here how to use themes in vb.net nowadays many programmers make themes and release them on the internet ok lets get started

just open your favourite visual basic 2008/2010 and make a new project and name it whatever you want now your form will load and now just add a new class

How To Add A Syntax Highlighter In VB.NET

how to add a syntax highlighter in vb.net this is the easiest and the best way to do it so lets get start

open your visual basic 2008/2010 now make a new project or if you have a project to add this syntax highlighter just open your project anyway i will go with a new project create a new project and name it whatever you want and go to the form and make a new class and paste this code inside the class


Public Class SyntaxRTB

    Inherits System.Windows.Forms.RichTextBox

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As Integer) As Integer

    Private _SyntaxHighlight_CaseSensitive As Boolean = False

    Private Words As New DataTable

    'Contains Windows Messages for the SendMessage API call
    Private Enum EditMessages
        LineIndex = 187
        LineFromChar = 201
        GetFirstVisibleLine = 206
        CharFromPos = 215
        PosFromChar = 1062
    End Enum

    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        ColorVisibleLines()
    End Sub

    Public Sub ColorRtb()
        Dim FirstVisibleChar As Integer
        Dim i As Integer = 0

        While i < Me.Lines.Length
            FirstVisibleChar = GetCharFromLineIndex(i)
            ColorLineNumber(i, FirstVisibleChar)
            i += 1
        End While
    End Sub

    Public Sub ColorVisibleLines()
        Dim FirstLine As Integer = FirstVisibleLine()
        Dim LastLine As Integer = LastVisibleLine()
        Dim FirstVisibleChar As Integer

        If (FirstLine = 0) And (LastLine = 0) Then
            'If there is no text it will error, so exit the sub
            Exit Sub
        Else
            While FirstLine < LastLine
                FirstVisibleChar = GetCharFromLineIndex(FirstLine)
                ColorLineNumber(FirstLine, FirstVisibleChar)
                FirstLine += 1
            End While
        End If

    End Sub

    Public Sub ColorLineNumber(ByVal LineIndex As Integer, ByVal lStart As Integer)
        Dim i As Integer = 0
        Dim Instance As Integer
        Dim LeadingChar, TrailingChar As String
        Dim SelectionAt As Integer = Me.SelectionStart
        Dim MyRow As DataRow
        Dim Line() As String, MyI As Integer, MyStr As String

        ' Lock the update
        LockWindowUpdate(Me.Handle.ToInt32)

        MyI = lStart

        If CaseSensitive Then
            Line = Split(Me.Lines(LineIndex).ToString, " ")
        Else
            Line = Split(Me.Lines(LineIndex).ToLower, " ")
        End If

        For Each MyStr In Line
            Me.SelectionStart = MyI
            Me.SelectionLength = MyStr.Length

            If Words.Rows.Contains(MyStr) Then
                MyRow = Words.Rows.Find(MyStr)
                If (Not CaseSensitive) Or (CaseSensitive And MyRow("Word") = MyStr) Then
                    Me.SelectionColor = Color.FromName(MyRow("Color"))
                End If
            Else
                Me.SelectionColor = Color.Black
            End If

            MyI += MyStr.Length + 1
        Next

        ' Restore the selectionstart
        Me.SelectionStart = SelectionAt
        Me.SelectionLength = 0
        Me.SelectionColor = Color.Black

        ' Unlock the update
        LockWindowUpdate(0)
    End Sub

    Public Function GetCharFromLineIndex(ByVal LineIndex As Integer) As Integer
        Return SendMessage(Me.Handle, EditMessages.LineIndex, LineIndex, 0)
    End Function

    Public Function FirstVisibleLine() As Integer
        Return SendMessage(Me.Handle, EditMessages.GetFirstVisibleLine, 0, 0)
    End Function

    Public Function LastVisibleLine() As Integer
        Dim LastLine As Integer = FirstVisibleLine() + (Me.Height / Me.Font.Height)

        If LastLine > Me.Lines.Length Or LastLine = 0 Then
            LastLine = Me.Lines.Length
        End If

        Return LastLine
    End Function

    Public Sub New()
        Dim MyRow As DataRow
        Dim arrKeyWords() As String, strKW As String

        Me.AcceptsTab = True

        ''Load all the keywords and the colors to make them 
        Words.Columns.Add("Word")
        Words.PrimaryKey = New DataColumn() {Words.Columns(0)}
        Words.Columns.Add("Color")

        arrKeyWords = New String() {"select", "insert", "delete", _
           "truncate", "from", "where", "into", "inner", "update", _
           "outer", "on", "is", "declare", "set", "use", "values", "as", _
           "order", "by", "drop", "view", "go", "trigger", "cube", _
           "binary", "varbinary", "image", "char", "varchar", "text", _
           "datetime", "smalldatetime", "decimal", "numeric", "float", _
           "real", "bigint", "int", "smallint", "tinyint", "money", _
           "smallmoney", "bit", "cursor", "timestamp", "uniqueidentifier", _
           "sql_variant", "table", "nchar", "nvarchar", "ntext", "left", _
           "right", "like", "and", "all", "in", "null", "join", "not", "or"}

        For Each strKW In arrKeyWords
            MyRow = Words.NewRow()
            MyRow("Word") = strKW
            MyRow("Color") = Color.LightCoral.Name
            Words.Rows.Add(MyRow)
        Next

    End Sub

    Public Property CaseSensitive() As Boolean
        Get
            Return _SyntaxHighlight_CaseSensitive
        End Get
        Set(ByVal Value As Boolean)
            _SyntaxHighlight_CaseSensitive = Value
        End Set
    End Property

End Class
now debug and stop debugging and see the toolbox you will see something like this



add the tool "syntaxRTB" in to your form and you can replace it with richtextbox or textbox just rename it now debug and paste some codes inside the tool and it will work for sure .

preview - 


hope this helped you

How To Make A Custom Button In VB.NET

we all know how to make custom buttons using images or DLLs but this tutorial is totally different in this tutorial i will be teaching you how to make a custom button without using images or dlls .

so lets get started 

as usual open your visual basic 2008 or  visual basic 2010 and create a new windows application and name it whatever you want and go to the form and add a button and thats it with the GUI and go to code and lets add the custom button function

i am going to use a function , i call it "shimscustombuttonfunction"
 Public Sub shimscustombuttonfunction(ByVal aControl As Control, ByVal Color1 As Color, ByVal Color2 As Color, _
        Optional ByVal mode As System.Drawing.Drawing2D.LinearGradientMode = Drawing2D.LinearGradientMode.Vertical)

        Dim bmp As New Bitmap(aControl.Width, aControl.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim Rect1 As New RectangleF(0, 0, aControl.Width, aControl.Height)

        Dim lineGBrush As New System.Drawing.Drawing2D.LinearGradientBrush(Rect1, Color1, Color2, mode)
        g.FillRectangle(lineGBrush, Rect1)

        aControl.BackgroundImage = bmp
        g.Dispose()
    End Sub
now lets add two events for the button , go to the form and double click button and add this code . i am using green because thats my favourite color and you can just add any color to it simply change the (button1,color.lightgreen,color.green) and your done .

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        shimscustombuttonfunction(Button1, Color.LightGreen, Color.Green)
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.BackgroundImage = Nothing
    End Sub
so finally the custom button will work like this


i have just added two events mouse enter and mouse leave and you can add many more events like mouse click,mouse down,mouse up,mouse hover and mouse move

here is the full source code
'Author : Mohamed Shimran
'Blog : http://ultimateprogrammingtutorials.blogspot.com
Public Class Form1

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

    End Sub

    Public Sub shimscustombuttonfunction(ByVal aControl As Control, ByVal Color1 As Color, ByVal Color2 As Color, _
        Optional ByVal mode As System.Drawing.Drawing2D.LinearGradientMode = Drawing2D.LinearGradientMode.Vertical)

        Dim bmp As New Bitmap(aControl.Width, aControl.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim Rect1 As New RectangleF(0, 0, aControl.Width, aControl.Height)

        Dim lineGBrush As New System.Drawing.Drawing2D.LinearGradientBrush(Rect1, Color1, Color2, mode)
        g.FillRectangle(lineGBrush, Rect1)

        aControl.BackgroundImage = bmp
        g.Dispose()
    End Sub


    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        shimscustombuttonfunction(Button1, Color.LightGreen, Color.Green)
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.BackgroundImage = Nothing
    End Sub
End Class

happy coding !!!!!

How To Enable/Disable IE Proxy By Using VBS


Today you gonna learn a easy method to enable/disable IE proxy by using a vbs script so lets get started just open notepad and paste this code