请先登录 | 注册
IPSC1978.GICP.NET
在B4A里类似VB6里inputbox输入文本的用法 - 文章首页→返回版区
■标题:在B4A里类似VB6里inputbox输入文本的用法
■作者:IPSC [2026/10/25 1:20:09]
Sub Class_Globals 里加以下[VB]

'显示输入文本对话框
Private Dialog As B4XDialog
Private InputTemplate As B4XInputTemplate

[/VB]

Private Sub B4XPage_Created (Root1 As B4XView)里加以下

[VB]


'显示输入文本对话框
Dialog.Initialize(Root)
InputTemplate.Initialize
InputTemplate.lblTitle.Text = "请输入"


[/VB]




代码里这样用
[VB]

Wait For (Dialog.ShowTemplate(InputTemplate, "提交", "", "取消")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
abc=InputTemplate.Text
End If


[/VB]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】(暂无)
(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
56 毫秒 .