|
The Form design,
About.vb
Create Visual Basic .Net Forn
- About.vb
Classes used in this Form:
PictureBox,
Label, Button and
timer
- On the View menu ,
click Solution Explorer
- In Solution
Explorer, right click the RBT Accounting Net, select
Add on the shortcut menu to open other shortcut menu,
click Add New Item, the Add New Item - RBT
Accounting Net dialog box appears.
- In the Add New
Item -RBT Accounting Net 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. |
Add picture files ...
|
|
- From the CD-Rom -
Teach_VNet, copy the following bmp
files:
RBTdesn.bmp (\\RBT
Accounting Net\Pic\RBTdesn.bmp) RBTdesn1.bmp
(\\RBT Accounting
Net\Pic\RBTdesn1.bmp) RBTdesn1.bmp
(\\RBT Accounting
Net\Pic\RBTdesn2.bmp) to the folder c:\RBT
Accounting Net\Pic
- On the
Projet menu , click Add Existing Item
..., Add Existing Item - RBT Accounting Net
dialog box appears, select the files RBTdesn.bmp,
RBTdesn1.bmp, RBTdesn2.bmp of the folder
c:\RBT Accounting Net\Pic, and then click
Open.
|
2. |
The About.vb
design |
|
 |
The Properties of
the Form - About.vb... |
FromBorderStyle Name: Menu: Size: Start
Position: Text: Window
State: |
FixedToolWindow About (none) 442,184 CenterScreen About
... Normal | | | |
3. |
From the Toolbox/Windows Form add these
controls .... Tree PictureBox controls, seven
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:\RBT Accounting
Net\Pic\RBTdesn.bmp.bmp
- Add the PictureBox
control - Picicoorg0 Properties:
Name: Image: Size
Mode: |
Picicoorg0 System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\RBT Accounting
Net\Pic\RBTdesn.bmp1.bmp
- Add the PictureBox
control - Picicoorg1,
PictureBox Properties:
Name: Image: Size
Mode: |
Picicoorg1 System.Drawing.Bitmap Autosize | |
Bitmap file
added = C:\RBT Accounting
Net\Pic\RBTdesn2.bmp
- Add the Label
control
- Label1, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label1 Microsoft Sans Serif,
8.25pt 240,16 Visual Basic .net
application with
SQl TopLeft | |
- Add the Label
control
- Label2, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label2 Microsoft Sans Serif,
8.25pt 240,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 240,16 Tel: 961.
01.691436. TopLeft | |
- Add the Label
control
- Label4, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label4 Microsoft Sans Serif,
8.25pt 240,16 Web:
www.puresoftwarecode.com
TopLeft | |
- Add the Label
control
- Label5, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label5 Microsoft Sans Serif,
8.25pt 240,16 E-mail:
info@puresoftwarecode.com TopLeft | |
- Add the Label
control
- Line1, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Line1 Microsoft Sans Serif,
8.25pt 256,2
TopLeft | |
- Add the Label
control
- Label6, Label
Properties:
Name: Font: Size: Text: TextAlign: |
Label6 Microsoft Sans Serif,
8.25pt 192,16 All right reserved
TopLeft | |
- Add the Button
control - btnDone, Button
Properties:
Name: BackColor: Size: Text: |
btnDone Scrollbar 80,24 Done | | | | |
|
About.vb file, the codes ... |
|
Public Class About
Inherits
System.Windows.Forms.Form
Dim IcoNmbr As Integer
Windows Form
Designer generated
code |
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
| | |
|
|