0

非常新的用户在这里。我正在玩 Basic 4 android 并且玩得很开心。

最初我想做这个 ImageView2.Bitmap = LoadBitmap(File.DirAssets,thumb+".jpg") 不起作用

以下代码有效，但有没有更优雅的方式 - 我敢肯定必须有。提前致谢。史蒂夫

Sub Timer1_Tick '处理刻度事件 If thumb <17 Then thumb=thumb+1 Else thumb=1 End If

    Select thumb
        Case 1
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"1.jpg")
        Case 2
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"2.jpg")
        Case 3
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"3.jpg")
        Case 4
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"4.jpg")
        Case 5
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"5.jpg")
        Case 6
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"6.jpg")
        Case 7
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"7.jpg")
        Case 8
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"8.jpg")
        Case 9
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"9.jpg")
        Case 10
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"10.jpg")
        Case 11
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"11.jpg")
        Case 12
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"12.jpg")
        Case 13
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"13.jpg")
        Case 14
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"14.jpg")
        Case 15
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"15.jpg")
        Case 16
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"16.jpg")
        Case 17
            ImageView2.Bitmap = LoadBitmap(File.DirAssets,"17.jpg")

    End Select

结束子

4

1 回答 1

3 
ImageView2.Bitmap = LoadBitmap(File.DirAssets, thumb & ".jpg")
于 2011-11-03T19:04:09.657 回答