VB如何弄点下一张图片就能显示下一张`上一张就上一张?>

[z2955147]

如题.高手帮忙`谢谢`

[clear_zero]

把图片名称放在数组里,点击的时候弄个静态变量计数,根据这个变量取数组中对应下标的图片名称加载图片即可...

[我是一道光_]

Private Sub Command1_Click()
    Me.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\1.jpg")
    Command1.Enabled = False
    Command2.Enabled = True
End Sub

Private Sub Form_Load()
    Me.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\2.jpg")
End Sub
Private Sub command2_click()

    Me.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\3.jpg")
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

最简单的实现方法~~

[the_fire]

[Quote=引用 4 楼 lfsfxy9 的回复:]
VB code
Private Sub Command1_Click()
Me.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\1.jpg")
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Form_Load()
Me.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\2.jpg")
End Sub
Private Sub command2_click()

Me.Picture = LoadPicture("C:\Documents and Settings…
[/Quote]

不错！

[vbman2003]

大概如下:

Option Explicit

Dim picName         '图片名称
Dim picNum As Long  '计数

Private Sub cmdEnabled(n As Long)
    Select Case n
        Case UBound(picName): Command1.Enabled = False
        Case LBound(picName): Command2.Enabled = False
        Case Else
            Command1.Enabled = True
            Command2.Enabled = True
    End Select
End Sub

Private Sub Command1_Click() '下一张
    picNum = picNum + 1
    Picture1.Picture = LoadPicture(picName(picNum))
    cmdEnabled picNum
End Sub

Private Sub Command2_Click() '上一张
    picNum = picNum - 1
    Picture1.Picture = LoadPicture(picName(picNum))
    cmdEnabled picNum
End Sub

Private Sub Form_Load()
    picName = Array("d:\a.jpg", "d:\b.jpg", "d:\c.jpg", "d:\e.jpg", "d:\f.jpg", "d:\g.jpg")
    Picture1.Picture = LoadPicture(picName(picNum))
    cmdEnabled picNum
End Sub

[zzhgb]

把图片名字用数字表示，
或者弄个图片名和数字的对应表也行

[vbman2003]

把图片名称放在数组里,点击的时候弄个静态变量计数,根据这个变量取数组中对应下标的图片名称加载图片即可...

[我是一道光_]

顶~~ lz该结贴给分啦~~