Visual BASIC

1
Visual BASIC
2
???????????????????????????? ?
3
??????????????????? ?????????????????????????????
???? ????????????????????? (Tools)
????????????????????????????????
??????????????????????????????????????????????????
???????????????????????? ??????????????????????
???????????????????????????????????????????????
??????????????????????????????????????
4
????????????? VB

• ??????????????????????????????????
• ??????????????????????????????? (GUI)
• ???????????????????????????????????

5
????????????? VB 5 ??????

• ????????????????
• ???????????????????????????????????????
• ??????????????????????
• ???????????????????????????

6
??????????????? VB ?????????
?????(Objects) ???????????? (Elements)
??????????????????????? ??????????????
(Property) ?????????? (Method) ?????????????
????????????????????????? ????????????????????????
???????? ???????????????????????????????????
?????? (Events) ???? ?
7
??????????????? VB ?????????
??????????? (Controls) ????????? (Object)
?????????????????????????????????????????????
(User Inteface) ???????? ???? ???????????? (Text
box) ?????????? (Label) ?????????? (Command
button) ???????
8
??????????????? VB ?????????
?????????(Events) ????????????????????????
(Action) ???????????????? (User)
??????????????(OS) ?????????????????
???????????????????? ??? ????????????????
?????????? ?????????????????????
?????????????????????????? ???????
9
??????????????? VB ?????????
???????(Methods) ??????????????
??????????????????????????????? ???????????????
??? ???????????????????????????????????????
?????????????? ?????????????????????????????? ??
?????????????? (Hide Methods) ???????????????????
???? ??????? ??? ???????????????????????????????
10
??????????????? ? ??? ????????
?????????????? ????? ??????????????????
11
?????????????????????????
Text Box
List Box
Control Objects
Command Button
Objects
Timer
12
??????????????? VB ?????????
??????????? (Procedures) ????????????????????????
???????? ?????????????????????????????????????????
????????? ??????????????????????
???????????????????????????????????????????
????????????????????????? Sub ??? Function
13
??????????????? VB ?????????
?????????(Property) ??????????????????????????
???? ???? ??????? ?? ????????????
?????????????? ???????????? ????????????
?????????????????? ??????????????????????????????
??????????????????????????????????????????????????
??????????????????????????
14
Procedural VS Event-Driven
Programming
15
Procedural Programming
Main Program -------------------------------------
----- ----------------------------------------- --
--------------------------------------- ----------
-------------------------------- -----------------
------------------------ -------------------------
---------------- ---------------------------------
--------- ----------------------------------------
- END
FunctionA ---------- ---------- End
FunctionB ---------- ---------- End
16
??????????????????????? ?????????????
?????????????????????????????????????
?????????????? ????????????????????????????????
? ????????????????????????? ???????????????????
? ?????????????????? ????????????
????????????????????????????????????????????????
????? ??????????????????????? ????????????????????
?????????
17
???????????????
???????????????????????????????????????????????
???????????????????? ????????????????????
18
??????????????? Procedural
Program Changing Money Print How much money ?
Input n if n gt 1000 then Thousand
Int(n/1000) Remain n - thousand1000 Else
Remain n End if if Remain gt 500 then
Fivehundred Int(Remain/500) Remain
Remain - Fivehundred500 End if
19
if Remain gt 100 then Hundred
Int(Remain/100) Remain Remain -
Hundred100 End if if Remain gt 50 then Fifty
Int(Remain/50) Remain Remain -
Fifty50 End if if Remain gt 20 then Twenty
Int(left/20) Remain Remain - Twenty20 End
if
20
if Remain gt 10 then Ten Int(Remain/10)
Remain Remain - Ten10 End if if Remain gt 5
then Five Int(Remain/5) One Remain -
Five5 End if Print results Cls Print Total
money n if Thousand gt 0 then
Print Thousand Thousand End if
21
if Fivehundred gt 0 then Print Five hundred
Fivehundred End if if Hundred gt 0 then
Print Hundred Hundred End if if
Fifty gt 0 then Print Fifty
Fifty End if
22
if Twenty gt 0 then Print Twenty
Twenty End if if Ten gt 0 then Print
Ten Ten End if if
Five gt 0 then Print Five
Five End if if One gt 0 then Print
One One End if
23
Event-Driven Programming
FORM
Function
Events
Sub
Controls
Users
Messages
24
?????????????????????????????????????????????
?????????? ??????????????????????????????
??????????? ???????????????????????
?????????????????????????? ? ????????????????????
???????????????????????
25
??????????????? Event-Driven
26
????????????????
1 ?????????????
?????????????
2 ????????????????????????? ????????????
(TextBox)
3 ????????????????????????????????? (Label)
4 ????????????????????? (ListBox)
5 ??????????????????????? (Command Button)
?????
????
6 ??????????????????????????? (Command
Button)
27
?????????????
User Interface
?????
????
28
??????????????????????????
29
Run
12345
30
Form and Control Objects
??????????????????????
31
???????? (Forms)
??????????????????????????????????????????????????
?????????????? ??????????????????????????????????
??????? ???? ???????????? (Text Box)
??????????? (Picture Box) ?????????? (Label)
?????????? (Command Button) ???
????????????????????????? ???? Sub ???? Function
?????????????????????????????????
32
????????
33
??????????? (Controls)
?????????????? ????????? ??? ??????? ?????????
???????????? ????????? ????????????? ?????????
??? ??????? ??????????????
34
??????????????????????????? ? ??????????
35
????????
???????????? (Text Box) ????????????????????????
?? ????????? ???????????????????? ??????????????
???????????? (FontName) ?????????????????????????
????? ???????????????????????????????????????????
?? ???? ???????????? Arial ??????? 8 ???
?????????????????? ???? ???????
36
????????????????????????????????????? ? ?????
???? Hello ??????? Hello ????????????????????
?????????? ???????? Arial ???? 8 ??? ????
???????????? ?????????????????????
????????????????? (???????????????)
?????????????????????????????????????????????????
??????????????????????????????
37
????????????????????????????????? ??????????????
Obj.Property e
Obj ?????????
Property ????????????????? ????????????????
???????????????????????????????? ? ????
e ??????????? ???????????? ????
??? ???????????????????????????????????
?
38
??????????????????????????????????????????????????
??? (Text Box)
Text1.FontName "MS Sans Serif" '
????????????????? Text1.FontSize 14
' ?????????????? Text1.FontBold
True '
????????????? Text1.ForeColor vbRed
' ??????????????
39
????????????? ??????? ??????????????????????????
Move ??????????? ???????????????????????????????
?????????????????????? ? ??????????????
????????????????????????????? ????????????????????
???????
40
???? ????????? ??????????????????????????????????
?????? ????????????????????? ?????????(Click,
Dbclick) ??????????????????????? (Keypress)
???????????????????????? (Change) ?????????????
41
Properties
?????????????????????????????
42
Methods ??????????????????????????????????????????
?
43
??????? (Method) ?????????????? ?
???????????????????? ????????????????????
??????????????????????????
???????? ????????????????????????????????????????
PrintForm ??????????????
Form1.PrintForm ?????????????????????????????
Form1 ??????????????????
44
??????????????????
45
???
??????
??????????????????????? ?????????????????????????
???????????? ?????????????????????????????????????
???????????
46
Methods
Object
Event
??????? ???????
??????/??????? ??????????? ??/???? ????????
??/????? ???????/???????
Properties
47
Objects and Events
48
Object
49
Methods
Private Sub Text1_Change() End Sub
Events
Object
Private Sub Text1_DblClick() End Sub
Text1
Private Sub Text1_KeyPress(KeyAscii As
Integer) End Sub
50
Text Box Properties
Allignment FontItalic LimkMode SelLength Appearanc
e FontName LinkTimeout SelStart BackColor FontSize
LinkTopic SelStart BorderStyle FontStrikethru Loc
ked TabIndex Container FontUnderline MaxLength Ta
bStop DataChanged ForColor MouseIcon Tag DataField
Height MousePointer Text DataSource HelpContextI
D MultiLine Top DragIcon HideSelection Name Visib
le DragMode hWnd Parent WhatThisHelpID Enabled I
ndex PasswordChar Width Font Left ReadOnly Font
Bold LinkItem ScrollBars
51
Text Box methods
Drag LinkRequest SetFocus LinkExecute Move Sho
wWhatsThis LinkPoke Refresh Zorder
52
Text Box Events
Change GotFocus LinkError MouseMove Click KeyDown
LinkNotify MouseUp DblClick KeyPress LinkOpen Dra
gDrop KeyUp LostFocus DragOver LinkClose MouseDown
53
????????????????????? (Standard Control Objects)
Picture Box ???????????????? Text Box
????????????????????? Label ?????????????????????
???????????????? ? Frame ?????????????????????????
???????? CommandButton ??????????????????????????
?? Check Box ???????? 1 ?? 2 ???? ???/??????
???/??? ???????
54
OptionButton ?????????????????????????????? ComboB
ox ??????????????????????????? ??????????????
??????????????? ListBox
??????????????????????????? HscrollBar
????????????????????????????????????????
????????????? VscrollBar ????????????????????????
???????????????? ??????????????
55
Timer ?????????????????????????????????????????? D
riveListBox ??????????????????????????????????????
????? DirListBox ???????????????????????????????
?????????? FileListBox ??????????????????????????
?????????? Shape ???????????????????????????????
56
Line ?????????? Image ????????? Picture
????????????????????? Data ??????????????????
OLE ??????????????????????
57
????????????????????????????
Object Type Prefix CheckBox chk Combo
Box cbo Command Button cmd Common
Dialog cdl Data Control dat Data bound
ComboBox dbc Data bound grid dbg Data bound
ListBox dbl
58
Object Type Prefix Directory
ListBox dir Drive ListBox drv File
ListBox fil Frame frm Grid grd Horizont
al Scroll Bar hsb Image img Label lbl Lin
e lin
59
Object Type Prefix ListBox lst Menu
mnu OLE Container ole Option Button
opt Picture Box pic Shape shp Text
Box txt Timer tmr Vertical
ScrollBar vsb
60
????????
????????
????
????
???????
???????
????????????? ???????????
Caption Text
Label1
lblName
???? Label2 lblLastName
??????? Text1
txtName
???? Text2
txtLastName
???????
61
?????????????????????????? (????????????)

• Name ???????????????????????? ? ???????????
  ?????????????????????????
• Appearance ????? 0 ?????? 1
  ??????????
• BackColor ????????????????????
• ForColor ????????????????????????????????
  ?????????
• Font ??????????????????????? ?????? ?????
  ?????????

62
?????????????????????????? (????????????)

• Caption ????????????????????????????????????
  ??? ??????????????????????????? ????
  ?????????? ?????????? ???????
• Text ????????????????????????????????????
  ????????? ?????????????????? ???? ????????????
  ?????????? (ComboBox) ???????
• Left, Top ??????????????????????????????????????
  ?? ????????????????? ?????????????????????
  (1440 twips 1 Inch)

63
?????????????????????????? (????????????)

• Height, Width ???????????????????????????
  ???????????????????????
• Enable ??????? ????????? ??????????????
  True
• Visible ??????? ?????????? ??????????????
  True
• Index ???????????????????????????????????????

64
????????????????????????????????

• Drag ??????????????? (Drag) ?????? (Drop)
• Move ???????????????????????
• SetFocus ????????????
• Zoder ??????????????????????????????????????????
  ??

65
??????????????????????? ? ?????????????????

• ????????????????? (Mouse Events)
• ????????????????????? (Keyboard Events)
• ????????????????????????????????? (Change)
• ??????????????????????????? (Focus)

66
????????????????? (Mouse Events)

• Move
• Click
• Double click
• Down
• Up

67
????????????????????? (Keyboard Events)
??????????????????????????????????????
??????????????????????????????????????????
???????????????????????????? ????????????????????
??????????????????? ? ???? Enter, Shift, Ctrl,
Alt ???????
68
????????????????????? (Keyboard Events)

• ???????? (KeyDown) ????????????????? ???????
  ? ???????
• ????????? (KeyUp) ???????????????????????????
  ??????? ? ?????????????

69
????????????????????? (Keyboard Events)

• ??????????? (KeyPress) ?????????????????????
  ? ????????????????????????????????????????
  ?????????????????????????????????????????
  ??????????????????????????????????????????????????
  ????????????????????

70
???????????????????????????????? (Change)
???????????????? (Change) ??????????????????????
?????????????????????????? ??????????????????????
???? ??????????????????????????
71
????????????????????????????????? (Focus)
????? ???????????????????? ????????????????
????????????????
72
???????????????????????????? (Focus)
SetFocus ???????????????????????????????????????
?????????????????? ??????????????????????????????
? SetFocus
GotFocus, LostFocus ??????????????????????????
??????????????????????????????????????????
?????????????????????????? LostFocus
???????????????????????????????? GotFocus