Visual Basic Notes
Visual Basic Notes
UNIT-I
INTEGATED DEVELOPMENT ENVIRONMRNT OF VISUAL BASIC
(Integrated Development Environment) ;g fdlh Application dks fodflr
djus ds fy;s Visual Basic }kjk miyC/k djk;k x;k ,dhd`r fodkl ds fy;s
okrkoj.k gSA
Visual Basic esa dk;Z djus okys okrkoj.k dks IDE vFkkZr Integrated
Development Environment dgk tkrk gSA D;ksfd ;g vusd NksVs i`Fkd& i`Fkd
dk;Z ds fy;s i`Fkd& i`Fkd tools miyC/k djkrk gSA bu tools dks vko;drk iM+us
ij fNik;k Hkh tk ldrk gSaA vkSj iqu% vko;drk gksus ij iznfkZr Hkh fd;k tk
ldrk gSA bl izdkj Visual Basic dk IDE gesa application Software dks cukus ds fy;s
vko;d fofHkUu Tools ,d gh LFkku ij miYkC/k djkrk gSA fd vudk iz;ksx
la;qDr :Ik ls ;k ,dhd`r :Ik ls iz;ksx fd;k tk ldrk gSA
Visual Basic fd IDE ds Windows esa eq[; Hkkx %&
Interface
(1) Menu Bar
(2) Short Cut Menu
(3) Tools Bar
(4) Tools Box
(5) Project Explorer Window
(6) Properties Window
(7) Form Window
(8) Code Window
(9) Form Layout Window
(10) Color Palette Box
(11) Local Debug Window
(12) Immediate Window
IDE OF VB-IDE
(1) Menu Bar- Menu Bar Visual Basic dh IDE Window esa Title bar ds uhps
iznfkZr gksrh gSA bl Menu bar ij fLFkr fofHkUu Menu ds varxZr Visual
Basic ls lacaf/kr fofHkUu Command Option ds :Ik esa miyC/k gkrs gSA
(2) Short Cut Menu :Visuusl Bssic ds IDE eas fdlh project ij dk;Z djrs le;
short cut menu dk vU;ar Ikz;ksx gksrk gS ;s menu fofHkUu objects ,oa
lFkkuksa ds fy;s fofHkUu gksrs gSA MENU dk pquko IDE gh djrk gSaA
PROJECT fdlh object ij d;Z djrs le; mlls lacaf|r leLr vko;d fodYi bl menu
esa fLFkr gksrs gSaA
(3) Tool Bar : Visual Basic esa fdlh Application dks cukus ds fy;s vko;d
command menu ds :Ik esa nh gksrh gSaA ijarq application cukrs le;
lkekU; :Ik ls iz;ksx gksus okys fofHkUu commands menu bar ds uhps-uhps
NksVs tool Icons ds :Ik esa iznfkZr gksrs gS A ;s tools Icons tool Bar ckj ij
iznfkZr gksrk gSA
(a) Debug Tool Bar
(b) Edit Tool Bar
(c) Form Editor
(d) Standard Tool Bar
(4) Tool Box : Tool Bar IDE }jk iznku dh xbZ ,d ,slh lqfo/kk gS ftlesa fdlh
application dks cukus lacaf/kr lHkh lqfo/k;sa miyC| gksrh gSA bl tool bar
esa lHkh lqfo/kk;sa Icons ds :i esa mifLFkr gksrh gSA ;s controls standard
rFkk user }kjk ifjHkkfkr gks ldrs gSA
Project Explore Window : Visual Basic esa cuk;s tkus okys application software
dks project ds uke ls tkuk tkrk gS ;s project vusd file dks feykdj
cukrs gSA vkSj ;s files form vFkok modules dgykrs gSA bl izdkj ge
dg ldrs gS fd visual Basic esa fdlh Appliction Soft ware vFkkZr project dks
cukus ds fy;s i`Fd i`Fd form rFkk modules cukus gksrs gS buls la;qDr :i
ls ,d project dk fuekZ.k fd;k tkrk gSA
Properties Window : Visual Basic fdlh application dks design djus esa iz;qDr
lHkh elements dks object vFkok control dgk tkrk gSA bu lHkh dh viuh viuh
fokskrk;sa gksrh gS vkSj mudh viuh ,d HkkSfrd lajpuk gksrh gS tSls
control dk vkdkj, jax, khkZd vkfnA bUgsa ge visual basic esa object
vFkok control dh properties dgrs gSA bu properties dks ge design time ,oa
run time ij fu/kkZfjr djrs gSA
Form Window: IDE dh Window ds [kqyus ij mlds dk;Zdkfyu {ks= esa lcls
igys [kqyus okyh window ftldk khkZd form1 gksrk gSA ftlds }kjk ge
application software dk fuekZ.k djrs gSA Application ls lacaf/kr fofHkUu
dk;Z dks djus ds fy;s vko;d fofHkUu object vkSj control dks bl form ij
fLFkr fd;k tkrk gSA
Code Window : ;g og window gksrh gS ftlesa form ij fLFkr fd;s x;s control }
kjk fd;s tkus okys dk;Z dks ifjHkkfkr fd;k tkrk gSA
Form Layout Window: ;g window propertits window ds uhps iznfkZr gksrh
gSA bu window esa ,d monitor screen ij project esa iz;ksx fd;s x;s fofHkUu
forms dks iznfkZr gksrs gSA ;g window form dks monitor screen ij fdl
LFkku ij iznfZkr djuk gS ;g fufpr djrk gSA
Color Palatte Box: Color Palatte Box dk iz;ksx form rFkk form ij fLFkr
fofHkUu controls ds jax dk fu/kkZj.k djus ds fy;s fd;k tkrk gSA
Local Debug Window: Local Debug Lor: gh processor ds varxZr iz;ksx fd;s
x;s variables dks muds eku ds lkFk iznfZkr djrk gSA
Immediate Window: Immediate debug window dk iz;ksx application software esa
vkus okyh box logical _qfV;ksa dks nwj djus ds fy;s tkrk gSA
USER INTERFACE DESIGNING:
User Interface Designing ,d ,slk okrkoj.k gS tgkW ij fdlh application software dks
rS;kj fd;k tkrk gSA bl interface esa fofHkUu controls dk use djds vius
application software dks rS;kj fd;k tk ldrk gSA ekuk fd fdlh software esa ,d
employee ls lacaf/kr record rS;kj djuk gS rks bu record dks rS;kj djus ds fy;s
tool box ls fofHkUu controls dks form esa iz;ksx fd;k tkrk gS vkSj bu control
ls lacaf/kr properties dks fu/kkZfjr djds mldh coding dh tkrh gSA bl izdkj
fdlh Hkh application dks rS;kj djus ds fy;s lcls igyk pj.k form desiging dk
gksrk gSA
Statement 1
End sub
(6) Mouse Move Event(): tc user mouse pointer dks mouse dk left button nck, gq, gh
fdlh control ds mij ls ys tk;k tkrk gS rc ;g event mRiUu gksrk gSA bl event dk
use ml le; fd;k tkrk gS tc user dks dqN foksk izHkko nkkZrk gSA tSls mouse
pointer ds command button ds mij vkrs gSA mldk back color change gks tk;s
vFkok mldk caption text gh cny tk;saA
Ex: Private Sub Cmd_ok mouse move (button as Integer, Shift as integer, X as Single, Y as
Single)
Statement 1
Statement 2
End sub
(7) Mouse Up( ) Event: Mouse Up( ) event ds mRiUu gksus ds fy;s mouse down
event dk mRiUu gksuk vko;d gksrk gSA bls bl izdkj le>sa dh mouse dk button
NksMus ij mouse up ( ) event mRiUu gksrk gSA
Ex: Private Sub Cmd_ok mouse_up (button as integer, Shift as integer, X as Single Y as
Single)
Statement
End sub
Keyboard: Visual Basic esa izR;sd control ds vusd events gksrs gS ;s events
computer application cukus dk vk/kkj gksrs gSA Visual Basic viuh lkekU; input
driven tSls mouse o keyboard dks control key dh Hkkafr O;ogkj esa ykrk gS
blfy;s buds vius vius control events gksrs gSA Keyboard events dk izksxzke
user }kjk izfoV fd;s x;s gSA Input data ij control djus vFkok muds format dks
cnyus ds fy;s djrs gSA
(1) Key Press ( ) event: ;g event ml le; mRiUu gksrk gS tc user keyboard ij fdlh
ASCII Key dks nckrk vkSj NksMrk gSA
Ex- Private Sub object key press (key ASCII as integer)
Statement
End sub
(2) Key Down () Event o Key up () event: Key Down event user }kjk Keybord ij fdlh
Hkh key dks nckus ls mRiUu gksrk gSA tcfd Keyup() event use }kjk Keybord ij
fdlh Hkh key dks nckdj NksM+us ls mRiUu gksrk gSA
Ex: Private sub object key down(key code as integer, shift as integer)
Statement
End sub
Ex: Private sub object key up(key code as integer, shift as integer)
Statement
End sub
Showing and Hiding
Showing ->izkstsDV esa iz;ksx fd;s x;s QkWe dks iz;ksx esa ykus ls igys mls
Show djkuk gksrk gSA
Syntax: Form1.show
Hinding-> izkstsDV esa nkkZ,a tk jgs QkWeZ dks hide djus ds fy;s djrs gSA
Syntax: Form1.hide
UNIT II
Lable
Text Box
Command Button
Coding
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c=a+b
Text3.Text = c
End Sub
Combo Box-(Drop down control)- combo box ;k drop down control ,d Item List control
gSA ftless Run time ij dsoy ,d Item dks select fd;k tk ldrk gSA combo box control
typing dh QslhfyVh Hkh provide djrk gSA bl dkj.k run time ij New option type fd;k
tk ldrk gS tc combo box control ml le; mi;ksxh gksrk gS tc Interface ij Item List
box ds fy, de txg miyC/k gSA combo box fd lHkh properties vkSj List box ds leku
use fd;s tk ldrs gSA
Example-
Combo1box
Command Button
Coding
Private Sub Command1_Click()
Combo1.AddItem "korba"
Combo1.AddItem "balco"
End Sub
List Box Control- ,d Mk;ukfead Option Control List gSA ;g fofHkUu option dks ,d
array esa sore djds j[krk gSA bl dkj.k ;g izR;sd option dk Index number Hkh define
djrk gSA GUI besedc programming Horizontal and Vertical List box use fd;s tkrs gS
item scrolling ds fy, list box or horizontal list box ds fy;s horizontal Scroll Box
izksokbV djrk gSA fotqvy csfld esa lhaxy Salect vkSj Multi Salect cuk;s tk ldrs
gSA List Box ds Item dks Daynamic esaUVsau djus ds fy;s List Box esa fofHkUu
Method dk Use fd;k tkrk gSA
List Box fd Properties
List:bl properties dk mi;ksx fyLV cWkDl esa item ds list cukus ds fy, fd;k
tkrk gSA
Colums:- bl Properties dk Use Vartical List Box dks Horizontal List Box esa Canvart
djus ds fy;s fd;k tkrk gSA ;fn blfd Value 0 gSA rks LIst Box Vartical gSA vkSj 0
ls vf/kd gSA rks Horizontal gSA ;fn blfd Value 2 gSA rks Vartical List Box rFkk
Horizontal List Box nksuks Display gksxsaA
(1)
Text:- bl proprties dk mi;ksx fMQkYV option specify djus ds fy,
vkSj current click selected option dks read djus ds fy, fd;k tkrk
gSA
(2)
Multi Selected Properties:0- Non
1- Simple mail selected
2- Extended
Multi selected properties dk use multi seleced list book cukus ds fy, fd;k tkrk
gSA visual basic esa nks izdkj ds multi selected list box dk use fd;k tk ldrk gSA
Simple vkSj extended simple list box esa ,d ls vf/kd items dks select djus ds fy,
dsoy mouse click dk use fd;k tkrk gS] vkSj extended list box es ,d ls vf/kd item
dks select djus ds fy, mouse vkSj shift vkSj key board esa shift+ ctrl key dk use fd;k
tkrk gSA
Methods:Sorted:- bl property dk use list box ds item dks automatically Asending
order esa arrange djus ds fy, fd;k tkrk gSA
(1)
Add items:- bl method dk mi;ksx listbox ds bottom ,d u;k item
run time add djus ds fy, fd;k tkrk gSA
(2)
Remove items:- bl method dk iz;ksx list box dks run time ij
remove djus ds fy, fd;k tkrk gSA
(3)
List index:- bl method dk use list dsa present selected items dk
index no. read djus ds fy, fd;k tkrk gSA
(4)
Count:- bl method dk mi;ksx list box rsa mifLFkr total item dks
count djus ds fy, fd;k tkrk gSA
Form1
List Box
Coding
Private Sub List1_Click()
If List1.Text = "red" Then
Form1.BackColor = RGB(255, 0, 0)
End If
If List1.Text = "green" Then
Form1.BackColor = RGB(0, 255, 0)
End If
If List1.Text = "blue" Then
Form1.BackColor = RGB(0, 0, 255)
End If
End Sub
File Control
(1) File List Control
(2) Directory List Control
(3) Drive List Control
Visual Basic esa File Control foksk izdkj ds List Control gksrs gSA ftls mi;ksx
Drive Salect djus Directry Select djus vkSj File Name Select djus ds fy;s fd;k tkrk
gSA
fotqvy csfld lysDku ds fy;s flLVe Depended Tree Control Provide djrk gSA bls File
List Directory vkSj Drive List Control dgk tkrk gSA bl Control esa User ds }kjk
dksbZ Hkh Item esuqvyh Creat ugh fd;k tk ldrk gSA Drive List Cntrol drag drop
Combo List Control gSA tks System esa miyC/k Active Drives dh List Provide djrk
gSA Directory List Control ,d Tree List Control gSA tks current drive esa miyC/k
Directories fd List dks Graphical Form esa Display djrk gSA File list control, column list
control gSA tks current drive fd file name dks display djrk gSA visual basic esa file
handling cukus ds fy, bu rhuks controls ds combination dk mi;ksx fd;k tkrk gSA
File List Control:(1) File Name:- bl properties dk iz;ksx currently selected file name dks read djus
ds fy, fd;k tkrk gSA
(2) Path:- bl properties dk use file dk path name specify ds fy, fd;k tkrk gS]
tgkW ls file listing dh tk ldrh gSA blesa file name ds path esa ogh path
fn;k tkrk gS] tks directory list control esa nh xbZ gSA
(3) Pattern:- bl properties dk use file type specify djus ds fy, fd;k tkrk gSA
tSls-.bmp, *.*
Directory List Control:Properties-Pathbl properties dk use default directory dks set djus vkSj tree
directory dks read djus ds fy, fd;k tkrk gSA
Drive List Control:bl properties dk use default drive esa set djus vkSj tree selected drive dks read
djus ds fy, fd;k ykrk gSA
Drive1
Dir1
Image1
File1
Coding
Private Sub Dir1_Change ()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim a As String
a = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture (a)
End Sub
Other Control
Option Button -:Option Button dk mi;ksx Item List Control cukus ds fy;s fd;k tkrk
gSA bl dUVksy dh lgk;rk ls fofHkUu items dh list cuk ldrsa gSA vkSj run time
ij buesa ls fdlh ,d item dks select fd;k tk ldrk gSA selected option button ds lekus
option button dks Hkh MhQzsM style esa use fd;k tk ldrk gSA
(1)
Standard
(2)
Graphical
Properties
a) Alignment- bl properties dk mi;ksx caption alignment ds fy, fd;k tkrk gSA
option button control dsoy nks alignment cukus esa use fd;k tkrk gSA
i)
Left alignment
ii)
Right alignment
b) Value- Value properties dk mi;ksx option button ds default dks set djus ds fy,
fd;k tkrk gSA ;fn ;g properties true gS] rks ;g option button select form esa
gksrk gSA
Form1
Text1
Option1
Option2
Option3
Form1
Text1
Check1
Check2
Command1
Coding
Private Sub Command1_ Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Frame Control- Fram Control ,d izdkj dk Control Grouping Object gSA ftlfd lgk;rk
ls fofHkUu Salected Controls dks ,d Group esa j[kk tk ldrk gSA Visual Basic esa
Container Control use fd;s tkrs gSAFrame, Picture Box Controls, blizdkj dk Control
vU; Controls dks Marge djus ds dk;Z esa vkrk gSA Fram Control Rectangle ftlds
Top lkbM ij ,d Caption Hkh Display fd;k tkrk gSA ,d frame contol dks Hkh ,d lkFk
vklkuh pest fd;k tk ldrk gSA ;k Move fd;k tk ldrk gSA ,d form ds ij dbZ control
press fd;s tk ldrs gSA bl dkj.k bldk mi;ksx jsfM;ks cVWu dh vyx&vyx lsV
rS;kj djus esa fd;k tkrk gSA
Scroll Bar Control:- Scroll bar control ;g Control gSA ftldk mi;ksx fMQkbaM fd;s
x;s baVhtj uEcj fd jsat esa ls fdlh ,d uEcj dks fotqvyh lysDV djus ds fy;s
fd;k tkrk gSA Scroll bar control esa Number Salect djus ds fy;s Scroll bar dks
Drag dj ldrs gSA vkSj Scroll button dks Click dj ldrs gSA blds vkykok Number
Salect djus ds fy;s Scroll button , Scroll box ds chp dk Space Hkh Click ds lkFk
mi;ksx fd;k tkrk gSA fotqvy csfld esa nks izdkj ls mi;ksx fd;s tk
ldrs gSA
Vertical & Horizontal nksuks Orientention ds Control ,d izdkj ds Properties vkSj
events dks liksV djrs gSA Scroll Bor esa nks eq[; event use fd;s tk ldrs
gSA
1) Scroll (2) Change
(1) Scroll event= Scroll Event ml le; Activate gksrk gSA tc ekml fd lgk;rk ls
Scroll Box Drag fd;k tkrk gSA
(2) Change Event= ml le; Activate gksrk gSA tc Scroll Bar dh Value rhuks
fLFkfr es Change gks ldrh gSA Scroll Bar Drag djus ds ckn Scroll Button ds
chp Spese ij Click djus ij gksrk gSA
Scroll Bar fd Properties
(1) Max- bl Properties dk use Scroll Bar fd Largest Value dks lsV djus
ds fy;s fd;k tkrk gSA
(2) Mini- bl Properties dk use Scroll Bar fd Lowest Value dks lsV djus
ds fy;as fd;k tkrk gSA blesa Value 0 ls de ugh gks ldrh
gSA
(3) Value- bl Properties dk use Scroll Bar dh fMQksYM Value dks lsV
djus vkSj djaV Value dks Read djus ds fy;s fd;k tkrk gSA
(4) Smoll Change-bl Properties dk use Step Change value ds fy;s fd;k
tkrk gSA ;g ml le; dk;Z djrk gSA tc Scroll Button ij Click
fd;k tkrk gSA
(5) Larg Change- bl Properties dk use Step Value lsV djus ds fy;s fd;k
tkrk gSA ;g ml le; dk;Z djrk gSA tc Scroll Box ;k Scroll
Button ds chp Click fd;k tkrk gSA
Example-:
Form1
text1
VScroll1
HScroll1
(2)
(3)
(4)
(5)
(6)
(7)
gksrh gSA rFkk bldk fu/kkZj.k fMtkbu vkSj Run time nksuks
le;ks ij fd;k tk ldrk gSA Enable Properties dk fMQksYM fu/kkZj.k
True gksrk gSA vFkkZr~ ;g kq: ls gh lafdz; gksrk gSA vkSj tc rd bl
Properties dk fu/kkZj.k Folse ugha fd;k tkrk gSA ;g lafdz; gha jgrk
gSA vkSj bldh Coding mlh le; varjky ls dk;ZfUor gksrh jgrh gSA bu
Properties dks lsV djds dksbZ Hkh dke mlh le; varjky esa fd;k tk ldrk
gSA
Enterval- bl properties dk iz;ksx Timer Control dh enterval Properties dk
fu/kkZj.k feyh lsd.M+ esa fd;k tkrk gSA ;fn gesa dksbZ le; varjky
nks lsd.M fu/kkZfjr djuk gSA rks blds fy;s blfd Properties foUMkso
esa Enterval ds lkeus okys ckDl esa bldk fu/kkj.k 2000 djuk gksxk bl
Properties es dk fu;qre fu/kkZfjr 0 vFkkZr~ bldh fud`h; fLFkr vkSj
vf/kdre 65536 fd;k tk ldrk gSA
Name
Tag
Index
Left
Top
Command1
Properties Seting
Name Timer1
Enabled - True
Interval - 1000
1 second = 1000 mili second
Form2
Tmer1
Lable1
Properties Seting
Name Timer1
Enabled - False
Interval - 100
1 second = 100 mili second
Command1
Command2
Command3
Example-:
Form1
Command1
Coding:Dim n As Node
Private Sub Command1_Click()
Set n = T1.Nodes.Add(, , "c", "Computer")
Set n = T1.Nodes.Add("c", tvwChild, "h", "Hardware")
Set n = T1.Nodes.Add("c", tvwChild, "s", "Software")
Set n = T1.Nodes.Add("h", tvwChild, "I", "Input device")
Set n = T1.Nodes.Add("h", tvwChild, "O", "Output device")
Set n = T1.Nodes.Add("s", tvwChild, "M", "M.S.Word")
Set n = T1.Nodes.Add("s", tvwChild, "E", "M.S.Excel")
n.EnsureVisible
End Sub
List View Control
List view control advansed active control gSA ftudk use Items dh List dks vyx vyx
izdkj ls disply djus ds fy, fd;k tkrk gSA ;g list control list box ds leku dk;Z djrk
gS ftlds item ds fy, automatically index number enter djrk gS lHkh items dks
automatically arrenge ugh fd;k tk ldrk gS vkSj bl list ds lHkh items esa additional
items store fd;k tk ldrk gSA vkSj izR;ssd items dk multicolom report disply fd;s tk
ldrs gSA list controle ,d dainamic list controle gS ftlds items dks run time ij delete
vkSj insert fd;k tk ldrk gSA list view control item fd listing four style esa dj ldrk
gSA
(1) Small icon
(2) Larg icon
(3) Detail
(4) List
Detail listing ds le; item ds lc item fd listing fd tk ldrh gSA
List view control dh Properties(1) Viwe - bl Properties dk use List view control fd item fd listing dks Change djus
ds fy;s fd;k tkrk gSA
New List
New report
New Smoll icon Using the detail
New icon
(2) Icon- bl Properties dk use Image Setting djus ds fy;s fd;k tkrk gSA ;g best
ml le; izR;sd vkbVe ds lkFk fMLiys gksrk gSA tc yktZ vkbVe O;w
lsfVax fd tkrh gS A bl izksisfVl fd Value Seting djus ds fy;s Image List
control fd vkodrk gksrh gSA
Smoll Icons-bl Properties dk use Image seting djus ds fy;s fd;k tkrk gSA ;g
best ml lel izR;sd vkbVe ds lkFk Display gksrk gSA tc Smoll Icon Item
View Setting fd tkrh gSA bl Properties fd Value Seting djus ds fy;s List view
control fd vko;drk gksrh gSA
List view control ds Mathed(1) Add Mathed-bl Mathed dk use Run time ij u;k Item add djus ds fy;s fd;k tkrk
gSA
Syntax- List view Name .Itemlidt.add (Index,key,text,icon image no.,smoll icon image no.)
List view control esa ,d lkFk k 10 Image dks Salect djds j[kk tk ldrk gSA mijksDr
Syntax esa Index vkSj Key Option gSA blfy;s bls Ignore fd;k tk ldrk gSA
(3)
Mouse Pointer:- Mouse pointer dk mi;ksx control ;k object ds fy,] mouse pointer item
dks change djus ds fy, fd;k tkrk gSA ;fn ;g properties form ds fy, define dh tkrh
gS rc ;g lHkh controls vkSj form ds fy, dk;Z djrk gSA vkSj fdlh Hkh specify
control ds fy, define fd;s tkus ij ;g dsoy mlh control ds fy, dk;Z djrk gSA
Type of mouse pointer:(1) Standard
(2) Custom(user defined ico or cur file)
(1) Standard:- mouse pointer use djus ds fy, 0 ls 11 rd dh la[;kvks dk
iz;ksx fuEu izdkj ls fd;k tkrk gSA
0-default
1
Arrow
2
cross
3
I-Beum
4
Icon
5
size
6
size
7
size
8
size
9
size
10
up arrow
11
hour glass
Example(2)
eSlst ckDl (Message Box)eSlst ckWDl dk iz;ksx lnSo iz;ksxdrkZ dks lwpuk iznku djus rFkk mls
psrkouh lUnsk nsus ds fy, fd;k tkrk gSA bl Mk;ykWx ckWDl dk iz;ksx
fuEufyf[kr lw=kuqlkj fd;k tkrk gSA
Formula:- Msgbox Prompt, DlgDef, Title
;gkW ij prompt ml VSDLV dks nkkZrk gS] tksfd eSlst ckDl esa iznfkZr
gksuk gSA Dlgdef ;g lqfufpr djrk gS fd eSlst cWkDl ij fdl izdkj dh picture
vFkkZr vkbdu iznfkZr gks rFkk ml ij dkSu&dkSu ls cVu ml ij yxs gksA
Message Box dks ,d QaDku dh Hkakfr Hkh iz;ksx fd;k tkrk gSA vFkkZr~ blds
mfpr iz;ksx ds fy;s ds fy;s ge ;g tkWp Hkh dj ldrs gSA fd iz;ksxdRkkZ us
dkSu&lk cVu nck;k gSA blds fy;s Massege ,d Integer MsVk izdkj dk eku
ykSVkrk gSA vFkkZr~ Return djrk gSA vc ges Massege Bos dks ,d Function dh
rjg iz;ksx djuk gksrk gSA vkSj fdlh Integer MsVk izdkj ds ifjorZukWd esa bl
ykSVk, x;s eku dks LVksj djrs gSA
tSls&
Dim r as integer
R=Msgbox(Prompt, Title,Default)
Example-:
Input BoxeSlst ckDWl dk mUur (advance) #i buiqV ckWDl gksrk gS D;ksafd blls oks
lHkh dk;Z rks fd, tk ldrs gS tksfd ,d eSlst ckWDl ls fd, tk ldrs gS lkFk gh ;g
iz;ksxdrkZ ls buiqV xzg.k djus ds fy, Hkh mi;ksx esa vkrk gSA bl buiqV ds
vk/kkj ij izksxzke esa vkxs dh processing gksrh gSA bl Mk;ykWx ckWDl dk
iz;ksx fuEufyf[kr lw=kuqlkj fd;k tkrk gSA
Formula:Dim r as string
R= Inputbox(Prompt, Title, Default)
eSlst ckWDl ds leku blesa DigDef iSjkehVj ugh gksrk gSA blesa ,d u;k
iSjkehVj Default gksrk gSA Prompt iSjkehVj] buiqV ckWDl esa iznfkZr gksus
okys VSDLV ds fu/kkZj.k ds fy, iz;ksx fd;k tkrk gS ,oa Default eku nsus ds fy,
fd;k tkrk gSA
UNIT-III
Data Types
fdlh Hkh Programming Language esa Program cukus dk m)s; dqN fufpr izdkj ds
data ftlesa number alphabets ,oa alphanumeric gksrh gS dks foysfkr djuk rFkk ,d
mi;ksxh output ftls information dgk tkrk gSA miyC/k djkuk gksrk gSA Visual
Basic esa data ds bl j[k j[kko ds fy;s NksVh NksVh unit gksrk gS ftUgsa le>uk
vko;d gS bu data dh x.kuk ds fy;s variables arrays rFkk constant dk iz;ksx fd;k
tkrk gSA
Variables:- varibles compute memories ml LFkku ds uke dks dgrs gSA tgkW ij
vLFkk;h :Ik ls ekuks dks j[kk ykrk gSA ;s eku le;≤ ij fLFkfr;ks ds vuq#i
ifjofrZr gksrs jgrs gSA vkSj application ds dk;Zoa;u ds lekIr gksrs gh ;s lHkh
eku computer dh memory ls feV tkrs gSA
Dim a as integer
Dim b as integer
Dim c as integer
Private sub-command 1-click ( )
a= inputbox (enter the value of A=)
b= inputbox ( enter tne value of B=)
c=a+b
Print c
End sub
Variables and Constants Dim vFkok private rFkk public izdkj ds vfrfjDr visual
basic ,d vU; izkslhtj Lrj ds variables dks ?kksfkr djus dh lqfo/kk iznku djrk
gSA Procedure Lrj ij variables ?kksfkr djus ds fy, static key word dk Hkh iz;ksx
fd;k tkrk gSA Static variable dh fokskrk ;g gksrh gS fd bUgs dsoy ,d ckj
gh izkjafHkd eku iznku fd;k tkrk gS rFkk procedure ds dk;Zoa;u lekIr gksus
ds ckn Hkh ml variable ds eku dks vafre eku ds lkFk iqu% iz;ksx es yk;k
tk ldrk gSA ;fn fdlh variable dks procedure Lrj ij dim keyword ds lkFk ?kksfkr
fd;k tkrk gS] rks Hkh procedure fdz;kfUor gksrk gS rc mldk izkajfHkd eku
kwU; gks tkrk gSA
Visual Basic esa foU;kl (array)
Visual Basic vius program dks Double djus ds fy, ,d vU; variable
miyC/k djrk gSA bls ^^foU;kl^^ Hkh dgk tkrk gSA foU;kl ds vanj ,d le;
esa ,d ls vf/kd ekuks dks LVksj djds j[kk tk ldrk gSA fdlh Hkh izksxzke
esa foU;kl cukusa ds fy, static key Word dk iz;ksx fd;k tkrk gSA tSlsa static
num (2) as integer mijksDr mnkgj.k esa ,d foU;kl Num ds uke ls ?kskfkr fd;k
x;k gSA ftlesa nks ,sfyesaUVl gks ldrs gSA vkSj bl ,sfyesaUVl dk Data
Type Integer gSA foU;kal ds vanj ds izR;sd ,sfyesaUVl dks mlds Index number
ls tkuk tkrk
gSA foU;kl ds lcls igys ,sfyesaUVl dk Index kwU;0 gksrk gSA vf/kd
,sfyesaUVl vFkkZr~ osfj;scy gksus ij buesa eku Mkyus ds fy;s vFkok
foU;kl ls eku izkIr djus ds fy;s For Loopywidk iz;ksx fd;k tkrk gSA
Form1
Comman Button
t = t + a(i)
Print a(i)
Next
Print "total=", t
End Sub
Dynamic Arrays-
Form1
lekU; fotqvy csfld esa foU;kl dks ?kksfkr djrs le; Hkh mlds
eku Hkh ?kksfkr djuk vko;d gksrk gSA vFkkZr~ foU;kl dh ?kksk.kk ds
le; gesa ;g crkuk gksrk gSA fd bl foU;kl esa fdrus ,sfyesaUVl vFkok fdrus
ekuks dks LVksj djds j[kk tk ldrk gSA Programing djrs le; vusd ckj ,slh
ifjfLFkfrd mRiUu gksrh gSA fd foU;kl fd ,sfyesaUVl fd la[;k dk;Zo;au ds
le; ?kV vFkok cM+ ldrh gSA ,slh ifjfLFkfr esa Visual Basic Dynamic foU;kl ?
kksfkr djus fd vuqefr iznku djrh gSA Dynamic foU;kl dks ?kksfkr djus ds
fy;s lekU; foU;kl fd Hkkafr Dim vFkok Static Keyword dk iz;ksx fd;k tkrk
gSA ijarq blesa Index eku nsus fd vko;drk gksrh gSA Computer mruh gh
eseksjh iznku djrk gSA
Form1
Command Button
Array as Function-
rFkk nksuks cVuks dks fufdz;(Disable) djuk pkgrs gSA rks blds fy;s dksM+
fy[kus ds LFkku ij ge izR;sd Text Boxes rFkk Command Button dk Group cuk ldrs
gSA bls Collections dgrs gSA
SyntaxObject.Control.Count
Object.Controls.(index)
dySDku dUVksy fuEufyf[kr Hkkx gksrs gSA
Object- ;g ,d Object ,Dlizsku gksrk gSA tks ,d Object dks Evaluate djrk gS
Index- ,d baVhtj]ftldh Range 0 ls Controls Count-1 gksrh gSA
Procedures
Visual Basic esa fofHkUu izdkj ds izksslhtlZ gksrs gSA tks NksVs&NksVs
Hkkxksa esa fdz;kfUor gks tkrs gSA buls lacaf/kr izksslhtlZ dk foLr`r o.kZu
ge Vwy foHkkx esa i<+sxsaA bl foHkkx esa ge fofHkUu fu;a=d lajpukvksa
dks Hkh le>sxsa rFkk fotqvy csfld ds izksxzkfeax okrkoj.k esa bldk iz;kl
djrs gSA
fotqvy csfld izksxzke dks NksVs&NksVs ykWftdy ?kVdks esa rksM+k tk
ldrk gSA bu NksVs&NksVs ?kVdks dks izkslhtj dgk tkrk gSA
fotqvy csfld esa izksfltj rhu izdkj ds gksrs gSA
1 lc& izksfltj 2 QaDku izksfltj 3izkWiVhZ izksfltj
1 lc& izkslhtj (Sub Procedure): lc& izkslhtj dks Standard Class ;k Form
ekWMw;y esa j[kk tk ldrk gSA izR;sd ckj tc izkslhtj dks Coll fd;k tkrk gSA
rks Sub rFkk End Sub ds e/; fy[ks gq;s dFku fdzU;kfUou gksrs gSA
Syntax-[Private/Public] [Static] Sub Procedurename [arglist]
[Statements]
End Sub
Ex-by value Dim c as integer
Private sub add (byval a as integer, byval b as integer)
C=a+b
Printtotal=,c
End sub
Private sub button1_click ()
Call add (3, 5)
End sub
Ex- by referencesDim c as integer
Private sub add (byval a as integer, byval b as integer)
C=a+b
Printtotal=, c
End sub
Private sub button1_click ()
Dim x, y as integer
X=inputbox (Enter=)
Y=inputbox (Enter=)
Call add (x, y)
End sub
Form1
Command1
Coding:Private Sub Valume (ByVal h As Integer, ByVal w As Integer, Optional ByVal l As Integer)
If IsMissing (l) = True Then
l = 10
End If
v=h*w*l
Print "valume=", v
End Sub
Private Sub Command1_Click ()
Call Valume (5, 3, 8)
End Sub
Logical OperatorsProgram esa fu.kZ; ysus ds fy;s iz;ksx fd;s tkus okys dks ykWftdy Operator
dgk tkrk
gSA Visual Basic esa iz;ksx gksus okys Logical Operators
.AND,.EQV,.OR,.XOR rFkk .NOT gSA
1 +AND-: Visual Basic Logical Operator and dk iz;ksx nks Expression dks
Logical :Ik ls vkil esa tksM+us ds fy;s fd;k tkrk gSA bldk vFkZ fd Application
Expression esa nh xbZ nksuks ds lR; gksus ij gh dk;Z djsA
Ifj.kke&Expression1
Expression2
Result
True
True
True
True
False
False
False
True
False
False
False
False
(2) EQV Visual basic ds logical operators EQV dk iz;ksx nks expression dh logical
#i ls lekurk dks tWkpus ds fy, fd;k tkrk gSA bl operators }kjk leac)
expression esa nh xbZ nksuks fLFkfr;ksa ds ;k rks lR; vFkok vlR; gksus ij
gh dk;Z gksrk gSA ifj.kke&
Expression 1
Expresion 2
Result
True
True
True
True
False
False
False
True
False
False
False
True
(3) OR Visual basic ds logical operators XOR dk iz;ksx nks expression esa ls
fdlh ,d dh logical #i ls lR;rk dks tkWp djus ds fy, fd;k tkrk gSA bl operators }
kjk laca/k expression ls nh xbZ nksuks fLFkfr;ks esa lsa fdlh ,d vFkok nksuks
ds lR; gksus oj nks dk;Z gksrk gSA ifj.kke&
Expression 1
Expresion 2
Result
True
True
False
False
True
False
True
False
True
True
True
False
(4) XOR Visual basic ds logical operators XOR ds iz;ksx nks expression esa ls
fdlh ,d dh lR;rk dks tkpusa ds fy, fd;k tkrk gSA bl operators }kjk laca/k
expression esa nh xbZ nksuksa fLFkfr;ks esa fdlh ,d ds lR; gksus ij gh dk;Z
djrk gSA ifj.kke&
Expression 1
Expresion 2
Result
True
True
False
True
False
True
False
True
True
False
False
False
(5) NOT Visual basic ds logical operators NOT dk iz;ksx nks expression esa ls
fdlh ,d dh lR;rk dks tkWp djusa ds fy, fd;k tkrk gSA bl operators }kjk laca/k
expression esa nh xbZ nksuks fLFkfr;ks esa ls igyh ,d ds vlR; gksus ij dk;Z
gksrk gSA ifj.kke&
Expression 1
Result
True
False
False
True
True
conditio
n
command
false
end
If expression then
Statement 1
Statement 2
End If
If then else :- tc ge dsoy if condition dk iz;ksx djrs gSA rks condition ds lgh
gksus ij gh lacaf/kr statement dk;kZfUor gksrs gSA ;fn ge ;g pkgrsa gS] fd
krZ ds lR; gksus ij vFkok vlR; gksus ij program dk dk;kZo;au bl krZ ls ckgj u
tk;s rks blds fy, if then else condition dk iz;ksx fd;k tkrk gSA
Syntax- if expression then
Statement 1
Statement 2
Else
Statement 3
Statement 4
Endif
Example-:
Form1
Command1
Command2
Command3
Command4
Coding
Dim a, b, c As Integer
Dim t As Integer
Dim d, e As Integer
Dim g, h As Long
Private Sub Command1_Click()
a = InputBox("enter the name")
Print "name=", a
End Sub
Private Sub Command2_Click()
b = InputBox("enter the department")
Print "department=", b
End Sub
Private Sub Command3_Click()
c = InputBox("enter the salary")
Print "salary=", c
End Sub
Private Sub Command4_Click()
If (c >= 5000) Then
d = (c * 5) / 100
t = (c * 6.5) / 100
h = (c * 3.3) / 100
g=c+d+h+t
Print "da=", d
Print "ta=", t
Print "hra=", h
Print "gross salary", g
End If
End Sub
Select case:- bl LVsVesaUV dk iz;ksx fn, x, fofHkUu conditionesa fdlh ,d condition
dks select djus ds fy, fd;k tkrk gSA ;g condition vFkkZr ;g statement if condition ds
leku gh gSA ijarq blesa if condition ds leku tfVyrk ,oa vlqfo/kktud ugh gSA
Syntax:-
Form1
Text2
L1
man
Text2
L2
man
Text3
L3
man
Command1
Command2
Coding:Dim a, b, c as integer
Dim d as single
Dim s as integer
Private sub end 1_click ()
A=val (Text1.text)
B=val (Text2.text)
S= inputbox (enter your option)
Select case s
Case 1
C=a+b
T3.text=C
Case 2
C=a-b
T3.text=c
Case 3
C=a*b
T3.text=d
Case 4
D=a/b
T3.text=d
Case else
Printinvalid option
End select
End sub
Looping Statement- Visual Basic esa iqujko`fRr ds fy;s Hkh dFku dgrs gSA ;g
Hkkkk dFkuks dh Ja[kyk dk nksgjku djus esa l{ke gSA blds fy;s dqN dFku
miYc/k gSA ftUgs ywfiax dFku dgrs gSa A ge tkurs gS fd dEI;wVj cgqr rhoz
xfr ls cgqr cM+h ek=k esa lwpuk dk f;kUo;u djrk gS] tSls deZpkfj;ksa ds
ekfld osru dh x.kuk A tc gesa ctqrk;r esa MkVk dks fu;af=r djds ml ij
ijh{k.k djuk gksrk gS rc ge ywfiax dFkuksa ds varxZr bl rjg dh dksfMax djrs
gSa] ftlls izksxzke MkVk dks iwjh rjg izkslsl dj rFkk ijh{k.k dj mlls ckgj vk
lds A ywi ,d ;k ,d ls vf/kd dFkuksa dh J`[kayk gS tks ,d ls vf/kd ckj f;kfUor
gksrh gSa A twi dFku rc rd iqujko`fRr djrk gS tc rd fd iwoZfu/kkZfjr ifjfLFkfr
lEiw.kZ ugha gks tkrh A gesa ywiksa dks vPNh rjg ls le>uk pkfg;s D;ksafd
blesa buiqj igys fn;k tkrk gS rFkk gekjs }kjk visf{kr mRrj gj le; izkIr ugha
gksrk A
Form1
fotqvy csfld esa ywi ,d eYVhykbu dFku
gksrk gS A ftl izdkj if dFku esa krZ
dk iz;ksx gksrk gS] mlh izdkj ywi dFku dbZ ifjfLFkfr;ksa esa iz;ksx fd;k tk
ldrk gS A fotqvy csfld ds ywi dFku ds dqN QkWjesV fuEufyf[kr gSa &
Do loop:- Visual basic programming esa fornext loop lajpuk ds vfrfjDr ,d vU; lajpuk
do loop dk iz;ksx Hkh cgqrk;kr esa Hkh fd;k tkrk gSA bl loop dk iz;ksx lekU;r
% ml le; fd;k tkrk gS] tc fd loop ds dk;ZfUor gksus dh lhek dk vaUr u gksA
Data base programming esa Do loop lajpuk dk iz;ksx vf/kdkak% iz;ksx fd;k tkrk
gSA Do loop ds lkFk until key word dk iz;ksx fd;k tkrk gSA
Form1
Command1
Coding:Dim a as integer
Private sub Command1_click ()
A=1
Do until a=11
?a
A=a+1
Loop
End sub
For-Next:- Visual basic esa lcls vf/kd iz;ksx gksus okyk vkSj ljy ywi lajpuk fornext ywi lajpuk gSA looping vo/kkj.kk ds vuq#i nl loop dks Hkh rhu vyx&vyx
pj.kks esa iwjk fd;k tkrk gSA iajrq ;g looping lajpuk dks laf{kIr djrk gSA
Syntax:-for counter = starting value to ending value step
Statement 1
Statement 2
Next
Example-:
Form1
Command Button
Coding:Dim a as integer
Private sub command_click ()
For a=1 to 10 step 1
Print a
Next
End sub
Form1
While wend:- While wend loop lajpuk Hkh do loop dh Hkkfr dk;Z djrk gSA ftldk
iz;ksx iqu%o`fk dk;ksZ dks djus ds fy, fd;k tkrk gSA ;g ywi rc rd pyrk
jgrk gS] tc rd ywi dh krZ lR; gksrh gSA krZ ds vlR; gksus ij program dk
dk;Zoa;u ywi ls ckgj vk tkrk gSA while loop dks ju djus ds fy, wend key word
dk iz;ksx fd;k tkrk gSA
Example-:
Form1
Command Button
Coding:Dim a as integer
Private sub Command1_click ()
A=1
While (a<=10)
Print a
A=a+1
Wend
End sub
Nested control structure:- bl If Statement ds vanj tc ,d ;k ,d ls vf/kd If Statment dk
iz;ksx fd;k tkrk gSAbls Nested If dgrs gSA
Syntas:- If Expression Then
If Expression 2 Then
Statement
Else
Statement
End if
Else
Statement
End Sub
Exit statement:- bl statement dk iz;ksx izksxzke py jgs processing ds chp esa gh
vFkkZr loop ds lekIr gksus ls igys [kRe djus ds fy, fd;k tkrk gSA bl statement
dks if condition ds lkFk use fd;k tkrk gSA
Form1
Command Button
Command1
UNIT-IV
Building Blocks Of Visual Basic
Graphics Controls (xzkfQDl fu;a=d): - ge xzkfQDl dks rhu fu;ans=dks ij Place dk
ldrs gSA
QkWeZ (Form)
fiDpj ckWDl (Picture Box)
best ckWDl (Image Box)
Image Handling in VB
Image ControlImage control basic active x-control gSA ftldk mi;ksx picture display djus ds fy, fd;k
tkrk gSaA ,d form ij dbZ image control dks j[kk tk ldrk gSAbl dkj.k bldk mi;ksx
MhQzsaV picture dks ,d display djus ds fy, fd;k tkrk gSA Image control picture File
ds lkbt ds vuqlkj viuk lkbt Atometacli Change dj ysrk gSAvkSj blds Strech
Properties fd lgk;rk ls fdlh Picture dks Smoll Size esa ;k Larg Size esa Display fd;k
tk ldrk gSA bl Properties ds true gksus ij Picture viuk Size Image Control ds vuqlkj
Change dj ysrk gSA
Image Contro dh Properties(1) Picture- bl Properties dk mi;ksx fiDpj Qkby dk uke LislhQkbZ djus ds fy;s
fd;k tkrk gSA ftls best dUVksy ij fMlIys fd;k tk ldrk gSA
(2) Strech-bl Properties dk mi;ksx best COntrol fd Altosize dks DIfaind djus ds
fy;s fd;k tkrk gSA ;fn ;g Properties False gSA rc best viuk Size Picture
Control ds vuqlkj Change dj ysrk gSA vkSj ;fn True gSA rc Picture viuk Size
best dUVksy ds vuqlkj Change dj ysrk gSA best dUVksy Picture dks
Read Only Form esa Display djrk gSA ;g dUVksy Picture esa Modify Caption
vkSj Drawing Work dks vykmM ugha djrk gSA
Picture Box ControlPicture box control dk vk;ksx picture display djus ds fy, vkSj mlesa modification
djus ds fy, fd;k tkrk gaSA bl control dh lgk;rk ls freehand picture dks cuk dj
parmanently picture file esa save fd;k tk ldrk gSA Different type ds drawing ds fy,
drawing method provide djrk gSA example:- line, circle,
;g ,d izdkj dk container control gSA blesa vU; daVksy dks j[k ldrs
gSA Image control ds leku blesa Hkh autofree sizeing dh property gksrh gSA
ftlls ;g viuk size picture ds size ds vuqlkj change dj ysrk gSA ;g picture control
ok dh facility provide djrk gSA
Properties:1) Picture:- bl properties dk use picture file dk uke specify file djusa ds fy,
fd;k tkrk gSA
2) Autosize:- bl properties dk use picture box dks visible cukus ds fy, fd;k
tkrk gSA bl properties ds true gksus dh fLFkr esa picture box viuk size
change dj ysrk gSA
3) Image:- bl properties dk use picture box ds picture ;k drawing dks read
djus ds fy, fd;k tkrk gSA
ExForm2
Picture1
Image1
Command1
Command2
Coding
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\Documents and Settings\All
Users\Documents\My Pictures\Sample Pictures\su.jpg")
End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture("C:\Documents and Settings\All
Users\Documents\My Pictures\Sample Pictures\su.jpg")
End Sub
gSA ;g Hkh tkuuk egRoiw.kZ gSA fd Coordinate System dk iz;ksx QkeZ vkSj
fu;a=dksa dh fLFkfr dks fu/kkZfjr djus ds fy;s dSls fd;k tk,A
Coordinate System,d f}&vk;keh fxzM gksrk gSAtks Ldzhu ij fdlh
QkeZ esa ;k fdlh nqljs laxzkgd tSls fiDpj ckWDl dk fizUVj
vkWCtsDV dh fLFkfr fu/kkZfjr djrk gSA
fuEufyf[kr fu;e fotqvy csfld dks Coordinate System ij ykxw gksrs gSA
tc ge fdlh fu;a=dControl)Move ;k resize djrs gSAge fu;a=d ds
laxzkgd dk Coordinate System iz;ksx djrs gSA
lkjs xzkfWdy fof/k;kW laxzkgd fd Coordinate System dk iz;ksx djrs
gSA mnkgj.k ds fy;s fiDpj ckWDl ds Hkhrj MkW gksus okys
Statement Control ds Coordinate System dk iz;ksx djrs gSA
os Statement tks fdlh QkeZ dks resize ;k Move djrs gSA lnk Twips
esa QkeZ ds vkdkj vkSj fLFkfr dks vfHkO;Dr djrs gSA tc ge
QkeZ dks resize ;k Move djus ds fy;s dksM dh jpuk djrs gSA
Ldzhu dk ijh ck;Wk dksuk geskk 0]0 gksrk gSAfdlh Hkh
laxzkgd dk Lor% dks vkWfMZusV flLVe laxzkgd ds ijh ckW,
dksus esa 0] 0 vkajHk gksrk gSA
xzkfQDl fof/k;kW (Graphics Methods)
xzkfQDl fof/k ,d ,slh fof/k gS tke ,d vkCtsDV tSls&form, picture box ;k printer
bR;kfn ij dk;Z djrh gS vkSj juVkbe drawing operations tSls animation ;k simulation
dks iwjk djrh gSA
xzkfQDl fof/k;kW gSa& Circle, cls, line, paintpicture, point, print, vkSj PSet.
Method
Cls
PSet
Point
Line
Circle
paintpicture
Description
Print fof/k dks grophics fof/k Hkh le>k tk ldrk gS] D;ksfd bldk output] object esa
fy[kk jgrk gSA vkSj PSet liner vkSj circle fof/k;ksa dh HkWkfr memory image esa
lsxzfgr fd;k tkrk gS ;fn autoRedraw on gks rks A Print fof/k dh ppkZ] bl ikB
ds vUr esa dh tk,xhA
Shape1
Command1
Shape1.Shape = 0
End Sub
2) Border style- bl properties dk use line patterns change djus ds fy, fd;k tkrk gS ;k
properties draw style properties ds leku dk;Z djrk gSA
Ex- Solid
Dot
3) Border Width:- bl properties dk use shape control ds diagram line dj eksVkbZ dks
change djus ds fy, fd;k tkrk gSA
Line Control nks dks vkWfMZusV~l ds chp js[kk [khapus ds fy;s Line
fof/k ds ljy QkeZ dk iz;ksx djrs gSA
Sysntax1.[ Object.] Line [(x1.y1)]-(x2,y2)[.Color]
2.line(x1,y1)-x2,y2) , colorvalue
Ex-picture1.line (50,50)-(1000,1000),qbcolor(2)
Object oSdfYid gksrk gSAvxj gVk fn, tk;s rks og fof/k tks ml QkeZ ij]ftlls
dksM tqM+k gqvk gSAdkWvkWfMZusV~l dh igyh tksM+h Hkh oSdfYir
gSA tSlk fd lHkh Co-ordinate Value ds lkFk gksrh gSA x vkSj y
rdZ(Arguments) ;k rks iw.kZ la[;k ;k fHkUukRed la[;k,W gks ldrh gSA
mnkgj.k ds fy;s] ;g Statement fdlh QkeZ ij frjNh js[kk [khaprh gSA
Ex-Line (500,500)-(2000,2000)
fotqvy csfld ,d js[kk [khaprh gSA tks izFke End Point dks rks lfEefyr djrh
gSA ysfdu vafre End Point dks ughaA Point ls Poin rd utnhdh vkd`fr;kW
[khaprh gSA le; ;g O;ogkj mi;ksxh gksrk gSA vafre Point [khapus ds fy;s
bl Sysntax dk iz;ksx djsa Ans
Filling Shapes (vkd`fr;kW Hkjuk)-Filling shapes dh eq[; rkSj ij nks Properties gksrh
gSA
Fillstyle
Fillcolor
Fillstyle-bl Properties dk use close graphice esa isafVax ds le; use fd;k tkrk gSA ;g
Properties isfVax dk iSVZu fMlkbV djrk gSA
Seting
0 Solid
1-Transparent
2-Horizontal Line
3-Vertical line
4-Upword Diagonal
5-Downword Diagonal
6-Cross
7-Diagonal Cross
Fill Color-vkd`fr;ksa dks Hkjus ds fy;s tkus okys jax dks izdV djrk
gSA ;k fu/kkZfjr djrk gSA Fillcolor dk iz;ksx Ciecle vkSj Line Graphice
fof/k;ksa }kjk jfpr o`Rkksa vkSj ckWDl dks Hkjus ds fy;s fd;k tkrk
gSA
Circle bl Mathod dk use Circle Ellipse
, Arc
cukus ds fy;s fd;k tkrk gSA
Sysntax- circle (x,y),redius,color value
Example- circle (1000,1000),900,Qb color(1)
Arc- circle (x,y),radius,color value,startangle,stopangle
Example- circle (1000,1000),900,Qb color (1),3.141/2,3.141
PSET-bl method dk use single pixle (picture ds rRo , drow djus ds fy, fd;k tkrk gSaA
dbZ Pset dk combination circle,linedks smooth vkSj free hand drowing cukus ds fy,
fd;k tkrk gSA
Syntax- pset (x,y),colorvalue
Example- pset (500,500),Qb color(0)
CLS-bl method dk use picture box esa drow fd;s x;s drowing dks feVkus ds fy,
fd;k tkrk gSA
Drow width bl properties dk use line drow djus ds fy, fd;k tkrk gSA bl properties
dks drowing method ;k line vkSj pset ds }kjk use fd;k tkrk gSA
Example- drow width=2
Line (50,50)-(1000,1000),Qb color(0)
Menu Editor
Menu visual basic application ls brus vf/kd lEcf/kar gSfd budks cukus vkSj dsoy
izksxzke djus ds fy, cgqr de izksxzkfeax dh vko;drk gksrh gSAvisual
basic ,d lwfo/kk iznku djrh gS tks fd menues dks cukus vkSj ifjorZu djus dh
fdz;k dks lk/kkj.k cukrk gS] bls menu editor dgrs gSA
Menu Editor ds varxZr Visual Basic esa izR;sd User ds Interface ds lkFk Combine
fd;k tk ldrk gSA ;g Menu ,d Control ds leku dk;Z djrk gSA ftlds izR;sd Option
fd Properties gksrh gSA Visual Basic ds }kjk ;g Menu Title Bor ds uhps Display
fd;k tk ldrk gSA ysfdu Visual Basic ,d Menu dks nks izdkj ls Design djus fd
Fasility Provate djrk gSA
Pull Down
Popup Menu
Pull Down Menu:Pull Down Menu menu bar ds fdlh Hkh fodYi ij left click djus ls izkIr gksrk
gSA Pull doun menu dks ;k rks menu bar fuekZ.k ds nkSjku cuk;k tk ldrk gS ;k
fQj menus dks ckn esa tksM+rsa gSaA tSlk fd application esa fd;k x;k gSA lcls
igys iwjk menu bar dk fueZk.k fd;k vkSj ckn esa menu fodYiksa dks mlds
lkis{k tksMk x;kA menu editor dks insert button dks nckdj ;g dk;Z fd;k tk ldrk
gSA visual basic izkjafHkd menu bar fodYiksa vkSj pulldown menu ds fodYiksa
esa varj iznfkZr djrh gSaA ;fn Exit fodYi dks file fodYi ds ckn ij nh xbZ
fof/k ds vuqlkj tksM nsxsa rks og Hkh eaU;w ckj esa Qkby vkSj dyj ds chp
iznfkZr gks tk;sxk u fd file menu fodYi ds :Ik esaA
Pop up Menu :iz;ksDrk fdlh QkWeZ ;k dUVksy ij Right fDyd djds ikWi&vi
esU;w izdV dj ldrs gSA ikWi&vi esU;w ,d fu;fer esU;w gksrk gS]
fdUrq ;g QkWeZ ij fLFkr ugha gksrk A ;g QkWeZ ij fdlh Hkh txg
iznfkZr fd;k tk ldrk gSA
ExamplePrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If Button =2 then
Popupmenu (popup menu name)
End if
End sub
Menu Editor-
Menu editor ds varxZr fotqvy csfld esa izR;sd User ds Interface ds lkFk
Combine fd;k tk ldrk gSA ;g menu ,d Control ds leku dk;Z djrk gSA ftlds
izR;sd Option fd Properties gksrh gSA fotqvy csfld ds }kjk ;g esU;q Title
Bor ds fups Display fd;k tk ldrk gSA ysfdu fotqvy csfld ,d esU;q dks
nks izdkj ls Design djus fd Fesility Provate djrk gSA Pull Down, Popup menu
Pull down menu title bar ds uhps Display fd;k tkrk gSA tcfd popup
menu run time ij ml le; Display gksrk gSA tc Right Button Click fd;k tkrk gSA
nksuks izdkj ds menu dks Design djus ds fy;s fotqvy csfld ,d izksxzke
Provate djrk gSA ftls menu editor dgrs gSA ;g Program Best Dilogbox gSA tks
menu ls lacaf/kr lHkh Properties fd Setting ds fy;s Option Provate djrk gSA
Menu Editor esa Graphicaly cuk;s tkus ckys menu dk Stracture ns[kk tk
ldrk gSA menu Editore marge ds Lowest Lable ds fy;s SortCut pqUkus dh
Fesility Provate djrk gSA vkSj Caption dh Properties dh lgk;rk ls izR;sd menu
Option ds sort Cut key Difind djus fd Fesility Hkh Provate djrk gSA
Properties
(1) Name - bl Properties dk use menu dk uke Difind djus ds fy;s fd;k tkrk
gSA
(2) Caption- bl Option dk iz;ksx Run Time ij fn[kus okys Text dk Caption
Difind djus ds fy;s djrs gSA
(3) Visible- bl Properties dk Use menu dks Display djus ds fy;s fd;k tkrk
gSA
Pulldown menu ExampleForm1
Menu Editor
Text1
Text1
(!) Arrange Mathode - bl Mathod dk use MDI Form ds lHkh Child Forms dks Arrange
djus ds fy;s fd;k tkrk gSA
0 Cascade
1 Horizontal
3 Vertical
MdiForm1
Properties Seting
Form1
Mdichild-True
Form2
Mdichild-True
Error Handling
ge dSls Hkh vius program dks jfpr vkSj tkWp D;ksa u djsa
ju&Vkbe ,jj vkids izksxzke esa geskk mRiUu gksrh gSA ,d ju
Vkbe ,jj rc gksrk gS tc ,d iz;ksDrk Mkbo esa fMLd Mkyuk Hkwy
tkrk gS vkSj fMLd dks i<+us dh dksfkk djrk gS vkSj ,d ,jj rc
mRiUu gksrk gS tc vki ;g mis{kkdjrs gSa fd ,d iz;ksDrk ,d la[;k
izfoV djuk djuk tkurk gksxk fdUrq og blds cnys ,d fLVax izfoV
djrk gSA
Errors dks le>uk:- Error handling O;oLFkk dks rhu rjg ls le> ldrs
gSA
* Syntax error * Logical Error * Run-Time Error
(1) Syntax Error:- ;s lekU;r% Hkkkk;h ,jj gSA tSls dhoMZ dh xyr
crZuh] MkVk vo;oks dk xyr iz;ksx ;k fojke fpUg dk de ;k vf/kd
iz;ksxA ;g lkekU;r% izksxzke ds dk;kZUo;u ds vkajHk esa idM+h
tkrh gSA
UNIT -V
Data Control:Data control basic active-x control gSA ftldk mi;ksx data base program esa fd;k
tkrk gSA ;g control backend vkSj visual basic izksxzke ds rediater dk dk;Z djrk
gSA bldh lgk;rk ls ,d data base dks call fd;k tkrk gS vkSj connection ds data
base ds record dks visual basic esa ,Dlsl fd;k tk ldrk gSA ;g control data base
menuplation ls releted method provide djrk gS ftldh lgk;rk ls backend record dks
add, insert, modify dj ldrs gS vkSj bls delete Hkh fd;k tk ldrk gSA;g control fdlh
Hkh izdkj ls database dks facility proviite djrk gSaA vkSj coding ds }kjk
dsoy ,d method ls database ds lHkh formate okys database dks maintane fd;k
tkrk gSA visual basic esa control ds single stand ,alone ,computer system ds
database dks handle djus ds fy, use fd;k tkrk gSA blds }kjk mathode database
dks access ugh fd;k tk ldrk gSA method database dks access djus ds fy, advansd
data base use fd;s tkrs gSA
Example- ADO-Data Control (Active-x data object)
Condition style-(1) using data control
(3) using vb code
Properties(1) Database name- bl properties dk use database file ds name dks specify djus ds
fy, fd;k tkrk gSA ;g propertys .MDB file (ms access) .dbf (foxpro) .xls(excel)
vkSj .txt (notepad) vkfn file formate dks saport djrk gSA dbZ file vkSj
.xls,.txt file name dks bl properties esa direct save ugha fd;k tk ldrkA bl
izdkj ds properties file dks specify djus ds fy, bl properties esa buds
directry name dks specify djuk gksrk gSA
(2) Record set type-bl properies dk use database set select djus ds fy, fd;k tkrk
gSA bl properties esa three conection gksrs gSA (1) dynaset type (2) table
type (3) snape short typeA
(1)
Dynaset- ml le; select fd;k tkrk gSA tc ,d data base multipal table gksrs
gSA vkSj table type dk selection ml le; fd;k tkrk gSA tc single table gksrk
(3)
(4)
gS vkSj snape short dk use ml le; fd;k tkrk gSA tc database ds table dks
read only ram esa open fd;k tkrk gSA
Record source- bl properties dk table dk uke select djus ds fy, fd;k tkrk
gSA ;g propertie mu lHkh tables file esa disply djrk gSA tks data base file
esa store fd;s gSA bl properties esa table dks select djus ds fy, command
specic type Hkh fd;k tkrk gSA
Example- select*form emp
Align-bl properties dk use data control dk alignment fix djus ds fy, fd;k
tkrk gSA tc bldh value 0 gksrh gSA rc data control dks form ds fdlh Hkh
LFkku ij j[kk tk ldrk gSA vkSj none 0 value set djus ij data control form ds
fdlh particular side ij align gks tkrk gSA
1-Left
2-Right
3-Top
4-Bottom
0-None aling
Visual data managerVisual data manager visual basic programming software dk ,d application gSA ftldk
mi;ksx database fMtkbu djus database modify djus vkSj record maintan djus ds fy,
fd;k tkrk gSA bl application ds }kjk different formet ds data base file vklkuh ls
cuk;s tk ldrs gSA ;g ,d GUI based application gS bl dkj.k table design ds fy, table
ds record dks maintan djus ds fy, type djus dh vko;drk ugh gksrh gSA ;g
application Microsoft access foxpro oracle vkfn formate ds data base cukua esa
mi;ksxh gSA bl data base file dks open Hkh fd;k tk ldrk gSA vkSj blesa change
Hkh fd;k tk ldrk gSA
Data Bound Control-Visual basic esa data base programming ds le; table ds izR;sd
column dks vyx-vyx controle ls connect djus dh vko;drk gksrh gSA bl connection
ls record ds column dh izR;sd value dks vyx-vyx controle esa disply fd;k tk ldrk
gSA vkSj mls modify fd;k tk ldrk gSA ftu column dh lgk;rk ls table ds column
dks connect fd;k tkrk gSA mls data bound control dgrs gSA bls connection esa ,d
column dsoy ,d control ls bound gks ldrk gSA visual basic ds ,sls controle ftuesa
data source vkSj data field properties ik;h tkrh gSA mls data bound control dgk tkrk
gSA
Method:(1) Add New:- bl method dk use data base table ds bottom esa blank record add
djus ds fy, fd;k tkrk gSA
Syntax- data1.record set.add new
(2) Update:- bl method dk use new data record dks parmenantly save djus ds fy,
fd;k tkrk gSA
Syntax- data 1.Record set.update
(3) Move first:- bl method dk use first record dks select djus ds fy, fd;k tkrk
gSA
Syntax- Data1.record set.move first
(4) Move previous:- bl method dk use ,d previous records dks select dkus ds fy,
fd;k tkrk gSA ;g method record pointer esa ,d record add djrk gSA
Syntax:- data1.Recordset.Move previous
(5)
(6)
(7)
Move Next:- bl method dk use next record dks select djus ds fy, fd;k tkrk
gSA
Syntax:- data1. Record set. Move Next
Move Last:- bl method dk use table ds vafre record dks select djus ds fy,
fd;k
tkrk gSA
Syntax:- data1.Record set. Move Last
Delete:- bl method dk use djds record dks delete djus ds fy, fd;k tkrk gSA
Syntax:- Data1.Record set.Delete
Event Reposition:- Reposition event data controls ds }kjk provite fd;k tkus okyk
event gSA tks ml le; ju gksrk gS tc record position change fd;k tkrk gSA bl
event dk iz;ksx djds display fd;k tk ldrk gSA record dks read djus ds fy,
absolute position properties dk use fd;k tkrk gSA Data control esa first record dk
number 0 gksrk gSA
Advance Data Bound Control
Advance Data Bound control foksk izdkj ds component gksrsa gSA ftls visual
basic ds data base programming esa use fd;k tk ldrk gSA Advance data bound
control ds }kjk data source, data field ;k list field properties dks support fd;k tkrk
gSA visual basic esa data base programming ds fy, front ij free advanced data bound
control use fd;k tk ldrk gSA
(1) Data List
(2) Data Combo
(3) Data Grid
(1) Data List Control:- Data list control dk use table ds fdlh ,d column ds lHkh value
dks Display djus ds fy, ds;k tkrk gSA ;g control lHkh records ds ,d column
ls related lhkh values dks display djrk gS vkSj run time ij fdlh ,d item dks
select fd;k tk ldrk gSA ;g MkVk list control, combo box control gSA ftldk
mi;ksx table ds ,d fdlh coloumn ds value dks display djus ds fy, fd;k tkrk
gSA blesa user ds }kjk dksbZ Hkh value add ugh dh tk ldrh gSA
(2) Data Combo:- Data Combo dk use table esa mifLFkr lHkh value dks display
djus ds fy, fd;k tkrk gSA bl control ds }kjk ge value dks ,d NksVs ls box
esa store djds j[k ldrs gS vkSj pull down button ij click djds lHkh item dks
display dj ldrs gSA
(3) Data Grid:- Data Grid control worksheet ds leku row vkSj coloumn esa divide
fd;k x;k advance data bound control gSA ftldk mi;ksx fdlh table ds lHkh
record dks lHkh column ds lkFk display djus ds fy, fd;k tkrk gSA ;g control
automatic different facility provide djrk gSA ftlls data base ds current modify
record dks immidiate ns[kk tk ldrk gSA
Advanced Data Control:Advance data control network vkSj internet application ds }kjk use fd;s tkus okyk
control gSA bl control dh lgk;rk ls ,d sequence database dks connect fd;k tk ldrk
gSA Advance data control connection ls igys login name vkSj password inter djus
dh facility Hkh provide djrk gSA Advance data control mu lHkh properties vkSj
method dks support djrk gSA tks data control ds fy, vko;d gSA bl control ds }
kjk multiple table dks ,d lkFk connect Hkh fd;k tk ldrk gSA visual basic esa
advance data control nks izdkj ls use fd;k tk ldrk gSA control dks visual basic
form esa place djds vkSj ml data control ds refress object dks visual basic
izksVsDV dks attach djds ftl le; data object dk refress attach fd;k tkrk gSA ml
le; data base handling dh tkrh gSA
Example (1) ADO (Active Data Object)
(2) RDO (Remote Data Object)
Connectivity with data Base:DSN (Data source Name):-- ;g ,d identifier gSA fyls ODBC driver fh enn ls cuk;k
tkrk gSA bl DSN dks network ds lHkh computer ds }kjk execute fd;k tkrk gSA
Type of DSN:(1)
(2)
(3)
System DSN
User DSN
File DSN
Systen DSN:- Systen DSN dks network ij fdlh Hkh user }kjk fd;k tk ldrk
gSA
(2) User DSN:- dsoy particular type ds group user ds }kjk access fd;k tk ldrk
gSA
(3) File DSN:- File DSN ,d file creat djrk gSA vkSj ;g file ftl computer esa store
jgrk gSA mlh ds }kjk DSN access fd;k tk ldrk gSA
Example(1)
Form1
Label2
Label1
Text1
Text2
Command2
Command1
Command3
Data1