vb如何轮流展示图片

⑴ 用VB制作显示图片循环~看代码,如何设置循环

'其他的不用修改
Private Sub timer1_timer()
Picture1.Picture = LoadPicture(a(j))
j = j + 1
If j > 29 Then j = j - 30
End Sub

⑵ VB如何实现三张图片轮流出现，我想做成动态效果

在VB下通过加一个时钟控件，然后编写相应的程序代码，使得不同的图片在不同的时钟周期显示、其余的隐藏即可实现你所要的效果。

⑶ vb6.0 运行时如何使几幅图片循环出现

设置全局变量 I

然后
i=I+1
if i = 1 then

图片1
elseif i = 2 then

图片2
end if

⑷ vb 设置3副图片轮流播放的程序

PicNo = PicNo + 1
if PicNo = 4 then PicNo = 1

⑸ 图片轮流播放，点击图片能链接到新页面，用VB编写的

稍等，给你做一个。

⑹ vb编程中如何实现让两张图片交替显示

加两个picture控件picture1和picture2，分别加入2张图片
用timer来实现两张图片交替显示:
Private
Sub
OnTimer()
if
Picture1.Visible
=
False
then
Picture1.Visible
=
True
Picture2.Visible
=
False
else
Picture2.Visible
=
True
Picture1.Visible
=
False
end
if
End
Sub

⑺ 用VB制作 循环显示图片

一、设计界面
启动Visual Basic ,建立一个标准EXE工程，然后参考下面的界面效果设计软件的运行界面：

1、使用控件面板上的【框架】Frame和【标签】Label控件建立①的软件标题，并且将Frame的[Caption]属性清空，Label的[Caption]属性修改为“简易图片浏览器”，[Font]属性中的字体和大小也作相应的修改；

2、利用控件面板上的【驱动器列表】DriveListBox控件建立②的磁盘列表；
3、用控件面板上的【目录列表】DirListBox控件建立③的文件目录列表；
4、用控件面板上的【文件列表】FileListBox控件建立④的文件列表；
5、用控件面板上的【图像】Image控件建立⑤的图像展示区，设置Image1对象的[Height]属性为4800，设置[with]属性值为6400；
6、调整好各个控件的位置，使到界面的布局合理美观。

--------------------------------------------------------------------------------
二、代码实现
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '将磁盘的位置告诉目录列表
End Sub

Private Sub File1_Click()
'将图片用Loabpicture函数装载到Image1里面显示出来
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.Gif"
End Sub

Private Sub Image1_DblClick()
If Image1.Stretch = False Then
Image1.Stretch = True
Image1.Width = 6400
Image1.Height = 4800
Else
Image1.Stretch = False
End If
End Sub
三、软件说明
在VB里面编程要管理外部文件一般可以使用以上的方法来实现，也就是混合的使用到【驱动器列表】DriveListBox、【目录列表】DirListBox以及【文件列表】FileListBox这三个控件对象，然后再在他们的代码中实现关联；
对于【文件列表】FileListBox中显示的内容，默认情况下是所有的文件类型，如果我们希望它只显示我们需要的文件类型，也可以通过修改属性中的[Pattern]图片格式来实现，例如我们只希望文件列表中看到的是*.jpg、*.bmp、*.Gif这几类文件我们可以如下图这样设置：【注意：有多种不同类型的文件就要用“；”分隔开来】

当然也可以在代码中进行初始化的时候实现：

⑻ vb如何实现几个图象框的轮换显示在另一图片框中

给你个代码
要在TIMER1的属性里将Interval的值设为：1000（表示一秒钟显示一次）

Dim flag As Integer‘全局变量

Private Sub Form_Load()
flag = Int(Val(Timer1.Interval / 1000))’在表单的LOAD事件里取值
End Sub

Private Sub Timer1_Timer()‘在这里调用就可以了
If (flag - 3) = 0 Then
flag = 0
Else

If flag = 0 Then
Image4.Picture = Image1.Picture
ElseIf flag = 1 Then
Image4.Picture = Image2.Picture
ElseIf flag = 2 Then
Image4.Picture = Image3.Picture
End If
flag = flag + 1
End If

End Sub

⑼ 在vb.net 中，picturebox轮流显示几个图片的问题

首先定义一个全局变量，然后在加载图片时，根据图片顺序，给这个变量赋值。
Dim n as integer
.....

picture1.image=My.Resources.02

n=2

⑽ 如何在VB轮流显示图片

这是考试题吗？用3 个IMG图象框吧