VB Graphics

kiranreddys.com
free software for you

Visual Basic Source Codes (go to Knowledgebase for full list)

Visual Basic Graphics - 1 List of Categories VB Graphics

Draw Bar or Box
Drawing Wavy squiggly lines
Drawing Line with Mouse Move

Draw Bar or Box

'Code by Kiran Reddy
'Draw Bar or Box
'Controls Picture Box Name = Picture1, Auto Redraw = True
'Paste Below code in any click events
Dim intleft As Integer
Dim intbottom As Integer
Dim intwidth As Integer
Dim intheight As Integer
intleft = 10
intbottom = 150
intwidth = 20
intheight = 100

Picture1.ScaleMode = vbPixels
Picture1.FillStyle = 7 'Fil style 0 to 8
Picture1.Line (intleft, intbottom)-(intleft + intwidth, intbottom - intheight), , B

Top
Drawing Wavy squiggly lines

'Code by Kiran Reddy
'Drawing Wavy squiggly lines
'Controls Picture Box Name = Picture1, AutoRedrw = True
'Paste bilow code any Click event
Const ampl = 3
Const py = 3.14159
Const perc = 4 * py
Dim inti As Single
Dim intj As Single
Dim intht As Single
Dim intwd As Single

Picture1.ScaleMode = vbPixels 'Change Scale Mode to Pixels
Picture1.Cls 'Clear The Picture1ture Box

For inti = 0 To Picture1.ScaleHeight Step 4
Picture1.CurrentX = 0
Picture1.CurrentY = inti
For intj = 0 To Picture1.ScaleWidth
Picture1.Line -(intj, inti + ampl * Sin(intj / perc))
Next intj
Next inti
For inti = 1 To intht Step 2
Picture1.Line (0, inti)-(intwd, inti)
Next inti

Top
Drawing Line with Mouse Move

'Code By Kiran
'Drawing Line with Mouse Move
'Controls: Form(Form1), Picturebox(Picture1)
'Settings:Picture1.ScaleMode=VbPixels
Option Explicit
Dim x1 As Long
Dim y1 As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.Line (x1, y1)-(X, Y), vbRed
x1 = X
y1 = Y
End If
End Sub

Top

Was this page helpful?