controls

1)button.
private sub button1_click(byval sender as system.object, byval e as
system.eventargs) handles button1.click
dim cek as new checkbox
cek.size = new size(100, 20)
cek.checkstate = checkstate.indeterminate
cek.text = "checkbox1"
cek.checked = true
me.controls.add(cek)

end sub

private sub button2_click(byval sender as system.object, byval e as

system.eventargs) handles button2.click
dim pnl as new panel
dim txt as new textbox
dim label as new label
pnl.location = new point(60, 20)
pnl.size = new size(500, 500)

dim cek1 as new checkbox

cek1.size = new size(100, 20)
cek1.text = "sss"
me.controls.add(pnl)
pnl.controls.add(cek1)
'pnl.controls.add(cek2)
'pnl.controls.add(cek3)

end sub

2)‘runtime txt,rich txt, lbl,linklbl

#region "runtime text box"

private sub btntxt_click(byval sender as system.object, byval e as
system.eventargs) handles btntxt.click
dim txt as new textbox
txt.size = new size(100, 200)
txt.text = "hai elango"
me.controls.add(txt)
end sub
#end region
#region "runtime rich text box"
private sub btnrichbox_click(byval sender as system.object, byval e
as system.eventargs) handles btnrichbox.click
dim richtxtbox as new richtextbox
richtxtbox.size = new size(100, 100)
richtxtbox.location = new point(20, 40)
richtxtbox.text = "welcome"
me.controls.add(richtxtbox)
end sub
#end region
#region "runtime label box"
private sub btnlbl_click(byval sender as system.object, byval e as
system.eventargs) handles btnlbl.click
dim lblbox as new label
lblbox.size = new size(200, 50)
lblbox.location = new point(20, 150)
lblbox.text = "new label box"
me.controls.add(lblbox)
end sub
#end region

#region "runtime linklabel box"

private sub btnlnk_click(byval sender as system.object, byval e as
system.eventargs) handles btnlnk.click
dim lnklblbox as new linklabel
lnklblbox.size = new size(200, 50)
lnklblbox.location = new point(20, 200)
lnklblbox.text = "new label box"
me.controls.add(lnklblbox)
end sub
#end region

private sub linklabel1_linkclicked(byval sender as system.object,

byval e as system.windows.forms.linklabellinkclickedeventargs) handles
linklabel1.linkclicked
system.diagnostics.process.start("www.google.com")
end sub
3) 'in this checked listbox,listbox,comboboxes,picture boxes are
explianed
#region "listbox"
private sub btnlistbox_click(byval sender as system.object, byval e
as system.eventargs) handles btnlistbox.click
'adding the items in listbox by using forloop
dim item as integer
for item = 1 to 10
listbox1.items.add("name" & item.tostring())
next
end sub

private sub lstbox1_selectedindexchanged(byval sender as

system.object, byval e as system.eventargs) handles
lstbox1.selectedindexchanged
txtrichbox.text = lstbox1.selectedindex ''''it retrive the
numerical value i.e position
'txtrichbox.text = lstbox1.selecteditem ''''it retrive the
selected iitem
'txtrichbox.text = lstbox1.text
end sub
#end region
#region "checkedlistbox"
dim state as checkstate
private sub txtchklstbox_click(byval sender as system.object, byval
e as system.eventargs) handles txtchklstbox.click
pnlchecklistbox.visible = true
end sub
private sub checkedlistbox1_itemcheck(byval sender as object, byval
e as system.windows.forms.itemcheckeventargs) handles
checkedlistbox1.itemcheck
 state = checkedlistbox1.getitemcheckstate(0)
' dim newvalue as integer

select case e.newvalue

'to select the checked value in the checkbox
case checkstate.checked
txtcheckedlistbox.text = "item" & e.index + 1 & "is
checked "
'to select the unchecked value in the checkbox
case checkstate.unchecked
txtcheckedlistbox.text = "item" & e.index + 1 & " is
unchecked"
end select
end sub
#end region
private sub commonfunction2_load(byval sender as system.object,
byval e as system.eventargs) handles mybase.load
statusbar1.panels.add("www")
end sub
end class
4) progressbar
private sub button1_click(byval sender as system.object, byval e as
system.eventargs) handles button1.click
timer1.enabled = true '''' after clicking the button1, the
timer will be start(i.e timer region) and end when progress bar get its
max value. after that timer will be disabled
end sub

#region "timer"
private sub timer1_tick(byval sender as system.object, byval e as
system.eventargs) handles timer1.tick
progressbar1.value += 1
if progressbar1.value = progressbar1.maximum then
timer1.enabled = false
end if
end sub
#end region
end class

5)trackbar
private sub trackbar1_scroll(byval sender as system.object, byval e as
system.eventargs) handles trackbar1.scroll
textbox1.text = "the track bar value is:" & trackbar1.value
end sub
end class

6)date and time picker

private sub datetimepicker1_valuechanged(byval sender as system.object,
byval e as system.eventargs) handles datetimepicker1.valuechanged
datetimepicker1.format = datetimepickerformat.custom
'datetimepicker1.customformat = "mmmm dd yyyy hh:mm:ss tt"
'datetimepicker1.customformat = "mmmm dd hh:mm:ss tt"
'datetimepicker1.customformat = "mmmm dd yyyy tt"
datetimepicker1.customformat = "mm dd yy mm" ''''mm-denotes
the month
''''mm-denotes the minitus
 end sub

private sub monthcalendar1_datechanged(byval sender as

system.object, byval e as system.windows.forms.daterangeeventargs)
handles monthcalendar1.datechanged
'textbox1.text = "day of the month selected: " &
monthcalendar1.selectionrange.start.day '''' selectionrange contains
'start' and end' day

'textbox1.text = "day of the year selected: " &

monthcalendar1.selectionstart.dayofyear ''''selectionstart contains
'day','month','year'
'textbox1.text = "day of the month selected: " &
monthcalendar1.selectionstart.month
textbox1.text = "day of the week selected: " &
monthcalendar1.selectionstart.dayofweek

end sub
end class
7)timer
dim balarm as boolean
private sub timer1_tick(byval sender as system.object, byval e as
system.eventargs) handles timer1.tick
lbltimer.text = timeofday
if txthour.text <> "" and txtmin.text <> "" and txtsec.text <>
"" then
dim alarm = new datetime(today.year, today.month,
today.day, val(txthour.text), val(txtmin.text), val(txtsec.text))
if now >= alarm and balarm then
beep()
lbltimerevent.text = "alarm on"
end if
end if
end sub
private sub button1_click(byval sender as system.object, byval e as
system.eventargs) handles button1.click
timer1.enabled = true
end sub
private sub rdotimer1_checkedchanged(byval sender as system.object,
byval e as system.eventargs) handles rdotimer1.checkedchanged
if rdotimer1.checked = true then
balarm = true
end if
end sub

private sub rdotimer2_checkedchanged(byval sender as system.object,

byval e as system.eventargs) handles rdotimer2.checkedchanged
if rdotimer2.checked = true then
balarm = false
end if
end sub

end class
8)tooltip & erroer provider
private sub tooltipanderrorprovider_load(byval sender as system.object,
byval e as system.eventargs) handles mybase.load
tooltip1.settooltip(textbox1, "enetr the name")
tooltip2.settooltip(textbox2, "enetr the password")

end sub

private sub button1_click(byval sender as system.object, byval e as

system.eventargs) handles button1.click
if textbox1.text = "" then
errorname.seterror(textbox1, "must enter name")
end if
if textbox2.text = "" then
errorname.seterror(textbox2, "must enter pasword")
end if

end sub
end class
9)tab page control
private sub panel1_paint(byval sender as system.object, byval e as
system.windows.forms.painteventargs) handles panel1.paint
tooltip1.settooltip(textbox1, "enter your name")
tooltip2.settooltip(textbox2, "enter your password")
end sub

private sub button1_click(byval sender as system.object, byval e as

system.eventargs) handles button1.click
if textbox1.text = "" then
errorprovider1.seterror(textbox1, "you should enter your
name")
end if

if textbox2.text = "" then

errorprovider2.seterror(textbox2, "you should enter your
password")
end if
end sub

private sub button3_click(byval sender as system.object, byval e as

system.eventargs) handles button3.click
close()
end sub

private sub button4_click(byval sender as system.object, byval e as

system.eventargs) handles button4.click
close()
end sub
end class
10)treeview and list view
private sub button1_click(byval sender as system.object, byval e as
system.eventargs) handles button1.click
static index as integer = 0
if index < imagelist1.images.count - 1 then
index += 1
else
 index = 0
end if
picturebox1.image = imagelist1.images(index)
end sub
private sub treeview1_afterselect(byval sender as system.object,
byval e as system.windows.forms.treevieweventargs) handles
treeview1.afterselect
if e.node.checked = true then

txttreeview.text = "you unchecked:" & e.node.text

else
txttreeview.text = "you checked:" & e.node.text
end if
end sub
private sub btn_click_click(byval sender as system.object, byval e
as system.eventargs) handles btn_click.click
'treeview1.checkboxes = true
end sub
private sub image_click(byval sender as system.object, byval e as
system.eventargs) handles image.click
panelimage.visible = true
end sub
private sub treeview_click(byval sender as system.object, byval e as
system.eventargs) handles treeview.click
panelterrview.visible = true
end sub
end class
11)color dialogebox
private sub btn_color_click(byval sender as system.object, byval e as
system.eventargs) handles btn_color.click
'toolbox-color dialogclass
'if colordialog1.showdialog <> dialogresult.cancel then
' lbl_color.text = " this is new color"
' lbl_color.forecolor = colordialog1.color

'end if

'manual-color dialogclass
dim color as new colordialog
if (color.showdialog <> dialogresult.cancel) then
lbl_color.text = "this is new color"
lbl_color.forecolor = color.color
end if
end sub
end class
12)font dialogbox
private sub btn_display_click(byval sender as system.object, byval e as
system.eventargs) handles btn_display.click
'toolbox-font dialogbox
if fontdialog2.showdialog <> dialogresult.cancel then
rich_font.font = fontdialog2.font
rich_font.forecolor = fontdialog2.color
end if

'font dialog through coding

'dim font as new fontdialog
 'if (font.showdialog <> dialogresult.cancel) then
' rich_font.font = font.font
' rich_font.forecolor = font.color
'end if
end sub
end class
13)open file dialog box
private sub button1_click(byval sender as system.object, byval e as
system.eventargs) handles btn_fileopen.click
'dim openfiledialog1 as new openfiledialog
'openfiledialog1.showdialog()
'if (openfiledialog1.showdialog) <> dialogresult.cancel then
' picturebox1.image =
image.fromfile(openfiledialog1.filename)
'end if
if (openfiledialog3.showdialog <> dialogresult.cancel) then
picturebox1.image = image.fromfile(openfiledialog3.filename)
end if

end sub

private sub btn_filesave_click(byval sender as system.object, byval

e as system.eventargs) handles btn_filesave.click
dim savefiledialog1 as new savefiledialog
savefiledialog1.showdialog()
if (savefiledialog1.showdialog <> dialogresult.cancel) then
msgbox("you chose" & savefiledialog1.filename)
end if

end sub
private sub openfiledialog3_fileok(byval sender as system.object,
byval e as system.componentmodel.canceleventargs) handles
openfiledialog3.fileok

openfiledialog3.showhelp = true
end sub
end class
14)print dialog box
private sub printdialogclass_load(byval sender as system.object, byval
e as system.eventargs) handles mybase.load
richtextbox1.text = "on a new form drag a printdialog,
printdocument,printpreviewcontrol, printpreviewdialog, pagesetupdialog,
mainmenu and a richttextbox contol. select mainmenu and in the part,
type file and under file type print, printpreview, pagesetup and
ppcontrol. the menu should look like this:file->print, printpreview,
pagesetup, ppcontrol. the richtextbox control is used to load some text
in it which will be ready to print. the form in design view should look
like the image below"
end sub

private sub menuitem2_click(byval sender as system.object, byval e

as system.eventargs) handles menuitem2.click
if printdialog1.showdialog <> dialogresult.cancel then
printdocument1.printersettings =
printdocument1.printersettings
printdocument1.print()
 end if

end sub

private sub menuitem3_click(byval sender as system.object, byval e

as system.eventargs) handles menuitem3.click
if printpreviewdialog1.showdialog <> dialogresult.ok then
msgbox("pagesetup is correct")
else
msgbox("pagesetup is not correct")

end if
end sub

private sub menuitem4_click(byval sender as system.object, byval e

as system.eventargs) handles menuitem4.click
with pagesetupdialog1
.pagesettings = printdocument1.defaultpagesettings
end with

if pagesetupdialog1.showdialog = dialogresult.ok then

printdocument1.defaultpagesettings =
pagesetupdialog1.pagesettings
end if

end sub
end class