关于我们 共44页[1 2 3 4 5 6 7 >»<... 最后一页]

单击命令按钮，正弦曲线从原点开始逐渐显示出一个周期的图像。

  制作应用程序界面

a)   单击工具箱中CommandButton控件图标，在窗体的适当位置放置命令按钮Command1。

b)    单击工具箱中Image控件图标，在窗体中放置Image1正弦曲线图片，调节窗体各控件位置 

   设置控件的属性

a)  单击Image1控件，单击Picture属性中的“……”按钮，然后再从“加载图片”对话框中导入“正弦曲线”图片

b)  单击Command1其Caption属性设置“start”。 

   编写程序代码

a)  Command1按钮的单击事件代码如下：

Private Sub Command1_Click()
         Timer1.Interval = 100   '将定时器的Interval事件间隔设置为1秒
         End Sub

Form1的装载事件代码如下：

Private Sub Form_Load()
          Image1.Width = 20  '设置图像的原点
          End Sub

Timer1定时器的Timer事件代码如下：

Private Sub Timer1_Timer()
        Image1.Width = Image1.Width + 20 '使图像从原点开始逐渐显示一个周期
         End Sub

b)        程序说明：

此作品还可以用加上白色的文本框或其他控件，让白色控件的位置随之移动，因而到达作品要求。

在正弦曲线图片上加一个Text1文本框使其只露出正弦曲线的原点

Timer1定时器的Timer事件代码如下：

Private Sub Timer1_Timer()
Text1.Left = Text1.Left + 20
End Sub

作品显示过程如图