单元常用控件II.pptVIP

常用控件II 贺向前 PictureBox和Image Frame框架 PictureBox控件 Picture属性：显示图片文件。支持的文件格式有：（*.bmp,*.jpg,*.ico,*.gif） AutoSize属性： AutoSize=True:图片框调整适应图像尺寸的大小 AutoSize=False:图片框不调整适应图像尺寸的大小，图片框具有固定的大小。 CurrentX,CurrentY属性：光标的横纵坐标 PictureBox控件 Print方法：图片框上显示文字 Cls方法：清除图片框上的文字、线条、圆圈等信息，光标重置左上角。（不能清除标签、命令按钮等控件上的文字信息） MouseMove事件：鼠标移动时触发 MouseDown事件：鼠标键被按下时触发 MouseUp事件：鼠标键松开时触发 参数Button：1左键、2右键、3中间键 参数Shift ：1Shift键、2Ctrl键、3Alt键 X, Y：鼠标指针坐标位置 Image控件 Picture属性：显示图片文件 Stretch属性： Stretch=True:图片文件调整尺寸适应Image框的大小。 Stretch=False:图片文件不调整尺寸适应Image框的大小。 无Print方法、无Cls方法 单选按钮OptionButton Value属性： Value=True，表示被选定，圆圈中会出现一黑点； Value=False，表示未被选定。 Caption属性：决定按钮表面文字显示。 Style属性：设置控件的外观是标准的文本样式，还是图形样式。 一般不使用方法，事件主要使用Click事件。 复选框控件CheckBox Value属性： Value=0，表示未被选定； Value=1，表示被选定，被选中项目左侧小方框中会出现显示√； Value=2，变为灰色，表示禁止用户选择。 Caption属性：表面文字显示。 Style属性：设置控件的外观是标准的文本样式，还是图形样式。 一般不使用方法，事件主要使用Click事件。 控件数组 （上例中仅以复选框为例，共享同一事件过程） Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Label1.FontBold = Not Label1.FontBold Case 1 Label1.FontItalic = Not Label1.FontItalic Case 2 Label1.FontUnderline = Not Label1.FontUnderline End Select End Sub Timer控件 Interval属性:决定Interval毫秒触发一次Timer事件。若属性值为0，则表示计时器不起作用。 Enabled属性:决定Timer控件是否有效。 Timer事件:每相隔一定的时间触发一次该事件。 实时显示计算机系统时间 Option Explicit Private Sub Form_Load() Label1.Caption = Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1.Caption = Now End Sub 简单秒表 用时钟控件控制标签在窗口中左右来回移动。 Dim x! Private Sub Form_Load() x = 500 Label1.Caption = 天气预报10-14 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() If Label1.Left Me.ScaleLeft Then x = -x ElseIf Label1.Left + Label1.Width Me.ScaleWidth Then x = -x End If Label1.Left = Label1.Left + x End Sub 滚动条 Min属性:滚动条位置最小值 Max属性:滚动条位置最大值 Value属性:滚动条位置的值 Scroll事件:滚动条滑动时触发的事件 Change事件:value属性发生改变时触发的事件 拖动滚动条改变标签字体大小 Private Sub Form_Load()