注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]控件背景的设置  

2014-01-18 19:14:27|  分类: B4A例程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
将安卓手机的壁纸图片作为安卓程序的背景图片

Sub Activity_Create(FirstTime As Boolean)

Dim r As Reflector
'Reflector(反射库)用来实现许多在B4A里暂时没有提供或是实现的方法,也就是调用JAVA.

Dim b As Bitmap
Dim d As BitmapDrawable
b.InitializeMutable(Activity.Width,Activity.Height)
d.Initialize(b)
   r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", Array As Object(r.GetContext), Array As String("android.content.Context"))
Activity.Background = r.RunMethod("getDrawable")

End Sub


-------------------------------------------------------------------------------------------------------------------------------------------------

如果你想把一张很大的图片作为安卓程序的背景图片,可以用下面的代码
Activity.SetBackgroundImage(LoadBitmapSample(File.DirAssets, "grocerybig.jpg", Activity.Width, Activity.Height))



-------------------------------------------------------------------------------------------------------------------------------------------------



如何设置一个控件的背景透明度

SetAlpha(MyPanel, 200)

Sub SetAlpha(Control As View, Alpha As Int)
Dim r as Reflector
   r.Target = Control.Background
  r.RunMethod2("setAlpha", Alpha, "java.lang.int")
End Sub


-------------------------------------------------------------------------------------------------------------------------------------------------

关于Activity的更多介绍可以看一下B4A官网(用在线网页翻译一下再看)


-------------------------------------------------------------------------------------------------------------------------------------------------
两个窗体,要想实现一个活动一个隐藏,可参考下面的帖子
http://www.basic4ppc.com/android/forum/threads/hiding-an-activity.14824/
  评论这张
 
阅读(305)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017