Question

这里非常新用户。我正在玩Basic 4安卓和玩乐。

最初我想这样做 ImageView2.Bitmap = LoadBitmap（File.DirAssets，thumb +“。jpg”）这不起作用

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

Sub Timer1_Tick '处理滴答事件如果拇指＆lt; 17那么拇指=拇指+ 1 其他拇指= 1 结束如果

    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

End Sub

Answer 1

ImageView2.Bitmap = LoadBitmap(File.DirAssets, thumb & ".jpg")

在字符串中使用Int？

1 个答案: