VB开发安卓程序_例程5可拖动浮动窗体

最新推荐文章于 2024-10-05 19:24:37 发布

郭丙李

最新推荐文章于 2024-10-05 19:24:37 发布

阅读量187

点赞数 1

分类专栏： B4A入门文章标签： android

本文链接：https://blog.csdn.net/u010643864/article/details/137973651

版权

B4A入门专栏收录该内容

40 篇文章 1 订阅

订阅专栏

本文详细介绍了如何在Android开发中使用SubActivity_Create函数创建一个可拖动且具有自定义功能的浮动窗体，包括标题栏定制、调整大小、最大化以及添加按钮。读者需下载Class:FloatingWindows模块来实现窗口固定化。

摘要由CSDN通过智能技术生成

运行截图

Main窗体核心代码如下：


Sub Activity_Create(FirstTime As Boolean)
	
	Activity.Color = Colors.White
	
	w.Initialize(Activity, 0, 0, 100%x, 100%y, Me)
	
	
	w.SetTitleText("可拖动浮动窗体")
	
	'标题栏文本颜色
	w.SetTitleTextColor(Colors.Black)
	
	'标题栏背景色
	Dim cd As ColorDrawable
	cd.Initialize(Colors.LightGray, 0)
	w.SetTitleBackground( cd )
		
	'设置边框
	w.SetBorder(Colors.LightGray,3dip)


'	'标题栏增加最大化按钮
	w.EnableMaximizeButton(True, "Maximize_Click")
	

	
	'允许调整窗体大小，值为true时，窗体右下角有一个三角形
	w.EnableResizeButton(True)
	
	
		
	'限制窗体尺寸
	w.MinimumHeightAfterResize = 50%y
	w.MinimumWidthAfterResize  = 100%x

'	
	'改变调整窗体图标
	w.ChangeResizeIcon(LoadBitmap(File.DirAssets, "resize.png"))
	
	
'	要想实现窗体固定化，不能移动，
'	需要模块<ClsFloatingWindow>中的Class_Globals中将代码
'	<Private wPinned As Boolean> 改为<Public wPinned As Boolean>
	w.wPinned = False
	
	Dim btn As Button
	
	
	'添加一个按钮到浮动窗体
	btn.Initialize("")
	btn.Text  = "测  试"
	btn.TextSize = btn.TextSize * 1.2
	
	W.AddView(btn, 25%x, 100dip, 50%x, 70dip, True)
	
	
	'强制最大化显示，并处于固定状态
	w.Move(0,30%y,False)
	w.Resize(50%x,60%y )

End Sub

请到官网下载 [Class] Floating Windows