[其它]最新VB设计题汇编-HZQ20125更新版ppt课件

1、VB设计题汇编设计题汇编VB设计题分类设计题分类 时钟控件运用时钟控件运用 列表框列表框&组合框控件运用组合框控件运用 图形框图形框&图像框图像框&绘图绘图&图片加载图片加载 滚动条的运用滚动条的运用 文本框文本框&按钮按钮&标签控件标签控件 单项选择框单项选择框&复选框复选框&框架控件运用框架控件运用 菜单设计菜单设计时钟控件运用相关时钟控件运用相关 时钟控件主要包括时钟控件主要包括2个属性：个属性：Interval、Enable 时钟控件的时钟控件的Timer事件是控制在频率内执行事件是控制在频率内执行相关控件的属性变化相关控

2、件的属性变化Private Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Label1.Caption = 00:00:00Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = Format(Time, hh:mm:ss)End Sub列表框列表框&组合框控件运用组合框控件运用 列表框&am

3、p;组合框共有重要属性： Style、List、ListIndex、ListCount假设未选定工程，那么 ListIndex 属性值是 -1。列表的第一项为哪一项 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1 ；对 List、ListCount 和 ListIndex 属性进展设置就可以访问 ListBox 中的工程。也可以在设计时运用 List 属性在列表中添加工程。 方法： RemoveItem 方法：用以从 ListBox 或 ComboBox 控件中删除一项。语法：object.RemoveItem index；其中的index是必需的

4、。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项，index = 0。 AddItem 方法：用于将工程添加到 ListBox 或 ComboBox 控件。语法：object.AddItem item, index其中Item是必需的。字符串表达式，它用来指定添加到该对象的工程。Index可选。是整数，它用来指定新工程或行在该对象中的位置。假设所给出的 index 值有效，那么 item 将放置在 object 中相应的位置。假设省略 index，当 Sorted 属性前往一个值，指定控件的元素能否自动按字母表顺序排序 设置为 True 时，

5、item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。 Clear方法用于去除 ListBox，ComboBox内的工程 添加两个添加两个list控件和一个控件和一个Caption属性为剪切的按钮属性为剪切的按钮.Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem AAAList1.AddItem BBBList1.AddItem CC

6、CList1.AddItem DDDList1.AddItem EEEEnd Sub图片框图片框&图像框图像框&图形控件图形控件&绘图绘图 PictureBox控件属性：控件属性：AutoSize属性根据内容大小调属性根据内容大小调理图片框的尺寸理图片框的尺寸 ；Picture属性指定一个图片。设计属性指定一个图片。设计时可以从属性窗口中加载图片。在运转时，也可以运用时可以从属性窗口中加载图片。在运转时，也可以运用 LoadPicture 函数来设置该属性函数来设置该属性 ；Height、Width 属属性；性；Visible 属性属性 Image控件属性：控件属性：S

7、tretch 属性确定能否缩放图形来顺属性确定能否缩放图形来顺应控件大小；应控件大小； Picture属性属性 方法：方法：Print方法；方法；Cls方法方法Cls 将去除图形和打印语句将去除图形和打印语句在运转时所产生的文本和图形，而设计时在在运转时所产生的文本和图形，而设计时在 Form 中运用中运用 Picture 属性设置的背景位图和放置的控件不受属性设置的背景位图和放置的控件不受 Cls 影响影响 Shape控件属性：控件属性：Shape 属性前往或设置一个值指示属性前往或设置一个值指示Shape 控件的外观；控件的外观；FillStyle 属性前往或设置用来属性前往或设置用来填充

8、填充 Shape 控件的方式。控件的方式。绘图方法 Circle 方法：在对象上画圆 语法是：object.Circle Step(x, y), radius, color, start, end , aspect start 参数和 end 参数是可选的；但是，假想象省掉参数，逗号是不能省的。 aspect 参数指定了程度长度和垂直长度比。它既可以是整数表达式，也可以是小数表达式，但不能是负数。该 aspect 参数较大时，椭圆沿垂直轴线拉长；相反，该 aspect 参数较小时，那么沿程度轴线拉长。由于椭圆有两个半径程度方向的 x 半径和垂直方向 y 半径 Visual Basic 在 Ci

9、rcle 语句中只运用了一个参数 radius半径 对应椭圆的长轴。假设 aspect 参数小于 1 的话，该 radius 半径指的是程度方向的 x 半径，假设 aspect 参数大于或等于 1 的话，那么 radius 指的是垂直方向的 y 半径。 留意 aspect 参数指定的总是程度长度和垂直长度的实际物理间隔比，要保证这一点即使用的是自定义标尺，半径应以程度单位指定。 Line 方法：在对象上画直线和矩形。方法：在对象上画直线和矩形。 语法：语法：object.Line Step (x1, 1) Step (x2, y2), color, BF object可选的。可选的。 假设假设

10、object 省略，具有焦点的窗体作为省略，具有焦点的窗体作为object。 Step可选的。关键字，指定起点坐标，可选的。关键字，指定起点坐标， (x1, y1)可选的。直可选的。直线或矩形的起点坐标。线或矩形的起点坐标。 Step可选的。关键字，指定相对于线的起点的终点坐标。可选的。关键字，指定相对于线的起点的终点坐标。 (x2, y2)必需的。直线或矩形的终点坐标。必需的。直线或矩形的终点坐标。 color可选的。画线时用的可选的。画线时用的 RGB 颜色。假设它被省略，那颜色。假设它被省略，那么运用么运用 ForeColor 属性值。属性值。 B可选的。假设包括，那么利用对角坐标画出矩

11、形。可选的。假设包括，那么利用对角坐标画出矩形。 F可选的。假设运用了可选的。假设运用了 B 选项，那么选项，那么 F 选项规定矩形以矩形选项规定矩形以矩形边框的颜色填充。不能不用边框的颜色填充。不能不用 B 而用而用 F。假设不用。假设不用 F 光用光用 B，那么矩形用当前的那么矩形用当前的 FillColor 和和 FillStyle 填充。填充。FillStyle 的的缺省值为缺省值为 transparent。阐明阐明 画结合的线时，前一条线的终点就是后一条线的起点。画结合的线时，前一条线的终点就是后一条线的起点。 线的宽度取决于线的宽度取决于 DrawWidth 属性值。在背景上画线和

12、矩形属性值。在背景上画线和矩形的方法取决于的方法取决于 DrawMode 和和 DrawStyle 属性值。属性值。 执行执行 Line 方法时，方法时， CurrentX 和和 CurrentY 属性被参数设属性被参数设置为终点。置为终点。在工具栏的在工具栏的“添加窗体添加添加窗体添加form2窗体窗体.在工程资源管理器窗口中的在工程资源管理器窗口中的“工程属性对话框指定工程属性对话框指定form1为启动窗体为启动窗体.在在Form1中添加一个命令按钮中添加一个命令按钮.Private Sub Command1_Click()Unload MeForm2.Showform2.picture=

13、Loadpicture(“K:Fjexam95ravmon.jpg)End Sub控件属性设置如题控件属性设置如题Private Sub Form_Load()Image1.Picture =LoadPicture(k:fjexam95Tree.jpg)Image2.Picture = LoadPicture(k:fjexam95dog.jpg)Image3.Visible = FalseEnd SubPrivate Sub Command1_Click()Image3.Picture = Image1.PictureImage1.Picture = Image2.PictureImage2.

14、Picture = Image3.PictureImage3.Visible = FalseEnd Sub相关代码如下：相关代码如下：Private Sub C1_Click()Form1.Picture = LoadPicture(k:fjexam95jztx.bmp)End SubPrivate Sub C2_Click()Form1.Picture = LoadPicture()End Sub滚动条的运用滚动条的运用 滚动条的属性：Max 、Min 属性；LargeChange 属性单击滚动条时滚动条内所示变化量；SmallChange 属性单击滚动条两端的箭头时滚动条内所示变化量；Va

15、lue 属性前往或设置滚动条的当前位置，其前往值不断介于 Max 和 Min 属性值之间，包括这两个值。 经常运用滚动条控制颜色、文本框或者图片框显示的展开添加添加Label2，Label3，Label4，Label5.其其Caption分为调出颜色分为调出颜色,红红(R),绿绿(G),蓝蓝(B)的标签控件，的标签控件，Label1的的 Caption 为空，和为空，和添加三个程度滚动条添加三个程度滚动条(称号为称号为hs1,hs2,hs3)，且，且min,max属性值均为属性值均为0，255。Private Sub HS1_Change()Label1.BackColor=RGB(HS1.V

16、alue,HS2.Value, HS3.Value)End SubPrivate Sub HS2_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value)End SubPrivate Sub HS3_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value)End Sub文本框文本框&按钮按钮&标签控件标签控件 文本框控件属性 按钮控件属性 标签控件属性相关代码如下：相关代码如下：Private Sub Command1_Click()Text1.Vis

17、ible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.Text = VB程序设计程序设计End SubPrivate Sub Command1_Click()If Text1.Text = student ThenLabel2.Caption = 欢迎运用本系统欢迎运用本系统ElseLabel2.Caption = 口令错，请重新输入口令错，请重新输入“Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)Text1.SetFocusEnd IfEnd S

18、ubText1属性：属性：PassWordChar-*添加标签添加标签caption属性为属性为“请您输入您的昵称的请您输入您的昵称的label控件；添加一个文本框控件；添加一个文本框和一个和一个caption属性为属性为“下一步的命令按钮，其下一步的命令按钮，其enabled属性为属性为false.Private Sub Text1_Change()Command1.Enabled = TrueForm1.Caption = Text1.TextEnd Sub单项选择框单项选择框&复选框复选框&框架控件框架控件运用运用 框架控件为了将控件分组，首先需求绘制框架控件为了将控件分

19、组，首先需求绘制 Frame 控件，控件，然后绘制然后绘制 Frame 里面的控件。这样就可以把框架和里面里面的控件。这样就可以把框架和里面的控件同时挪动的控件同时挪动 ：Caption 属性属性 OptionButton 控件控件&Checkbox 控件共同属性：控件共同属性：Style 属属性性0为规范的缺省值，为规范的缺省值，Checkbox 控件显示为在其身旁控件显示为在其身旁有一个标签的复选框，有一个标签的复选框，OptionButton 显示为在其身旁有显示为在其身旁有一个标签的选项按钮；一个标签的选项按钮；1为控件用图形款式显示，为控件用图形款式显示，Checkbox 控件显示为类似按钮的控件显示为类似按钮的 CommandButton，它能上下切换；它能上下切换；OptionButton 显示为类似按钮的显示为类似按钮的 CommandButton，它坚持向上或向下的切换，直到它的，它坚持向上或向下的切换，直到它的选项群组