前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >B4A 手机客户端源码

B4A 手机客户端源码

作者头像
一线编程
发布2019-07-22 14:57:08
2.1K0
发布2019-07-22 14:57:08
举报
文章被收录于专栏:办公魔盒

Region Project Attributes

代码语言:javascript
复制
#ApplicationLabel: 手机扫码枪
#VersionCode: 1
#VersionName: vb小源码
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

End Region

Region Activity Attributes

代码语言:javascript
复制
#FullScreen: False
#IncludeTitle: True

End Region

Region Project Attributes

Sub Process_Globals Dim Socket1 As Socket Dim AStreams As AsyncStreams

End Sub

Sub Globals Dim qr As cls_qr Private txt_ip As EditText Private txt_prot As EditText Private txt_res As EditText Private bt_cn As Button Private bt_send As Button Private bt_qr As Button Private lv_res As ListView End Sub

Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") qr.Initialize '---------------------------- lv_res.FastScrollEnabled=True lv_res.SingleLineLayout.ItemHeight=30dip lv_res.ScrollingBackgroundColor = Colors.Transparent lv_res.SingleLineLayout.Label.TextSize = 15 lv_res.SingleLineLayout.Label.TextColor = Colors.Black lv_res.SingleLineLayout.Label.Gravity = Gravity.CENTER '-------------------------- Activity.AddMenuItem("关于","about_app") Activity.AddMenuItem("退出","exit_app") '-------------------------- CN_SERVER End Sub Sub Socket1_Connected (Successful As Boolean) If Successful Then ToastMessageShow("连接成功!", False) AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams") Else ToastMessageShow("未启动服务器!", False) End If End Sub Sub AStreams_NewData (Buffer() As Byte) '接收来自服务端的字节 Dim msg As String msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") ToastMessageShow(msg, False) End Sub Sub send_data(str As String) '向服务端发送字节 If AStreams.IsInitialized = False Then Return If str.Length > 0 Then Dim buffer() As Byte Dim data As String data = str & CRLF buffer = data.GetBytes("UTF8") AStreams.Write(buffer) End If End Sub

Sub exit_app_click ExitApplication End Sub Sub about_app_click Msgbox("本程序由VB小源码开发调试,有问题请向微信公众号后台反馈!或者向QQ群:344402874","VB小源码") End Sub

Sub join_data(str As String) txt_res.Text=str lv_res.AddSingleLine(str) End Sub

Sub CN_SERVER '绑定IP端口 Socket1.Initialize("Socket1") Socket1.Connect(txt_ip.Text, txt_prot.Text,10000) End Sub

Sub AStreams_Error '返回错误信息 ToastMessageShow(LastException.Message, True) End Sub

Sub Activity_Pause(UserClosed As Boolean) If UserClosed Then AStreams.Close Socket1.Close End If End Sub

Sub bt_cn_Click CN_SERVER End Sub

Sub bt_send_Click send_data(txt_res.Text) End Sub

Sub bt_qr_Click qr.QR_OPEN End Sub

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-01-18,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • Region Project Attributes
  • End Region
  • Region Activity Attributes
  • End Region
  • Region Project Attributes
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档