随笔分类 -  B4A

使用类似VB的语言开发安卓应用程序
B4A打开文件夹
摘要：源代码 Try Dim i As Intent i.Initialize(i.ACTION_VIEW, "file://" & File.DirRootExternal&"/保存目录/" ) i.SetType( "resource/folder" ) StartActivity(i) Catch 阅读全文
posted @ 2020-07-18 17:33 办公魔盒 阅读(385) 评论(0) 推荐(0)
B4A(安卓) 粘贴板使用方法
摘要：源代码 Dim clb As BClipboard,dystr As String ''必须先检测has否则程序崩溃 If clb.HasText Then dystr = clb.getText End If 阅读全文
posted @ 2020-07-18 16:58 办公魔盒 阅读(510) 评论(0) 推荐(0)
B4A(安卓) 关闭严格模式
摘要：源代码 Sub DisableStrictMode '关闭严格模式 Dim jo As JavaObject jo.InitializeStatic("android.os.Build.VERSION") If jo.GetField("SDK_INT") > 9 Then Dim policy A 阅读全文
posted @ 2020-07-18 16:52 办公魔盒 阅读(381) 评论(0) 推荐(0)
B4A(安卓) 检测是否使用 VPN
摘要：添加权限 AddPermission(android.permission.ACCESS_NETWORK_STATE) 源代码 Sub tf_vpn() As Boolean Try Dim p As Phone,tf As Boolean=False If p.SdkVersion >= 21 T 阅读全文
posted @ 2020-07-18 16:50 办公魔盒 阅读(3) 评论(0) 推荐(0)