|
The
Form design, about.vb
Create Visual Basic 2010 Forn - about.vb
Classes used in this Form: Timer,
PictureBox, Button, Label,
Textbox
-
Create the Form
about.vb
Add New Item -
about.vb Form to work_VBNet_10
Project
- On the Projet
menu , click Add New Item ...,
Add New Item - work_VBNet_10 dialog box appears, Select
Windows form Icon,
in the Name box type
about.vb and then click
Add.
|
 |
|
Note:
In the Windows Forms Designer appears the
design form created and in the Properties
Windows displays the corresponding properties
and
The design Form about.vb created, appears the empty window Form
design |
|
|
The codes file, created
... |
Public
Class
about
Private
Sub
about_Load(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
MyBase.Load
End
Sub
End
Class
|
|
|
|
1. |
Picture files used by this form ...
|
|
- The folder
c:\work_VBNet_10\work_VBNet_10\pic stored the
bmp files wdesn.bmp,
wdesn1.bmp, wdesn2.bmp
|
2. |
The about.vb
design |
|
 |
The Properties of
the Form -
about.vb... |
Name: Icon: Maximize: Menu: Size: Start
Position: Text: Window
State: |
about Icon False (none)
368,332 CenterScreen
about
... Normal | | | |
3. |
From the Toolbox/Windows Form add these
controls .... 3 PictureBox
controls, 12 Label
controls, 5 TextBox controls, 1
Panel control, 1 Timer contol and 2
Button controls.
|
|
- Add
the PictureBox
control - Picico, PictureBox
Properties:
Name: Image: Size
Mode: |
Picico System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\work_VBNet_10\work_VBNet_10\pic\wdesn.bmp
- Add
the PictureBox
control - Picicoorg0
Properties:
Name: Image: Size
Mode: |
Picicoorg0 System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\work_VBNet_10\work_VBNet_10\pic\wdesn1.bmp
- Add
the PictureBox
control - Picicoorg1,
PictureBox Properties:
Name: Image: Size
Mode: |
Picicoorg1 System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\work_VBNet_10\work_VBNet_10\pic\wdesn2.bmp
- Add
the Label
control
- Label1, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label1 Microsoft Sans Serif,
8.25pt 232,16 Visual Basic 2010
application TopLeft | |
- Add
the Label
control
- Label2, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label2 Microsoft Sans Serif,
8.25pt 232,16 Created by Chucri
Simon
Zouein. TopLeft | |
- Add
the Label
control
- Label3, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label3 Microsoft Sans Serif,
8.25pt 232,16 Tel:
961-
01-691436. TopLeft | |
- Add
the Label
control
- Label4, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label4 Microsoft Sans Serif,
8.25pt 232,16 Web:
www.puresoftwarecode.com
TopLeft | |
- Add
the Label
control
- Label5, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label5 Microsoft Sans Serif,
8.25pt 232,16 E-mail:
info@puresoftwarecode.com TopLeft | |
- Add
the Label
control
- Label6, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label6 Microsoft Sans Serif,
8.25pt 232,16 Beirut, Lebanon. All right
reserved ...
TopLeft | |
- Add
the Button
control - btnDone, Button
Properties
Name:
BackColor:
Size:
Text: |
btnDone
Silver
80,24
Done | |
- Add
the Button
control - btndetail, Button
Properties
Name:
BackColor:
Size:
Text: |
btndetail
Silver
80,24
detail | |
- Add
the Label
control
- Line1, Label
Properties
Name:
Font:
Size:
Text:
TextAlign: |
Label
Microsoft Sans Serif, 8.25pt
256,2
TopLeft | |
- Add
the Panel control
- Panel1, Panel
Properties:
Name:
Size: |
Panel1
360,133 | |
- Add
the Label
control
- Label7, Label
Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label7
Microsoft Sans Serif, 8.25pt
130,16
computer nane
TopLeft | |
- Add
the TextBox control
- TextBox1,
TextBox
Properties
Name:
Font:
Size:
Text: |
TextBox1
Microsoft Sans Serif, 8.25pt
200,20
| |
- Add
the Label control
- Label8, Label
Properties
Name:
Font:
Size:
Text:
TextAlign: |
Label8
Microsoft Sans Serif, 8.25pt
130,16
registered owner
TopLeft | |
- Add
the TextBox control
- TextBox2,
TextBox
Properties
Name:
Font:
Size:
Text: |
TextBox2
Microsoft Sans Serif, 8.25pt
200,20
| |
- Add
the Label
control
- Label9, Label
Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label9
Microsoft Sans Serif, 8.25pt
130,16
operating system nane
TopLeft | |
- Add
the TextBox
control
- TextBox3,
TextBox
Properties:
Name:
Font:
Size:
Text: |
TextBox3
Microsoft Sans Serif, 8.25pt
200,20
| |
- Add
the Label
control
- Label10, Label
Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label10
Microsoft Sans Serif, 8.25pt
130,16
operating system version
TopLeft | |
- Add
the TextBox
control
- TextBox4,
TextBox
Properties:
Name:
Font:
Size:
Text: |
TextBox4
Microsoft Sans Serif, 8.25pt
200,20
| |
- Add
the Label
control
- Label11, Label
Properties:
Name:
Font:
Size:
Text:
TextAlign: |
Label11
Microsoft Sans Serif, 8.25pt
130,16
windows root folder
TopLeft | |
- Add
the TextBox
control
- TextBox5,
TextBox
Properties:
Name:
Font:
Size:
Text: |
TextBox5
Microsoft Sans Serif, 8.25pt
200,20
| | | | |
|
about.vb file, the codes after modification
...
|
|
Public
Class
about
Inherits
System.Windows.Forms.Form
Dim Env
As
System.Environment
Dim IcoNmbr
As
Integer = 0
Private
Sub
about_Load(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
MyBase.Load
Me.Height =
Me.btnDone.Top
+ (Me.btnDone.Height
* 9 / 4)
Me.Btndetail.Text =
"detail"
Me.TextBox1.Text =
Environment.MachineName.ToString
Me.TextBox2.Text =
System.Environment.UserName.ToString
Me.TextBox3.Text =
System.Environment.OSVersion.ToString
Me.TextBox4.Text =
System.Environment.Version.ToString
Me.TextBox5.Text =
System.Environment.SystemDirectory.ToString
End
Sub
Private
Sub
btnDone_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
btnDone.Click
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
Private
Sub
Btndetail_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btndetail.Click
If
Me.Btndetail.Text
=
"detail"
Then
Me.Height =
Me.Panel1.Top
+ Me.Panel1.Height
+ Me.btnDone.Height
Me.Btndetail.Text =
"hide"
Exit Sub
End
If
If
Me.Btndetail.Text
=
"hide"
Then
Me.Height =
Me.btnDone.Top
+ (Me.btnDone.Height
* 9 / 4)
Me.Btndetail.Text =
"detail"
End
If
End
Sub
End
Class
| | |
|
|