VB语言如何实现幻灯片效果
小编给大家分享一下VB语言如何实现幻灯片效果,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!
创新互联建站是一家专注于网站设计、成都网站建设与策划设计,阿克塞哈萨克族自治网站建设哪家好?创新互联建站做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:阿克塞哈萨克族自治等地区。阿克塞哈萨克族自治做网站价格咨询:13518219792
本节目标案例:
1.比如窗体的属性picture等含有picture这个属性的。
2.picturebox控件可以加载。
3.image控件可以加载。
以上图片加载的共性:利用picture属性进行加载。
image控件加载图片:
1.默认情况下,控件加载图片后,会呈现与图片原始大小的尺寸。
2.我们可以通过strech属性配置为true后,将图片进行整体缩放。
如果strech属性为false,会出现裁剪效果。
此次案例,我们的最终目标:实现图片的自动切换。
1.点击按钮“下一张”,图片会显示出下一张来
2.点击按钮“上一张”,图片会显示出上一张来
方法一:
两张图片的互相切换效果:
可以采用两个image控件。
在form_load事件中先显示第一张图片,其它的图片都隐藏。
图片的显示与隐藏我们通过visible属性进行设置。
visible属性为true表示显示。
visible属性为false表示隐藏。
方法二:
如果有大量图片需要显示,那么我们就要制作图片的规律:
1.先把图片重命名为有规律的数值
2.通过loadpicture函数加载图片,这个函数返回一个图片对象
使用格式:
loadpicture(图片路径)
举例:在image1控件中加载图片。
Image1.Picture = LoadPicture(App.Path & "/img/3.jpg")
这里的app.Path代表当前工程文件所存的文件夹的路径
那么,如何显示下一张图片?
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已经没有了"
End If
如何显示上一张图片?
a = a - 1
If a >= 1 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已经没有了"
End If
如何自动循环显示?
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
a = 0
End If
本节教程界面:
本节教程源代码:
Dim a As Integer
Private Sub Command1_Click()
a = a - 1
If a >= 1 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已经没有了"
End If
End Sub
Private Sub Command2_Click()
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
MsgBox "已经没有了"
End If
End Sub
Private Sub Command3_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
a = 1
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a <= 8 Then
Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")
Else
a = 0
End If
End Sub
以上是“VB语言如何实现幻灯片效果”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!
当前标题:VB语言如何实现幻灯片效果
地址分享:http://pwwzsj.com/article/gddces.html