设计一个vb程序,点击按钮直接跳出一个原先准备好的图片的程序怎么编?
请问能不能给我编个程序?就使这个图片直接跳出来??(有些像ppt的效果)。界面上的各个控件的属性修改情况说明一下……另外图片如果换成动态的呢可以吗?我的qq:143645...
请问能不能给我编个程序?就使这个图片直接跳出来??(有些像ppt的效果)。界面上的各个控件的属性修改情况说明一下……
另外图片如果换成动态的呢可以吗?
我的qq:1436452022。您可以把做好的程序发给我……有些急……谢谢啊 展开
另外图片如果换成动态的呢可以吗?
我的qq:1436452022。您可以把做好的程序发给我……有些急……谢谢啊 展开
展开全部
可在窗口上加一个PICTURE控件,然后选中picture1,再在PICTURE1中添加一个IMAGE控件。IMAGE1中的图片通过设置image1的picture属性添加。image1的宽度和高度的初始值设置为1(不能设置为0).然后再添加一个时间控件,在时间控件的TIMER事件中逐渐增加IMAGE1的高度和宽度,就有了图片逐渐放大的效果了。由此思路,你可以设置其它效果。下面是点击按钮后显示逐渐放大的程序:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Image1.Left = 0
Image1.top = 0
Image1.Height = 1
Image1.Width = 1
Timer1.Interval = 1
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static t As Integer
t = t + 100
Image1.Width = t
Image1.Height = t
If Image1.Width >= Picture1.Width Then Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Image1.Left = 0
Image1.top = 0
Image1.Height = 1
Image1.Width = 1
Timer1.Interval = 1
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static t As Integer
t = t + 100
Image1.Width = t
Image1.Height = t
If Image1.Width >= Picture1.Width Then Timer1.Enabled = False
End Sub
展开全部
先把图片的visible属性改成false
在command事件里写图片名.visible=true
就了事了。
动态的图片vb6不支持,除非有第三方控件。
在command事件里写图片名.visible=true
就了事了。
动态的图片vb6不支持,除非有第三方控件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-07-23
展开全部
两个窗体,一个窗体放按钮,一个窗体放图片,在放按钮的窗体按钮的onclick添加open form2 就可以了。。。估计没有PPT效果 如果你会VB 应该明白。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询