|
The Form design,
about.vb
Create Visual Basic .Net Forn - about.vb
Classes used in this
Form: Timer,
PictureBox, Button, Label, Textbox
- On the View menu ,
click Solution Explorer
- In Solution
Explorer
In Solution Explorer, right click the
work_VBNet, select Add on the shortcut menu to
open other shortcut menu, click Add New Item,
the Add New Item - work_VBNet dialog box
appears. |

|
- In the Add New
Item -work_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 about.vb
- Click
Open
|

|
- In the windows
Forms Designer appears the empty window Form
design
|
1. |
Picture files used by this form ... |
|
- The folder
c:\work_VBNet\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\pic\wdesn.bmp
- Add the PictureBox
control - Picicoorg0 Properties:
Name: Image: Size
Mode: |
Picicoorg0 System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\work_VBNet\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\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 .net
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
...
The
text
Code
is red color, the codes added manuel |
|
Public
Class
aboutInherits
System.Windows.Forms.Form
Dim IcoNmbr As
Integer = 0
Windows Form Designer
generated code |
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
= System.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
| | |
|
|