读书人

小弟我是新手 求教个vb的简单有关问题

发布时间: 2012-05-31 12:19:24 作者: rapoo

我是新手 求教个vb的简单问题
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Randomize()
Dim i As Integer = Convert.ToInt32(Rnd() * 5 + 1)
If i = 1 Then

PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\1.jpg")

ElseIf i = 2 Then


PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\2.jpg")



ElseIf i = 3 Then


PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\3.jpg")


ElseIf i = 4 Then


PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\4.jpg")


ElseIf i = 5 Then


PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\5.jpg")


End If





End Sub


如何 能 不用if 想法 直接把i引入 fromfile里的地址里吗
毕竟 我这次 只是 实验 真正用的时候 大约要200张图 编号1到200 不能用200条if句吧

[解决办法]
PictureBox1.Image = Image.FromFile("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\Random access card group\Random access card group\Resources\" & i & ".jpg")
这样?

读书人网 >VB Dotnet

热点推荐