VB程序设计-第7课 用户界面设计.pptVIP

第7章 用户界面设计 7.1 常用控件 7.3 菜单设计 7.4 多重窗体 7.1 常用控件 2.复选框(CheckBox) 例7-1 通过单选按钮和复选框设置文本框的字体 Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 黑体 End Sub Private Sub Option3_Click() Text1.FontName = 隶书 End Sub Private Sub Option4_Click() Text1.Font.Name = 幼圆 End Sub Private Sub Check1_Click() Text1.FontStrikethru = Not Text1.FontStrikethru 删除线 End Sub Private Sub Check2_Click() Text1.FontUnderline = Not Text1.FontUnderline 下划线 End Sub Private Sub Check3_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub Check4_Click() Text1.Font.Italic = Not Text1.Font.Italic End Sub 3.框架 (Frame) 例7-2 设计字体和字号两个框架，其中各有若干个字体和字号单选按钮。在选择了某个字体和字号后，按“确定”按钮，使文本框内的文字按指定的字体和字号显示。 Private Sub command1_Click() If Option1 Then Text1.FontName = 宋体 Else If Option2 Then Text1.FontName = 黑体 Else Text1.FontName = 隶书 End If End If If Option4 Then Text1.FontSize = 72 Else If Option5 Then Text1.FontSize = 48 Else Text1.FontSize = 36 End If End If End Sub 7.1.2 图形框和图像框 图像框Image 例7-3 本例说明图像框的Stretch属性对加载的图形的影响。 Dim H, W As Integer H和W分别存放图形的原始大小 Sub Check1_Click() Image1.Stretch = Check1.Value End Sub Sub Form_Load() H = Image1.Height W = Image1.Width End Sub Sub HScroll1_Scroll() Image1.Height = H * HScroll1.Value / 10 Image1.Width = W * HScroll1.Value / 10 End Sub 7.1.3 时钟(Timer) 时钟控件以Interval为时间间隔产生Timer事件。可用Timer事件来计时,或控制某一程序的运行。 1. 主要属性 Name—Timer Interval—控制触发Timer事件的间隔时间，单位为毫秒(0.001s)，取值范围为0～65535，即65.535秒。 Interval＝0：屏蔽计时器，即不触发Timer事件。 7.1.3 时钟(Timer) Enabled(默认属性)—设置时钟是否计时 True：有效计时 False：停止时钟工作 2. 事件 Timer事件每隔Interval时间被触发一次，通过该事件可以产生系统时间或控制程序的运行时间。 例7-4 用时钟控件控制蝴蝶从窗体内飞走的动画。 设计三个Image控件，通过picture属性在Image2和Image3中各装入一个不同形态蝴蝶飞舞的图片，运行时，在Image1中每隔0.08秒依次装入两幅图片，形成动态效果，并通过move方法将Image1从左下角移到右上角。 Private Sub Form_Load() Command1.Move 10, 10 Image1.Left = 0 Image1.Top