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

你想快速掌握安卓编程吗

 
 
 

日志

 
 

[原创]最最简单的主屏幕悬浮窗体例程  

2014-01-14 20:18:02|  分类: B.例程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

[原创]最最简单的主屏幕悬浮窗体例程 - 沉默蜂QQ793136625 - 沉默蜂
效果图
 
[原创]最最简单的主屏幕悬浮窗体例程 - 沉默蜂QQ793136625 - 沉默蜂
布局文件只有两个控件:Label1 和Panel1
 

'例程来源

‘还有一个更复杂的例程是

'设计:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com


#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: Generic Sample
#VersionCode: 1
#VersionName: 0.0
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

'Activity module

Sub Process_Globals


End Sub

Sub Globals
    Dim Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("Main")
'载入一个布局文件
Activity.Color = Colors.Transparent 
'把窗体背景色定为透明色
' Colors.Transparent  是透明色

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause(UserClosed As Boolean)

End Sub

Sub Panel1_Touch(Action As Int, X As Float, Y As Float) 'As Boolean 'Return True to consume the event

'在这里处理拖动窗体时的事件

        xAxis = X
yAxis = Y
Panel1.Left = Panel1.Left + xAxis - 100dip '100dip is half the width of the panel
Panel1.Top = Panel1.Top + yAxis - 30dip    '30dip is half the height of the panel
End Sub
  评论这张
 
阅读(272)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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