各位大神,我想用VB编写一个程序来表白,希望可以帮我,成人之美功德无量呀,谢啦!!!
答案:2 悬赏:30 手机版
解决时间 2021-02-20 03:25
- 提问者网友:蔚蓝的太阳
- 2021-02-19 21:56
具体要求是,点击命令按钮后会弹出一个窗口,里面每隔两秒钟会像PPT那样变换图片,请尽量设计的人性话一点,我没有财富值,就给不了了,祝好人一生平安!
最佳答案
- 五星知识达人网友:山河有幸埋战骨
- 2021-02-19 23:03
方法:
1. 先将要轮流显示的图片编辑好,建议图片尺寸设置为一致!并转换为BMP格式的图片!
2. 打开VB,新建工程,单击窗体中【外接程序】=>【外接程序管理器】=>选择【VB 资源管理器】,并加载它!
3. 将图片添加进VB 资源管理器里面,文件的ID依次是 101 102 103 .... ...
4. 在工程项目中添加两个窗体,分别为 Form1 Form2
5. 在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:
Private Sub Command1_Click()
Form2.Show
End Sub
6. 在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 2000 '延时2000ms
i = 1
End Sub
Private Sub Timer1_Timer()
Picture1.Picture = LoadResPicture(100 + i, vbResBitmap)
i = i + 1
If i = 6 Then i = 1 ' 数字6是代表有6张图片
End Sub
这样就按照你的要求做出一个每两秒钟就自动循环更换图片的程序了!
1. 先将要轮流显示的图片编辑好,建议图片尺寸设置为一致!并转换为BMP格式的图片!
2. 打开VB,新建工程,单击窗体中【外接程序】=>【外接程序管理器】=>选择【VB 资源管理器】,并加载它!
3. 将图片添加进VB 资源管理器里面,文件的ID依次是 101 102 103 .... ...
4. 在工程项目中添加两个窗体,分别为 Form1 Form2
5. 在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:
Private Sub Command1_Click()
Form2.Show
End Sub
6. 在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 2000 '延时2000ms
i = 1
End Sub
Private Sub Timer1_Timer()
Picture1.Picture = LoadResPicture(100 + i, vbResBitmap)
i = i + 1
If i = 6 Then i = 1 ' 数字6是代表有6张图片
End Sub
这样就按照你的要求做出一个每两秒钟就自动循环更换图片的程序了!
全部回答
- 1楼网友:由着我着迷
- 2021-02-19 23:42
搜一下:各位大神,我想用VB编写一个程序来表白,希望可以帮我,成人之美功德无量呀,谢啦!!!
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯