用户界面设计.pptVIP

例7.6设计窗体，用滚动条改变文本框内文本字体的大小PrivateSubForm_Load()DimSizeAsIntegerSize=72Label4.Caption=SizeText1.FontSize=SizeVScroll1.Value=SizeEndSubPrivateSubVScroll1_Change()Text1.FontSize=VScroll1.ValueLabel4.Caption=VScroll1.ValueEndSub思考：如果将Change事件改为Scroll事件，程序运行结果会怎么变化？又称计时器、时钟控件，能够有规律地以一定的时间间隔触发计时器事件（Timer事件）。一个窗体可以使用多个时钟控件，它们的时间间隔相互独立。在程序运行阶段，时钟控件不可见。Timer事件是定时器唯一的一个事件。Timer事件是周期性的事情，间隔多长时间产生一次，由控件的Interval属性指定。当规定的时间间隔达到时，就会触发这个事件。7.1.4定时器Interval属性。决定两个Timer事件之间的时间间隔。时间间隔单位是毫秒，取值范围在0～64767之间（包括这两个数值），单位为毫秒（0.001秒），表示计时间隔，最大的时间间隔约为65s。若将Interval属性设置为0或负数，则计时器将停止工作。01Enabled属性。决定定时器是否生效。无论何时，只要时钟控件的Enabled属性被设置为True，而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False，可使时钟控件无效，即计时器停止工作。02定时器的常用属性定时器示例PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.PrinttimertestForm1.FontSize=10Timer1.Interval=1000最大时间间隔不超过65秒=65000毫秒EndSubPrivateSubTimer1_Timer()IfForm1.FontSize100Thenfontsize的最大值为2160磅Form1.FontSize=Form1.FontSize*2ElseForm1.FontSize=10EndIfClsPrinttimertestEndSub例7.7设计窗体，实现闹钟的功能。SubCommand2_Click()hour=00minute=00EndSubSubCommand3_Click()EndEndSubDimhour,minuteSubCommand1_Click()hour=Format(Text1.Text,00)minute=Format(Text2.Text,00)EndSubSubTimer1_Timer()DimiAsIntegerLabel3.Caption=Time$()IfMid$(Time$,1,5)=hour+:+minuteThenFori=1To100BeepNextiEndIfEndSub图片框01.图像框01.7.1.5图片框和图像框1.图片框图片框用来显示图片和图形。显示以下几种格式的图形：位图文件（*.bmp）、图标文件（*.ico）、图元文件（*.wmf）、增强元文件（.emf）、JPEG文件和GIF文件。当它作为其他控件的容器时，用法与框架控件相同。[对象名.]Picture=LoadPicture([文件名])说明：调用不带参数的LoadPicture()函数，将使图像控件不显示任何图像。Picture属性。设置控件是否要显示图片，可以在属性窗口静态设置，也可以在代码中动态设置。若没有设置Picture属性值，则图像框中不会显示任何图形。在代码中设置的格式：例如：Picture1.picture=Loadpicture(C:\ProgramFiles\_MicrosoftVisualStudio\Common\Graphics\Icons\Elements\_MOON01.ICO)属性窗口设