|
The Form design, Biography.vb
Create Visual Basic
.Net Forn - biography.vb
Classes used in this Form:
Timer, PictureBox, Label, Button
- On the View menu ,
click Solution Explorer
- In Solution Explorer,
right click the APP-VBNet, select Add on the shortcut
menu to open other shortcut menu, click Add New Item, the Add
New Item - APP-VBNet dialog box appears.
- In the Add New Item -APP-VBNet
dialog box:
- In the Categories
pane, select Local Project Items
- In the Templates
pane, select Windows form . A message appears - (a form
for Windows Applications).
- In the Name
box, type Biography.vb
- Click Open
- In the windows Forms
Designer appears the empty window Form design
|
1. |
Add picture file ...
|
|
- From the CD-Rom -
Teach_VNet, copy the
bmp file butterfly2.bmp (\\APP-VBNet\Pic\butterfly2.bmp) to
the folder
c:\APP-VBNet\Pic
- On the Projet
menu , click Add Existing Item ..., Add
Existing Item - APP-VBNet dialog box appears, select the
file butterfly2.bmp of the folder c:\APP-VBNet\Pic,
and then click Open.
|
2. |
The
Biography.vb
design |
|

|
The
Properties of the Form - Biography.vb... |
Name:
Icon:
Maximize:
Menu:
Size:
Start Position:
Text:
Window State: |
Biography
Icon
False
(none)
488,216
CenterScreen
Biography ...
Normal |
|
|
|
3. |
From
the Toolbox/Windows Form
add these controls ....
Tree PictureBox controls, eight Label
controls and one Button control. |
|
-
Add the PictureBox control
-
Picico, PictureBox Properties:
Name:
Image:
Size Mode: |
Picico
System.Drawing.Bitmap
Autosize |
|
Bitmap file added =
C:\App-VBNet\Pic\butterfly1.bmp
-
Add the PictureBox control
-
Picicoorg0 Properties:
Name:
Image:
Size Mode: |
Picicoorg0
System.Drawing.Bitmap
Autosize |
|
Bitmap file added =
C:\App-VBNet\Pic\butterfly1.bmp
-
Add the PictureBox control
-
Picicoorg1,
PictureBox Properties:
Name:
Image:
Size Mode: |
Picicoorg1
System.Drawing.Bitmap
Autosize |
|
Bitmap file added =
C:\App-VBNet\Pic\butterfly2.bmp
-
Add the Label control
-
Label1, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label1
Microsoft Sans Serif, 8.25pt
344,16
Name: Chucri Simon Zouein.
TopLeft |
|
-
Add the Label control
-
Label2, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label2
Microsoft Sans Serif, 8.25pt
344,16
Address: Lebanon, Beirut, Sed El Baouchrie, ...
TopLeft |
|
-
Add the Label control
-
Label3, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label3
Microsoft Sans Serif, 8.25pt
344,16
Signification: Engineer on Computing and ...
TopLeft |
|
-
Add the Label control
-
Label4, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label4
Microsoft Sans Serif, 8.25pt
344,16
Tel: 961. 01.691436.
TopLeft |
|
-
Add the Label control
-
Label5, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label5
Microsoft Sans Serif, 8.25pt
344,16
Web: www.puresoftwarecode.com
TopLeft |
|
-
Add the Label control
-
Label6, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label6
Microsoft Sans Serif, 8.25pt
344,16
E-mail: info@puresoftwarecode.com
TopLeft |
|
-
Add the Label control
-
Label7, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label7
Microsoft Sans Serif, 8.25pt
344,16
All right reserved
TopLeft |
|
-
Add the Label control
-
Line1, Label Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Line1
Microsoft Sans Serif, 8.25pt
344,16
TopLeft |
|
-
Add the Button control
-
btnDone, Button Properties:
Name:
BackColor:
Size:
Text: |
btnDone
Scrollbar
80,24
Done |
|
|
|
|
|
Biography.vb
file, the codes after modification ...
The
text
Code
is
red color,
corresponding to Load data in the Statusbar control
|
|
Public
Class
Biography
Inherits
System.Windows.Forms.Form
Dim IcoNmbr
As
Integer
Windows Form Designer generated code |
Private
Sub
Biography_Load(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
MyBase.Load
IcoNmbr = 0
'
StatusBar Panel 1 = Message
fMainForm.StatusBarPanel1.Text = "Ready ... "
End
Sub
Private
Sub
btnDone_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
btnDone.Click
' To
close the current form
Me.Close()
End
Sub
Private
Sub
Timer1_Tick(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
Timer1.Tick
If
IcoNmbr = 0
Then
Me.picico.Image
= Me.picicoOrg0.Image()
IcoNmbr = 1
Else
Me.picico.Image
= Me.picicoOrg1.Image()
IcoNmbr = 0
End
If
End
Sub
End
Class |
|
|
|
|