Perform these tasks on your PC and give yor answers as comments to this post or as an email to my ID - director@abhinav.ac.in.
- What is the sequence for the events given below and when do they occur for the given object?
a) Textbox - Change, KeyPress, KeyDown, Validate
b) Command button - Click, GotFocus, LostFocus, KeyPress
c) Combo Box - Change, Click, DblClick, DropDown, Scroll - Draw an equilateral triangle (should actually look like it) whose one vertex is the point at which the user clicks on the form.
- Make a simple calculator which has buttons for different numbers & operations (+, -, *, /, ^) and a box to display the result of each operation as well as each number being typed.
Comments
1)Keydown,keypress,change and validate
2)got focus,lost focus,click,keypress
b)gotfocus,click,keypress,lostfocus.
OR
gotfocus,keypress,click,lostfocus
b)gotfocus,click,keypress,lostfocus.
OR
gotfocus,keypress,click,lostfocus
b)gotfocus,click,keypress,lostfocus.
OR
gotfocus,keypress,click,lostfocus
Between click and keypress the order depends on the user,he would first click or press any key.
i)Key Down
ii) Key Press (every time a key is pressed , computer records that the key is pressed down, so key down is activated first and key press isnt activated until the key down event ends)
iii) Change (After any of the above events are completed, the computer records that a change has taken place, thus change event activates)
iv) Validate
II Command Button
i) Got Focus
ii) Click / Key Press (Depends on which is pressed first...Mouse/Key)
iii) Lost Focus
Posted By:Omkar,Saarang,
Athang,Kshitij &
Shraddha
b)Gotfocus, Click, KeyPress, Lost Focus
3.Option Explicit
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = InputBox("enter your 1st number")
b = InputBox("enter your 2nd number")
End Sub
Private Sub Command2_Click()
MsgBox a + b
End Sub
Private Sub Command3_Click()
MsgBox a - b
End Sub
Private Sub Command4_Click()
MsgBox a * b
End Sub
Private Sub Command5_Click()
MsgBox a / b
End Sub
Private Sub Command6_Click()
MsgBox a ^ b
End Sub
b)Gotfocus, Click, KeyPress, Lost Focus.
3.Option Explicit
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = InputBox("enter your 1st number")
b = InputBox("enter your 2nd number")
End Sub
Private Sub Command2_Click()
MsgBox a + b
End Sub
Private Sub Command3_Click()
MsgBox a - b
End Sub
Private Sub Command4_Click()
MsgBox a * b
End Sub
Private Sub Command5_Click()
MsgBox a / b
End Sub
Private Sub Command6_Click()
MsgBox a ^ b
End Sub
Post a Comment