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 将为空字符串。
2.7 Visual Basic的输出机制
作为输出的对象，Visual Basic提供了标签，文本框，窗体，图片框（Picture Box）等用于输出，而且Visual Basic里也有一堆命令、属性涉及信息的输出，较常用的有：MsgBox函数，Print方法，Cls方法，Tab函数，Format函数，FontName，FontSize，FontBold，FontItalic，FontStrikethru，FontUnderline属性，CurrentX，CurrentY属性等。 1. 通过MsgBox函数输出 了解Windows应用程序的人都知道当用户操作错误时，应用程序往往打出一个消息框来提示用户的错误，象这样： Dim Action As Integer Action = MsgBox("单击确定键将引爆此计算机！", vbYesNo + vbCritical + vbDefaultButton2, "警告！") If Action = 6 Then Explode 这个功能在Visual Basic里是通过MsgBox函数来实现的，这样程序员就不必自己去画一个消息框了。语法是： Action = MsgBox (msg, type, title) 其中，msg是消息的内容，是一个字符串型的变量，type及title参数是可以省略的，type参数指定显示的按钮是什么及使用什么样的图标（这个参数往往让新程序员思考几分钟），title参数指定消息框的标题。type参数的含义是： 例如：Action = MsgBox (“Are you girl?”, vbYesNo + vbQuestio“Question”)。使用这个函数时Visual Basic将产生一个标题为Question，具有问号和Yes，No按钮的消息框。作为一个函数，本质上还是要返回值的，MsgBox的返回值确定了用户的选择，程序可根据返回值做出相应的动作。
2. Print方法，Cls方法，Tab函数 (1) Print方法 Print 方法的语法是：object. Print expressionlist object表示Print作用的对象，比如是Form或者是Picture Box，object是可以省略的，省略时的Print往往在窗体上输出。expressionlist是输出的内容，允许许多项数据的输出，在数据间可以加入“,”或”;”。加入分号将使下一数据项紧挨着上一数据项输出。而加入逗号，则Visual Basic将下一数据项在下一打印区输出，其实就是空了几个空格后再输出。两个打印区之间有14个字符的宽度，其实这也很难衡量，比如14个“W”所占的宽度大概是14个“i”所占宽度的三倍多。幸好中国日本之类的方块字所占的宽度基本上是一样的，所以较好处理一些。 (2) Tab函数 Tab函数只用在Print方法中，它用来移动下一个字符到打印位置，这将省去数空格的功夫。语法是：Tab (column) Tab函数将Visual Basic自定义的14字符宽的打印区扔到一边，用自己的方式定义了新的灵活的打印区宽度。 (3) Cls方法 |
教程巴巴 版权所有