VB学习笔记Word格式.docx
《VB学习笔记Word格式.docx》由会员分享,可在线阅读,更多相关《VB学习笔记Word格式.docx(17页珍藏版)》请在冰点文库上搜索。
C
99
c
4
EOT
36
$
68
D
100
d
5
ENQ
37
%
69
E
101
e
6
ACK
38
70
F
102
f
7
BEL
39
71
G
103
g
8
BS
40
(
72
H
104
h
9
HT
41
)
73
I
105
i
10
LF
42
*
74
J
106
j
11
VT
43
+
75
K
107
k
12
FF
44
76
L
108
l
13
CR
45
-
77
M
109
m
14
SO
46
.
78
N
110
n
15
SI
47
/
79
O
111
o
16
DLE
48
80
P
112
p
17
DCI
49
81
Q
113
q
18
DC2
50
82
R
114
r
19
DC3
51
83
X
115
s
20
DC4
52
84
T
116
t
21
NAK
53
85
U
117
u
22
SYN
54
86
V
118
v
23
TB
55
87
W
119
w
24
CAN
56
88
120
x
25
EM
57
89
Y
121
y
26
SUB
58
:
90
Z
122
z
27
ESC
59
;
91
[
123
{
28
FS
60
92
\
124
|
29
GS
61
=
93
]
125
}
30
RS
62
94
^
126
~
31
US
63
?
95
127
DEL
NUL
VT垂直制表
SYN空转同步
SOH标题开始
FF走纸控制
ETB信息组传送结束
STX正文开始
CR回车
CAN作废
ETX正文结束
SO移位输出
EM纸尽
EOY传输结束
SI移位输入
SUB换置
ENQ询问字符
DLE空格
ESC换码
ACK承认
DC1设备控制1
FS文字分隔符
BEL报警
DC2设备控制2
GS组分隔符
BS退一格
DC3设备控制3
RS记录分隔符
HT横向列表
DC4设备控制4
US单元分隔符
LF换行
NAK否定
DEL删除
键盘常用ASCII码
ESC键VK_ESCAPE(27)
回车键:
VK_RETURN(13)
TAB键:
VK_TAB(9)
CapsLock键:
VK_CAPITAL(20)
Shift键:
VK_SHIFT($10)
Ctrl键:
VK_CONTROL(17)
Alt键:
VK_MENU(18)
空格键:
VK_SPACE($20/32)
退格键:
VK_BACK(8)
左徽标键:
VK_LWIN(91)
右徽标键:
VK_LWIN(92)
鼠标右键快捷键:
VK_APPS(93)
Insert键:
VK_Insert(45)
Home键:
VK_HOME(36)
PageUp:
VK_PRIOR(33)
PageDown:
VK_NEXT(34)
End键:
VK_END(35)
Delete键:
VK_Delete(46)
方向键(←):
VK_LEFT(37)
方向键(↑):
VK_UP(38)
方向键(→):
VK_RIGHT(39)
方向键(↓):
VK_DOWN(40)
F1键:
VK_F1(112)
F2键:
VK_F2(113)
F3键:
VK_F3(114)
F4键:
VK_F4(115)
F5键:
VK_F5(116)
F6键:
VK_F6(117)
F7键:
VK_F7(118)
F8键:
VK_F8(119)
F9键:
VK_F9(120)
F10键:
VK_F10(121)
F11键:
VK_F11(122)
F12键:
VK_F12(123)
NumLock键:
VK_NUMLOCK(144)
小键盘0:
VK_NUMPAD0(96)
小键盘1:
VK_NUMPAD0(97)
小键盘2:
VK_NUMPAD0(98)
小键盘3:
VK_NUMPAD0(99)
小键盘4:
VK_NUMPAD0(100)
小键盘5:
VK_NUMPAD0(101)
小键盘6:
VK_NUMPAD0(102)
小键盘7:
VK_NUMPAD0(103)
小键盘8:
VK_NUMPAD0(104)
小键盘9:
VK_NUMPAD0(105)
小键盘.:
VK_DECIMAL(110)
小键盘*:
VK_MULTIPLY(106)
小键盘+:
VK_MULTIPLY(107)
小键盘-:
VK_SUBTRACT(109)
小键盘/:
VK_DIVIDE(111)
PauseBreak键:
VK_PAUSE(19)
ScrollLock键:
VK_SCROLL(145)
八进制
十六进制
十进制
字符
00
nul
01
soh
02
stx
03
etx
04
eot
05
enq
06
ack
07
bel
08
bs
09
ht
0a
nl
4a
0b
vt
4b
0c
ff
4c
0d
er
4d
0e
so
4e
0f
si
4f
dle
dc1
dc2
dc3
S
dc4
nak
syn
etb
can
130
em
131
1a
sub
132
5a
1b
esc
133
5b
1c
fs
134
5c
1d
gs
135
5d
1e
re
136
5e
1f
us
137
5f
_
sp
140
'
!
141
"
142
143
144
145
146
`
147
150
151
2a
152
6a
2b
153
6b
2c
154
6c
2d
155
6d
2e
156
6e
2f
157
6f
160
161
162
163
164
165
166
167
170
171
3a
172
7a
3b
173
7b
3c
174
7c
3d
175
7d
3e
176
7e
3f
177
7f
del
1、按钮的类型与对应值:
显示"
确定"
按钮对应值:
0常数:
vbOKOnly
和"
取消"
1常数:
vbOKCancel
放弃"
、"
重试"
忽略"
2常数:
vbAbortRetryIgnore
是"
否"
3常数:
vbYesNoCancel
4常数:
vbYesNo
5常数:
vbRetryCancel
2、图形和对应值:
显示“×
”图形对应值:
16常数:
vbCritical
显示“?
32常数:
vbQuestion
显示“!
48常数:
vbExclamation
显示“i”图形对应值:
64常数:
vbInformation
3、默认值按钮和对应值:
第一个按钮为默认按钮对应值:
vbDefaultButton1
第二个按钮为默认按钮对应值:
256常数:
vbDefaultButton2
第三个按钮为默认按钮对应值:
512常数:
vbDefaultButton3
第四个按钮为默认按钮对应值:
768常数:
vbDefaultButton4
常用数值格式符
符号示例返回值
0Format(123.45,”0000.000”)0123.450
#Format(123.45,”####.###”)123.45
.Format(123,”000.00”)123.00
Format(1234.5,”#,###.#)1,234.5
常用日期时间格式符
符号示例返回值
ddddddformat(date,”dddddd”)2007年8月8日
mmmmformat(date,”mmmm”)August
yyyyformat(date,”yyyy”)2007
hformat(now,”h”)13
mformat(now,”m”)51
sformat(now,”s”)35
ttttformat(now,”tttt”)13:
51:
am/pmformat(now,”ttttam/pm”)1:
35pm
类型转换函数
Cstr转为字符型
Cbool转为布尔型
Cdate转为日期型
Str转为字符型
Val转为数值型
在caption属性中加上”&
”字符就设定了快捷键,如”&
F”,快捷键为ale+F
Screen对象
Activecontrol返回拥有焦点的控件
Activeform返回活动窗口的窗体
Fontcount返回或设置当前显示设备或活动打印机可用的字体数
Fonts返回当前显示器或活动打印机可用的所有字体名
Height、width返回屏幕的高度和宽度;
在设计时无效,在运行时为只读
Mouseicon返回或设置自定义的鼠标图标
Mousepointer返回或设置鼠标指针的类型
Clipboard对象
Clear用于清除系统剪贴板的内容
Setdata按指定的图形格式将数据放到clipboard对象中
Getdata粘贴clipboard对象中指定的数据
Setrext将选中的文字保存到clipboard对象中
Gettext()粘贴clipboard对象中的文本字符串
Getformat返回一个整数,指出clipboard对象中的项目是否匹配期望的格式,常用的格式有:
1-vbtext文字
2-vbcfbitm.bmp文件
3-vbcfmetafile.wmg文件
标签(label)常用忏属性
Caption指定标签中显示的文字
Backcolor设置背景颜色
Backstyle设置背景模式(透明或不透明)
Forecolor设置文字颜色
Font设置字体
Appearance立体外观
Borderstyle设置边框
Left\top\height\width设置控件位置
Enable可用或不可用
Visible可见或不可见
文本框(textbox)常用属性
Alignment指定文本框中的文字对齐方式
Font设置字体
Maxlength指定字符最大长度
Multiline指定显示格式为多行输入显示
Passwordchar设置文本框中所有文字以某个字符显示
Left\top\height\width设置控制件位置
Text指定文本框中输入的字符串数据
命令按钮控件属性
Style指定按钮风格(标准或图形)
Tag保存控件额外信息
Tabindex设置tab顺序
(其它与文本框等类似)
列表框(listbox)的常用方法
Clear方法:
用来删除列表框中所有数据。
Setfocus方法:
用来设置焦点。
Click事件:
当用户单击鼠标左键时,触发其中的事件代码。
Dblclick事件:
当用户双击鼠标左键时,触发其中的事件代码。
组合框(combobox)Style属性的3种属性
Vbcombodropdown0下拉式组合框(一下拉列表和一文本框)
Vbcombosimple1简单组合框(一文本框和一无法下拉的列表)
Vbcombodrop-downlist2下拉式列表(仅一下拉式列表)
组合框(combobox)常用事件和方法
Additem方法:
添加数据项
Removeitem方法:
删除数据项
Clear方法:
清除全部数据项
Setfocus方法:
设置焦点
单击事件
图像框(image)的属性
Stretch:
是否将加载的图片缩放到控件本身的大小来显示。
Picture:
用于加载图片
Loadpicture函数的功能是将图形载入到窗体的picture属性、picturebox控件或image控件。
语法为:
picture1.picture=loadpicture(“路径及图形文件名”)
滚动条(hscrollbar、vscrollbar)的重要事件
单击滚动条的滚动箭头、滚动区域或拖动滚动块后,才能引发change事件,而拖动滚动块时,就可引发scroll事件。
常用句型
ForI=1to100step2
Sqrt=sqr(sum)
Print”总和为”&
Dimaasinteger,basdate
Strnameasstring*常数常数为定长字符串的长度
r!
=Trim(Text1.Text)
DimaAsString
DimbAsString
DimcAsBoolean
a="
abc"
b="
aBcd"
x=a>
b
a=InputBox("
学号为"
"
学号输入"
MsgBox"
&
a
,"
X=MsgBox"
学号输入错误"
1+32+256,"
输入有误"
Print“A值为”;
6*2
Print“A值为”,6*2
PrintFormat(s,”0.00”),Format(s,”#.##”)
SelectCasegrade
Caseis>
90
Msgbox”优秀”
Case>
60
Msgbox”一般般”
Caseeles
Msgbox”差”
Endselect
Ifisnumeric(r)=falsethen
Ifisdate(r)=truethen
Constpi=3.14159
DoWhilea<
=100
sum=sum+a
a=a+1
Loop
Whilea<
Wend
Ifa(i)="
Q"
Ora(i)="
q"
Then
Forj=i-1Tostep-1
a=Array(1,2,3,4,5)
ForI=0toubound(a)
A(I)=int(81*rnd+10)
Privatesubsubtest()
Print”thisisasubprocedure”
Endsub
Privatesubform_click()
Callsubtest
A=val(a)
Functionaverage(aasinteger,basinteger)
Submianji(a,b)
Printabs(-6)
Printsgn(-6)
PrintInt(-1.6)
Printround(6.578,2)
Int(rnd*n)+1
Sqr(9)
If(ringt(a,4)=”txt”)then
Printleft(“abcdefg”,3)
Printlen(“abcdef”)
Printmid(“abcdefg”,3,3)
Printmid(“abcdefg”,3)
PrintDate()
Printtime()
Printnow()
Printdatevalue(#2007-8-2508:
45#)
Printtimevalue(#2007-8-2508:
Printdatepart(“yyyy”,date)
*year\month\day\weekday\hour\minute\second都是类似的用法
Clipboard.clear
Clipboard.setdatapicture1.piture
Picture2=loadpicture(“”)
Picture2=clipboard.getdata()
*clear\setdata\getdata\setrext\gettext\getformat前加clipboard应用
Privatesubform_click()
Dimcascontrol
Foreachcinform1.controls
……
ForI=0tolist1.listcount-1
List1.addltemtrim(text1.text)
SelectCaseList1.ListIndex
Picture1.piture=picture2.piture
Progressbar1.value=progressbar