VB Program by Majid
VB Program by Majid
VB Program by Majid
This is the first window when you start Application Wizard from new Projects Window
After Clicking on next button On Introductions Wizards the window is appearing as above.
You have to choose different menu & submenu for menu bar from above Menu window
You can also select the toolbar option from the wizards as shown in above window.
After completing the application wizards the above Application Created dialog box is appeared.
This is use of application wizards on form or Application as shown in above figure
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = "SUM"
End Sub
If chkread.Value = 1 Then
txtresult.Text = txtresult.Text & chkread.Caption & vbCrLf
End If
If chkwrite.Value = 1 Then
txtresult.Text = txtresult.Text & chkwrite.Caption & vbCrLf
End If
If chkplay.Value = 1 Then
txtresult.Text = txtresult.Text & chkplay.Caption & vbCrLf
End If
If chkmov.Value = 1 Then
txtresult.Text = txtresult.Text & chkmov.Caption & vbCrLf
End If
End Sub
Private Sub cmdclear_Click()
txtfarenheite.Text = ""
txtcelcius.Text = ""
End Sub
Form 2
Form 3
Form 1
Form 2
EXPERIMENT NO-
NAME:- Mohd Majid
CLASS:- B.S.c III
BATCH :- CES
STARTING FORM
OUTPUT
CODES
Form1
Form2
Output form 3
Output form 4
Output form 5
Visual Basic Code Of Programme
Create Visual Basic Application Which Uses A Text Box To Display Mouse
Status When You Move Or Click A Mouse
Form 1
Form 2
Form 3
txtPositionX.Text = X
txtPositionY.Text = Y
End Sub
NAME:-Mohd Majid
CLASS: - B.Sc III
BATCH: - M2
DATE:-20-01-2008
Form 2
Form 3
Dim n As Integer
Private Sub cmdlogin_Click ()
n=n+1
If (txtlogin.Text = "JAY GAJANAN") Then
MsgBox "CONGRAGULATION YOU CAN ACCESS THE SYSTEM",
vbOKOnly + vbExclamation, "WELCOME"
ElseIf (n < 3) Then
MsgBox "ENTER THE PASSWORD CORRECTLY ", vbOKOnly +
vbExclamation, "WELCOME"
txtlogin.Text = ""
Else
MsgBox "CONTACT YOUR ADMISTATOR YOU ARE NOT AUTHORISED
USER ", vbOKOnly + vbExclamation, "WRONG ACCESS"
Unload Me
End If
End Sub
NAME:-MOHD MAJID
CLASS: - B.Sc III
BATCH: - CEP
STARTING FORM 1
Dim n As Integer
Form 1
Output Form 1
Output form 2
Dim i, r, g, b As Integer
End Sub
End Sub
EXPERIMENT NO:- 01
PROGRAME :- PROGRME FOR SIMPLE VB DOCUMENT
NAME :- MOHD MAJID
CLASS :- B.Sc III
BATCH :- CEP
Private Sub cmdok_Click()
lblname.Visible = True
End Sub
Form 1
Form 2
Form 3
Form 4
VISUAL BASIC CODE
Private Sub MDIForm_Load()
Toolbar1.Buttons.Item(1).Enabled = False
Toolbar1.Buttons.Item(2).Enabled = False
Toolbar1.Buttons.Item(3).Enabled = False
End Sub
Case 5:
If Toolbar1.Buttons(5).Value = tbrUnpressed Then
Form4.RTB1.Font.Bold = False
Else
Form4.RTB1.Font.Bold = True
End If
Case 6:
If Toolbar1.Buttons(6).Value = tbrUnpressed Then
Form4.RTB1.Font.Italic = False
Else
Form4.RTB1.Font.Italic = True
End If
Case 7:
If Toolbar1.Buttons(7).Value = tbrUnpressed Then
Form4.RTB1.Font.Underline = False
Else
Form4.RTB1.Font.Underline = True
End If
End Select
End Sub
End Sub