第一章图片查看器
功能:点击图像框(imageView)就更新一张图片
问题:不知道如何访问外部图片资源及获取内部图片资源名称
b4a代码img_num 为全局变量)
Private Sub ImageView1_Click()
img_num = img_num+1
ImageView1.Bitmap=xui.LoadBitmap(File.DirAssets,img_num & ".jpg")
If img_num == 5 Then
img_num = 0
End If
End Sub
b4j代码img_num 为全局变量)
Private Sub ImageView1_Click()
img_num = img_num+1
ImageView1.SetImage(xui.LoadBitmap(File.DirAssets,img_num & ".jpg"))
If img_num == 5 Then
img_num = 0
End If
End Sub
Private Sub ImageView1_MouseClicked (EventData As MouseEvent)
ImageView1_Click()
End Sub
分析:b4a与b4j的区别在于 ImageView事假函数的处理方法不同 这里直接引用了b4a的事件代码(把它作为一个自建函数使用) 其次b4j和b4a的加载图片的方式也不同b4a: ImageView1.Bitmap=xui.LoadBitmap(File.DirAssets,img_num & ".jpg") b4j: ImageView1.SetImage(xui.LoadBitmap(File.DirAssets,img_num & ".jpg"))
功能:点击图像框(imageView)就更新一张图片
问题:不知道如何访问外部图片资源及获取内部图片资源名称
b4a代码img_num 为全局变量)
Private Sub ImageView1_Click()
img_num = img_num+1
ImageView1.Bitmap=xui.LoadBitmap(File.DirAssets,img_num & ".jpg")
If img_num == 5 Then
img_num = 0
End If
End Sub
b4j代码img_num 为全局变量)
Private Sub ImageView1_Click()
img_num = img_num+1
ImageView1.SetImage(xui.LoadBitmap(File.DirAssets,img_num & ".jpg"))
If img_num == 5 Then
img_num = 0
End If
End Sub
Private Sub ImageView1_MouseClicked (EventData As MouseEvent)
ImageView1_Click()
End Sub
分析:b4a与b4j的区别在于 ImageView事假函数的处理方法不同 这里直接引用了b4a的事件代码(把它作为一个自建函数使用) 其次b4j和b4a的加载图片的方式也不同b4a: ImageView1.Bitmap=xui.LoadBitmap(File.DirAssets,img_num & ".jpg") b4j: ImageView1.SetImage(xui.LoadBitmap(File.DirAssets,img_num & ".jpg"))