我是新手 求教个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")
这样？
