温馨提示×

VB语言如何实现幻灯片效果

发布时间:2022-01-14 18:04:45 来源:亿速云 阅读:63 作者:小新 栏目:大数据

小编给大家分享一下VB语言如何实现幻灯片效果,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

本节目标案例:

VB语言如何实现幻灯片效果

在开始此次案例之前,我们先回顾一个问题,哪些情况可以加载图片?

1.比如窗体的属性picture等含有picture这个属性的。

2.picturebox控件可以加载。

3.image控件可以加载。

以上图片加载的共性:利用picture属性进行加载。

form窗体样式配置通过borderStyle边框风格:
fixed dialog 就是窗体对话框样式,只有一个关闭按钮。隐藏了放大缩小按钮。

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

本节教程界面:

VB语言如何实现幻灯片效果

本节教程源代码:

Dim a As Integer
Private Sub Command1_Click()a = a - 1If a >= 1 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    MsgBox "已经没有了"End IfEnd Sub
Private Sub Command2_Click()a = a + 1If a <= 8 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    MsgBox "已经没有了"End IfEnd Sub
Private Sub Command3_Click()Timer1.Enabled = TrueEnd Sub
Private Sub Form_Load()a = 1Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")End Sub
Private Sub Timer1_Timer()a = a + 1If a <= 8 Then    Image1.Picture = LoadPicture(App.Path & "/img/" & a & ".jpg")Else    a = 0End IfEnd Sub

以上是“VB语言如何实现幻灯片效果”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

免费拨打  400 100 2938 免费拨打 400 100 2938
24小时售后技术支持 24小时售后技术支持
返回顶部 返回顶部