专栏首页VB小源码B4A 手机客户端源码

B4A 手机客户端源码

Region Project Attributes

#ApplicationLabel: 手机扫码枪
#VersionCode: 1
#VersionName: vb小源码
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

End Region

Region Activity Attributes

#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

本文分享自微信公众号 - VB小源码(vb_xym),作者:VB小源码

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-01-18

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • VB.NET 结合Access数据库开发的含有<验证码>系统登录示例

    巴西_prince
  • B4A 调用谷歌翻译api进行翻译

    Google 翻译是谷歌公司提供一项免费的翻译服务,可提供103 种语言之间的即时翻译,支持任意两种语言之间的字词、句子和网页翻译。可分析的人工翻译文档越多,译...

    巴西_prince
  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • B4A 调用谷歌翻译api进行翻译

    Google 翻译是谷歌公司提供一项免费的翻译服务,可提供103 种语言之间的即时翻译,支持任意两种语言之间的字词、句子和网页翻译。可分析的人工翻译文档越多,译...

    巴西_prince
  • VB.NET 结合Access数据库开发的含有<验证码>系统登录示例

    巴西_prince
  • #安卓开发# B4A 连接mssql 数据库

    巴西_prince
  • datetime模块

    py3study
  • 关于django中input标签中file类型以及开路由

    小小咸鱼YwY
  • 自动保存邮件附件至指定文件夹

    最近有个需求,ERP系统会自动发很多csv附件到我邮箱,我需要把这些附件上传到FTP服务器,服务器会把这些csv的数据写到另外一个系统的数据库。 每次大概有3...

    Tony老师

扫码关注云+社区

领取腾讯云代金券