2011年计算机等级考试二级VB基础教程（10）

会计考友

　　2.6 Visual Basic的输入机制
( R0 t6 _6 C  S. V) s* q. E4 I) L　　程序的基本操作就是数据的输入，数据处理和数据的输出。Visual Basic可中用于输入的控件主要有：文本框Text Box、复选框Check Box、选项按钮Option Button、列表框List Box、组合框Combo Box、滚动条Scroll Bar、通用对话框控件。还有一个函数叫InputBox函数，也可用于数据的输入。
% Q7 F6 c* P( s3 \5 Y: p2 D　　1. 通过文本框输入数据
　　只要取得文本框的Text属性就可以对其进行操作了。下面的代码可将Text1文本框的正文变成大写输出至Text2文本框。
& \8 r2 m& r$ n　　Private Sub Form_Click ()
" Y  _! K6 |& }) c' ^! d7 v　　Text2.Text = UCase(Text1.Text)
　　End Sub
　　2. 通过复选框和选项按钮输入数据
- E3 t$ E9 V, i! C0 P6 J& T4 |　　只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了。
, _# \, U' ~! ?: m: k. s* L$ W( J　　3. 通过列表框和组合框输入数据
　　(1) 列表框List Box和组合框Combo Box的不同
　　它们在Windows的Open，Save As对话框里最为常见。组合框又包括三种类型，这三种类型要在它的Style属性里设置。列表框仅仅把可以选择的项目列出来，而组合框里有的类型可以允许用户输入数据。
: B# a9 I, G3 D9 ~1 X* p　　(2) 列表项目的增减
　　使用AddItem，RemoveItem语句可以增减列表项目。通常将项目增减的语句放入Form_Load事件里。
, ~+ l, C) K6 G  O, C9 q　　ListBoxName. AddItem item
% I: ^7 K. W" @2 p0 o' L6 i0 b8 Y　　ComboBoxName. AddItem item
, l% B0 a: A- X+ j　　item是新项目名称，必须是字符串类型，非字符串类型可通过Str函数或Format函数来转换。转列表框，组合框的每一项目都有一个Index值，第一个项目的Index值是0，第二个是1，依此类推。删除项目可通过删除其Index值来实现。
# N+ ]8 S2 W8 j0 |! ^% M　　ListBoxName. RemoveItem item
: p. b0 L- B  \# w0 i　　ComboBoxName. RemoveItem item
0 s3 ~. c4 f* T( E* T　　如：ListBoxName. RemoveItem 0则删除了第一项，这时原来的第二项就变成了第一项。
# ~) Z& o0 g% H6 s) z; X　　可以在设计阶段设定列表项目, 方法是：
- ~# ?0 R7 n# |$ q; h. \% [! |　　在属性窗口选择List属性，将出现一个下拉列表，在列表中输入第一项，按Ctrl+Enter，输入第二项……，最后用Enter结束。
& {! v- t+ T! B+ x! z　　(3) 取得列表框/组合框的数据
2 o& S- l4 K0 a4 }* Z3 y9 e4 J　　可以通过取得Text属性或通过取得ListIndex属性来判断哪一项被选择了。ListIndex属性的值也同样是第一个为0，第二个为1……如：
  I! i* d9 u: A) G　　If List1.Text = “Visual Basic” Then Instructions
　　If List1.ListIndex = 1 Then Instructions
5 z0 |& G3 i+ L% f, W　　组合框有时允许用户自己输入数据，这时所输入数据的ListIndex值为-1。
　　4. 通过滚动条Scroll Bar取得数据
　　在Visual Basic的工具箱里有两种滚动条：一种是垂直的，一种是水平的，它们的差异无非是摆放的方向不一样。
　　(1) 滚动条的主要属性及事件
# k6 o( S% k( e! b6 r( _　　1)Min，Max属性
4 W) `. N. ?: |# @$ L　　Min属性决定滚动条最左端或最顶端所代表的值。Max属性决定滚动条最右端或最下端所代表的值。
9 w5 g2 c# l+ @0 Z: A- i　　2)LargeChange,SmallChange属性
　　SmallChange决定在滚动条两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。
: X- h/ D! s, P% _9 ?* m* E　　3)Value属性
　　Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。
. q" h. r( |9 B  {) I2 K) u　　4)Change事件
　　当滑块位置发生变化时就引发了Change事件。
# T" A# v5 h* z  h- w# y　　(2) 取得滚动条的数据
　　滚动条并不是一个数据输入的好控件，因为无法从滚动条上直接看出输入的数据，但它的优点是可以表示一定范围里的相对位置。为了得到数据，只要取得滚动条的Value属性就可以了。
" X( ?( w9 ^% b0 f+ ^4 E! w　　5. InputBox函数
2 O; S% I9 X9 e$ e7 {/ A; A) s$ \　　InputBox函数提供一个简单的对话框供用户输入信息。在把其它版本的BASIC程序移植到Visual Basic时，InputBox函数通常用来代替INPUT语句。这个对话框的样子基本上是上面的样子。
　　它的完整语法是：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)
7 x+ |) J& N4 ]6 |( A% s　　其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x 将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。