2.6  Visual Basic的输入机制

     程序的基本操作就是数据的输入，数据处理和数据的输出。Visual Basic可中用于输入的控件主要有：文本框Text Box、复选框Check Box、选项按钮Option Button、列表框List Box、组合框Combo Box、滚动条Scroll Bar、通用对话框控件。还有一个函数叫InputBox函数，也可用于数据的输入。

1. 通过文本框输入数据

　　只要取得文本框的Text属性就可以对其进行操作了。下面的代码可将Text1文本框的正文变成大写输出至Text2文本框。

　　　Private Sub Form_Click ()

　　　　Text2.Text = UCase(Text1.Text)

　　　End Sub

2. 通过复选框和选项按钮输入数据

 　 只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了。

3. 通过列表框和组合框输入数据

(1) 列表框List Box和组合框Combo Box的不同

   　它们在Windows的Open，Save As对话框里最为常见。组合框又包括三种类型，这三种类型要在它的Style属性里设置。列表框仅仅把可以选择的项目列出来，而组合框里有的类型可以允许用户输入数据。它们的异同是：

(2) 列表项目的增减

 　 使用AddItem，RemoveItem语句可以增减列表项目。通常将项目增减的语句放入Form_Load事件里。

   　ListBoxName. AddItem item

   　ComboBoxName. AddItem item

   　item是新项目名称，必须是字符串类型，非字符串类型可通过Str函数或Format函数来转换。

　　列表框，组合框的每一项目都有一个Index值，第一个项目的Index值是0，第二个是1，依此类推。删除项目可通过删除其Index值来实现。

　　ListBoxName. RemoveItem item

     ComboBoxName. RemoveItem item

　　如：ListBoxName. RemoveItem 0则删除了第一项，这时原来的第二项就变成了第一项。

    可以在设计阶段设定列表项目, 方法是：

    　在属性窗口选择List属性，将出现一个下拉列表，在列表中输入第一项，按Ctrl+Enter，输入第二项……，最后用Enter结束。

(3)  取得列表框/组合框的数据

    可以通过取得Text属性或通过取得ListIndex属性来判断哪一项被选择了。ListIndex属性的值也同样是第一个为0，第二个为1……如：

　　If List1.Text = “Visual Basic” Then Instructions

　　If List1.ListIndex = 1 Then Instructions

　　组合框有时允许用户自己输入数据，这时所输入数据的ListIndex值为－1。

4. 通过滚动条Scroll Bar取得数据

　　　在Visual Basic的工具箱里有两种滚动条：一种是垂直的，一种是水平的，它们的差异无非是摆放的方向不一样。

　(1) 滚动条的主要属性及事件

　　1）Min，Max属性

　　　　Min属性决定滚动条最左端或最顶端所代表的值。Max属性决定滚动条最右端或最下端所代表的值。

　　2）LargeChange,SmallChange属性

　　　　SmallChange决定在滚动条两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。

　　3）Value属性

　　　　Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。

　　4）Change事件

　　　　当滑块位置发生变化时就引发了Change事件。

　(2) 取得滚动条的数据

　　　滚动条并不是一个数据输入的好控件，因为无法从滚动条上直接看出输入的数据，但它的优点是可以表示一定范围里的相对位置。为了得到数据，只要取得滚动条的Value属性就可以了。

5.  InputBox函数

　　InputBox函数提供一个简单的对话框供用户输入信息。在把其它版本的BASIC程序移植到Visual Basic时，InputBox函数通常用来代替INPUT语句。这个对话框的样子基本上是上面的样子。

　　它的完整语法是：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)

    其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x 将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。

6. 使用通用对话框控件

　　Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。

　(1) Open对话框及Save As对话框

　　　打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。

　　　　Private Sub mnuOpen_Click ()

　　　　　　On Error GoTo ErrorHandler

　　　　　　　CommonDialog1.CancelError = True

　　　　　　　CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"

　　　　　　　CommonDialog1.ShowOpen ' display Open common dialog box.

　　　　　　　Call OpenFile(CommonDialog1.FileName)

　　　　　　ErrorHandler:

　　　　　Exit Sub

　　　End Sub

　　　其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。

(2) Color对话框

　　下面的过程可用用户选择的颜色作为窗体的底色。

　　　Private Sub mnuColor_Click ()

　　　　　On Error GoTo CancelButton

　　　　　CommonDialog1.CancelError = True

　　　　　CommonDialog1.ShowColor

　　　　　Form1.BackColor = CommonDialog1.Color

　　　　　CancelButton:

　　　　Exit Sub

　　　End Sub

(3) Fonts对话框

　　下面的过程可用字体对话框改变文本框的字体:

　　　Private Sub mnuFonts_Click ()

　　　On Error GoTo CancelButton

　　　CommonDialog1.CancelError = True

　　　CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth

　　　CommonDialog1.ShowFont ' Display Font common dialog box.

　　　Text1.FontName = CommonDialog1.FontName

　　　Text1.FontSize = CommonDialog1.FontSize

　　　Text1.FontBold = CommonDialog1.FontBold

　　　Text1.FontItalic = CommonDialog1.FontItalic

　　　Text1.FontUnderline = CommonDialog1.FontUnderline

　　　Text1.FontStrikethru = CommonDialog1.FontStrikethru

　　　Text1.ForeColor = CommonDialog1.Color

　　　CancelButton:

　　　Exit Sub

　　End Sub

　　代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不赋值给Flags，代码也一样会按缺省的情况去执行的。