Question

VB中Image控件点击怎么换图片

VB中的Image控件怎么点击换图片不使用按钮控件只使用Image控件
几张图片是循环的每次点击不一样，只更换Image控件中的图片
我是初学者，请各位朋友赐教
先谢谢各位了

Answer 1

Private Sub Image1_Click()
Const endc as long=10 '终止号
const startc as long=0 '起始号 不能小于0

Static i as long
if i=0 then i = startc

Image1.picture = loadpicture("C:\" & CStr(i) & ".jpg") '换图
i=i+1
if i>endc then i = startc
end click

上例：点击Image1，循环更换C:\0.jpg ~ C:\10.jpg

Answer 2

Option Explicit

'定义一个数组存放你的所有图片
Dim A() As String, Na As Integer

Private Sub Form_Load()
'假设图片数为10
Na = 10
ReDim A(Na)
'一个个的填写图片地址
A(1) = "图片1地址"
A(2) = "图片2地址"
'……

'上面图片如果图片太多不想一个个填写可以把图片放
'一个文件夹下用FILELIST控件来获取，也可以把图片
'命名为1-10.jpg然后用FOR NEXT 语句来生成
End Sub

Private Sub Image1_Click()
'N为点击次数计数
Static N As Integer
N = N + 1
'点击次数大于图片总数时回到显示第一张图从新循环显示
If N > Na Then N = 1
Image1.Picture = LoadPicture(A(N))
End Sub