当前位置：文档之家 › VB窗体控件学习

VB窗体控件学习

  • 格式：doc
  • 大小：111.00 KB
  • 文档页数：10

VB窗体控件学习VB 控件listbox详细用法今天刚看到的一个很不错的代码列表框的特点是：列表框中的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。

下面这个例子充分说明了列表框的这个特点，并介绍了列表框（ListBox）的常用属性。

Option Explicit' List1、List2 列表框' LefttoRightCmd 移动所选项目到另一个列表框（左到右）' RighttoLeftCmd 移动所选项目到另一个列表框（右到左）' List1MoveCmd 删除列表框List1中所选项目' List2MoveCmd 删除列表框List2中所选项目' List1AddCmd 给列表框List1增加新项目' List2AddCmd 给列表框List2增加新项目' List1ClearCmd 清空列表框List1' List2ClearCmd 清空列表框List2'--------------------------------------'--------------------------------------'————名称————属性设置———' List1列表框Sorted属性设为“False”' List2列表框Sorted属性设为“True”' MultiSelect属性设置为2' 即List2控件中的项目总是排序的'--------------------------------------Private Sub Form_Load()'装载窗体时，给列表中的元素赋值List1.AddItem "China"List1.AddItem "America"List1.AddItem "Japan"List2.AddItem "Soccer"List2.AddItem "Tennis"List2.AddItem "Basketball"End SubPrivate Sub LefttoRightCmd_Click()'将左边列表中所选元素移动到右边列表中If List1.ListIndex >= 0 Then'在右边列表中增加新元素List2.AddItem List1.Text'删除左边列表中的所选元素List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub List1AddCmd_Click()Dim ListItem As String'ListItem = InputBox("在列表中输入新项目")'向列表中加入新项目If Trim(ListItem) <> "" Then'Trim（）作用是清除ListItem字符串内的空格List1.AddItem ListItemEnd IfEnd SubPrivate Sub List1ClearCmd_Click()'清空列表List1.ClearEnd SubPrivate Sub List1MoveCmd_Click()Dim i As Integer'判断列表框是否只有一个项目被选中If List1.SelCount = 1 ThenList1.RemoveItem List1.ListIndexElseIf List1.ListCount > 1 Then'删除列表框中的所选中的多个项目For i = List1.ListCount - 1 To 0 Step -1'ListCount返回列表框中的项目总数'ListCount-1是列表框中最后一个项目的索引号'判断该项目是否被选中，Selected()返回布尔值If List1.Selected(i) Then'删除索引号为i的项目List1.RemoveItem iEnd IfNextEnd IfEnd SubPrivate Sub List2AddCmd_Click()'定义变量，以接收输入的字符串Dim ListItem As StringListItem = InputBox("在列表中输入新项目")If Trim(ListItem) <> "" Then'将字符串增加到列表中List2.AddItem ListItemEnd IfEnd SubPrivate Sub List2ClearCmd_Click()'清空列表List2.ClearEnd SubPrivate Sub List2MoveCmd_Click()Dim i As Integer'判断所选元素是否只有一个If List2.SelCount = 1 ThenList2.RemoveItem List2.ListIndex'如果所选元素大于1，则按下列操作进行ElseIf List2.ListCount > 1 ThenFor i = List2.ListCount - 1 To 0 Step -1If List2.Selected(i) ThenList2.RemoveItem iEnd IfNext iEnd IfEnd SubPrivate Sub RighttoLeftCmd_Click()Dim i As Integer'判断选中的元素有几个If List2.SelCount = 1 ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndex'当选中的元素大于一个时ElseIf List2.SelCount > 1 ThenFor i = List2.ListCount - 1 To 0 Step -1'如果该元素被选中，则将其从右边移至左边If List2.Selected(i) ThenList1.AddItem List2.List(i)List2.RemoveItem iEnd IfNext iEnd IfEnd Sub(源程序下载)这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：窗体（FormListBox）我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。

各按钮控件的名称如下表：按钮名称名称属性按钮名称名称属性删除所选项目（左）List1movecmd删除所选项目（右）List2movecmd增加新项目（左）List1addcmd增加新项目（右）List2addcmd清除弄表（左）List1clearcmd清除列表（右）List2clearcmd右箭头lefttorightcmd 左箭头Righttoleftcmd' List1列表框Sorted属性设为“False”' List2列表框Sorted属性设为“True”' MultiSelect 属性设置为2 ' 即List2控件中的项目总是排序的在属性窗口中，将List1列表框Sorted属性设为“False”；List2列表框Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。

下一步我们为各控件添加相应的程序。

其中：List1.AddItem "China" 是将“China”添加到列表框中。

List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。

List1.ListCount 返回的是列表框List1中项目总数。

List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。

List1.Selected() 返回的是一个项目的选择状态，返回的是布尔值。

vb 窗体划五角星代码呵呵一个不错的一个代码执行代码，五角星算法。

看看下面代码一个类模块，和一个调用代码如下调用：Private Sub Command1_Click()Dim clas As New Class1Set clas.Frm = Meclas.X = Rnd * Me.ScaleWidthclas.Y = Rnd * Me.ScaleHeightclas.star 500End Sub类模块：Private mX As SinglePrivate mY As SinglePrivate mFrm As ObjectPublic Property Set Frm(ByVal vData As Object) Set mFrm = vDataEnd PropertyPublic Property Get Frm() As ObjectSet Frm = mFrmEnd PropertyPublic Property Let X(ByVal vData As Single) mX = vDataEnd PropertyPublic Property Get X() As SingleX = mXEnd PropertyPublic Property Let Y(ByVal vData As Single)mY = vDataEnd PropertyPublic Property Get Y() As SingleY = mYEnd PropertyPublic Sub star(ByVal n As Single)Const pi = 3.14159Randomizem = Int(Rnd * 16)colr = QBColor(m)mFrm.Line (X, Y)-Step(n * Sin(pi / 10), -n * Cos(pi / 10)), colrmFrm.Line -Step(n * Sin(pi / 10), n * Cos(pi / 10)), colrmFrm.Line -Step(-n * Cos(2 * pi / 10), -n * Sin(2 * pi / 10)), colrmFrm.Line -Step(n, 0), colrmFrm.Line -Step(-n * Cos(2 * pi / 10), n * Sin(2 * pi / 10)), colrEnd SubVB 控件移动方法大家添加这几个控件，然后双击控件就会作对其，右对齐等等操作！看看下面代码Private Sub Form_Click()Static n As Integer, y As Boolean '默认值n＝0，y＝falseDim cnt As Control '声明对象变量cnt为通用控件y = Not y '第二次与第一次相反，单数为真，双数为假Set cnt = Me.Controls(n)If y Thencnt.Left = cnt.Tag '控件不移动在原处n = n + 1Elsecnt.Left = 0 '控件移到窗体最左边End Ifn = n Mod 3End SubPrivate Sub Form_Load()For Each obj In Me.Controls '将各控件的left属性保存在tag属性中obj.Tag = obj.LeftNextEnd SubVB 创建移动控件按钮大家先看下图片，按钮大家单击窗体按钮就会跳到鼠标单击的地方！很不错鼠标点哪里按钮就到哪里！Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim cmd As CommandButtonSet cmd = Command1cmd.Top = Ycmd.Left = XEnd SubVB 最简单创建窗体很简单的一个可视化操作，新建窗体然后加一个控件放入本事件然后单击，就会出现又一个窗体。

合集下载

VB-第3章-窗体与基本控件

VB-第3章-窗体与基本控件


14
14
VB程序设计－ VB程序设计－第三章 窗体与基本控件 程序设计
1.Print方法 1.Print方法
[{Spc(n)|Tab(n)}][表达式列表][； 表达式列表][ [对象.]Print 对象.]Print [{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 作用: 在对象上输出信息
缇为单位
4 4
VB程序设计－ VB程序设计－第三章 窗体与基本控件 程序设计
Enabled属性 逻辑性） 4. Enabled属性 （逻辑性） 控件是否可操作。
True,false
该属性用来确定一个窗体或控件是否能够对用户产生的事件 作出响应。 作出响应。 运行时，可以根据应用程序的当前状态， 运行时，可以根据应用程序的当前状态，决定使某些控件无 效或有效。 效或有效。
3 3
VB程序设计－ VB程序设计－第三章 窗体与基本控件 程序设计
Height、width、top和left属性 整形） 3. Height、width、top和left属性 （整形）
Left、Top、Height和Width属性用于设置或返回控件的位 Left、Top、Height和Width属性用于设置或返回控件的位 置或尺寸。 置或尺寸。
7 7
VB程序设计－ VB程序设计－第三章 窗体与基本控件 程序设计
Forecolor前景颜色属性 7. Forecolor前景颜色属性 8. Backcolor背景颜色属性 Backcolor背景颜色属性
BackColor属性用来返回或设置控件的背景颜色。ForeColor属 BackColor属性用来返回或设置控件的背景颜色。ForeColor属 属性用来返回或设置控件的背景颜色 性用来返回或设置在控件里显示图片和文本时的前景颜色。 性用来返回或设置在控件里显示图片和文本时的前景颜色。 它们是十六进制长整型数据 在程序代码中可用Windows 运行环境的红在程序代码中可用Windows 运行环境的红-绿-蓝 (RGB) 颜 色方案， 色方案，使用调色板或在代码中使用 RGB 或 QBColor 函数 指定标准RGB颜色。 RGB颜色 指定标准RGB颜色。
计算机VB课程 第2讲 窗体和常用控件

计算机VB课程 第2讲 窗体和常用控件


与窗体布局有关的属性
AutoSize StartPosition：CenterScreen WindowState：Normal、Minimized、Maximized
与窗口样式有关的属性
ControlBox、MaximizeBox、MinimizeBox、 ShowIcon
Icon：Me.Icon = New Icon("d:\1.ico")
‘主窗体“输入数据”按钮 ‘单击后进入“输入数据”窗体
me.Hide()
'隐藏主窗体
Form2.Show()
'显示“输入数据”窗体
End Sub Private Sub Button2_Click()
‘做加法
TextBox1.Text = Form2.x + Form2.y
End Sub Private Sub Button3_Click()
保存窗体
选择“文件”菜单中的“保存*.VB”相关的窗体 文件
设置启动窗体
在”项目”->“windowsapplication1属性” 中 设置
11
不同窗体间的数据存取
在当前窗体中存取另一个窗体中的控件属 性
格式:另一个窗体名.控件名.属性
例:Form2.Textbox1.Text
存取变量的值:必须是在窗体内声明的全局 变量
20
文本框的常用事件 Click、DblClick、TextChange 、GotFocus 、 LostFocus
文本框的常用方法 Focus：把光标定位到指定的文本框中，
格式：[对象.] Focus ()
21
例2：文本框的简单应用。建立两个文本框，程序执行时，光标首先定 位在第一个文本框中。在窗体单击事件中将第一个文本框内任意选定的 文本复制到第二个文本框中。
第五讲 VB标准控件与窗体

第五讲 VB标准控件与窗体

3.1 单选按钮控件（OptionButton） 作用：在本组单选按钮中用户只能选择其一。 常用属性：Name、Caption、Style、Value 常用事件：Click单击事件。 3.2 复选框按钮控件（CheckBox） 作用：在本组复选框按钮中用户可选择多个。 常用属性：Name、Caption、Value 常用事件：Click单击事件。 3.3 框架控件（Frame） 作用：用来放置其他控件的容器。 常用属性：Name、Caption、BordStyle
第五讲 VB标准控件与窗体
1 2 3
VB控件简介 一般类控件
选择类控件
列表类控件、控件数组 VB菜单编辑器
4
5 6
多文档窗体设计
1.VB控件简介
控件是VB应用程序窗体设计中的主要载体，是用 户和应用程序交互的对象。主要分为三种类型：
① 标准控件；
是VB工具箱中提供的基本控件。 ② ActiveX控件； 是VB工具箱控件的扩充，即OCX控件。 ③ 可插入(OLE)控件;
菜单是用户与计算机交互的主要手段之一。 菜单的制作： VB菜单编辑器介绍； 设置菜单项对应的热键： 如: 文件(&F) 设置菜单项对应的快捷键： 如: 打开(&O)的快捷键是 Ctrl+O 设置菜单项的级别： 如: 打开 菜单是 文件 菜单的子菜单。
6.VB多文档窗体
常见的单文档(SDI)应用程序：记事本等，特点：同 一时间只能打开一个文件。 常见的多文档(MDI)应用程序：Word、AutoCAD等，特 点：可以同时打开多个文件。 创建MDI窗体： 子窗体相关属性： MDIChild属性，是否为当前工程中多文档窗体的 子窗体。 子窗体的显示： form1.show
4.VB列表类控件
VB 6.0 讲义(第二章 窗体与基本控件)

VB 6.0 讲义(第二章 窗体与基本控件)

第二讲窗体与基本控件一. 控件的基本属性:名称属性：所有对象皆具有的属性，即所创建对象的名称。

对象名称是作为对象的唯一的标识在程序中被引用，不会在窗体中显示。

2.Caption标题属性：控件上所显示内容3.Enable:用于决定控件是否可操作。

Enable：允许操作并对操作响应；False：是不可操作,便灰。

4.Visible:用于决定控件是否可见.Enable：可见；False：是不可见。

5.Height、Width、 Left、Right属性：Height、Width设置控件高度和宽度；Left、Right设置对象在屏幕上的位置，分别表示在容器（如窗体）内的相对容器坐标系统的位置.6.Font属性：改变文本外观FontName字符型，决定字体；FontSize整型，决定大小；FontBold逻辑型，粗体；FontItalic逻辑型，斜体；FontsTrikethru逻辑型，删除线；FontUnderline逻辑型，下划线。

7.BackColor和ForeColor:设置对象的前景色和背景色.(前景色要在显示内容时才可见)8.BorderStyle:设置对象的边界类型, 0－无边框、1－有边框。

9.Backstyle背景样式：0－透明；1－不透明。

10.Alinement对齐：左、中、右。

11.Autosize自动调整大小：12.TabIndex属性：决定按Tab键时，焦点在控件间移动的顺序。

焦点：接受用户鼠标或键盘输入的能力。

对象具有焦点时才能输入。

（Frame、Label 控件不能接受焦点）默认属性：反映某个控件最重要的属性。

可省略（建议不）。

Text1.text=‖333‖等价于 Text1=‖333‖二. 窗体1.属性窗体的属性影响窗体的外观及行为的特征(如:AutoRedraw属性).◆Appreance:设置窗体表面的显示方式.(0-平面;1-立体)◆AutoRedraw:设置窗体图像的重建.(Ture-自动重画曾被覆盖部分;False-不重画)◆BorderStyle:（）设置窗体的边界,将影响标题栏有关按钮及状态.(有0~5种设置，区别于基本属性)◆ClipControls:设置窗体重建时是只画新露出部分还是全部重画.◆ControlBox:设置左上角是否放置控制框.(为Ture时,可按Alt+F4键关闭窗体,点击图标会出现控制菜单)◆ScaleWidth、ScaleHeight:ScaleWidth、ScaleHeight表示了窗体可容下的实体尺寸(几何尺寸不变,比例尺变), Height、Width表示窗体的实际几何尺寸(比例尺不变,几何尺寸随属性值改变).◆Picture:用来装入一幅图片.◆ScaleLeft、ScaleRight:设置窗体的坐标系统(左上角-原点位置).◆Windows State:设置窗口的三种状态（Max=2、Min=1、Normal=0）◆KeyPreview:决定是窗体还是焦点(Tab键可在对象间移动焦点)控件响应键盘事件.(Ture—都响应;False—焦点控件响应)2.普通窗体的生命周期:Noties:是否有鼠标、键盘事件及启动、关闭时的事件可通过添加一些语句到相应的事件引发过程中来跟踪。