VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net教程之Visual Basic的输入机制

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 将为空字符串。
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方法

    Cls也是一个古老的BASIC语句,原来它的作用总是把屏幕变成黑色,然后在左上角或左下角闪烁一个光标,Visual Basic里它的作用是清除绘图语句和Print语句产生的文字和图形。
  语法是:object. Cls
  object指清除的对象,可以是Form或Picture Box。如果object省略,通常Visual Basic都把当前的窗口作为Cls操作的对象。

  3. Format函数

  Format函数用于制定字符串或数字的输出格式。语法是:x = Format (expression,fmt)
  expression是所输出的内容。fmt是指输出的格式,这是一个字符串型的变量,这一项若省略的话,那么Format函数将和Str函数的功能差不多。

相关教程