剪贴板类型及相关代码

MYCSG.CN

剪贴板类型及相关代码 - 文章首页→返回版区

■标题:剪贴板类型及相关代码

■作者:IPSC [2025/3/12 10:04:07]
官网论坛下载：https://www.b4x.com/android/forum/attachments/clipboard-zip.6903/通过网盘分享的文件：clipboard.zip

链接: https://pan.baidu.com/s/1U9wHiAlGb8uQ51f_La7kSg?pwd=0759 提取码: 0759

解压到：C:\Program Files\Anywhere Software\B4A\Libraries 具体根据您的安装位置相对

相关代码：

Dim clip As BClipboard

clip.setText(EditText1.text)
ToastMessageShow("复制成功8", True)

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

Sub Globals

'定义所有控件

Dim CLPB As BClipboard '定义CLPB是剪贴板对象

Dim BGN As EditText '定义BGN为文本框对象

End Sub

'换句话说 EditText6 即使获得焦点也不会进来这个事件里面 , EditText6 只用来显示测试结果

Sub EditText_FocusChanged (HasFocus As Boolean) '文本框获取焦点时的事件

BGN = Sender '将传入的Sender对象赋值给对象变量BGN

CLPB.setText(BGN.Text) '复制变量 BGN.Text 内容到剪贴板

End Sub

Sub EditText6_FocusChanged (HasFocus As Boolean)

EditText6.Text = CLPB.getText '文本框获取剪贴板的内容

End Sub

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

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