QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7864|回复: 0
打印 上一主题 下一主题

新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~

[复制链接]
字体大小: 正常 放大

9

主题

5

听众

193

积分

升级  46.5%

  • TA的每日心情
    难过
    2014-11-27 15:24
  • 签到天数: 50 天

    [LV.5]常住居民I

    社区QQ达人

    群组学术交流B

    群组学术交流A

    跳转到指定楼层
    1#
    发表于 2013-1-3 20:13 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    Option Explicit0 v4 I! s8 A5 Z2 X5 X" E2 ]
    2 a! y5 f, q% h, {5 O1 n( n" W" F
    Private Sub cmdListen_Click()
    3 f: z8 w8 j7 U) @    Me.sktServer.Listen9 l8 n+ r7 ]" C3 r2 V! n1 I
    End Sub
    : \* g6 M) x* z9 A# B. Y/ O' b9 t. v3 Q  M$ ]
    Private Sub cmdSend_Click()5 d$ Y4 S5 Y( \# a
        Me.sktServer.SendData Me.txtSend.Text3 ~5 E/ C* ^. l6 B8 n
    End Sub
    ; R$ B0 W" {) N. B- T) x: Q
    0 y+ b  ?6 u0 b9 g( OPrivate Sub cmdDisconnect_Click()
    8 F1 V& ~- Q: W: H5 x; q    Me.sktServer.Close3 Z+ N' ]8 q1 f4 H
    End Sub7 S( E* F* T' E- }( ~2 n

    4 |" H! |! d; h  J  i; B$ QPrivate Sub Form_Load()- l" Y  [; f: t. F* ^+ L5 \" g' j" e

    # u  k% ]# Q$ k, oEnd Sub
    6 Y8 G/ @3 m- U; F
    " B! y' `+ Z- d! B4 k  Z$ aPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)$ \" t9 c. g" E" N9 z6 b0 b
        Me.sktServer.Close
    ( B& j3 q+ h# o- p# M* D    Me.sktServer.Accept requestID
    ) I& \0 F; s, t1 lEnd Sub
    3 m$ p- `& h% m: m7 U: F  B2 x# q8 I, q
    Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)4 T: M* X7 s" f  d4 d6 {+ I
        Dim Buffer As String
    / Y6 Y& E9 O# \* F    Me.sktServer.GetData Buffer% q/ Q+ q/ r# }, M
        Me.txtReceive.Text = Buffer9 ~: P+ G7 D8 Z" Y
    End Sub& i& S- }8 E1 v5 r
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-19 18:57 , Processed in 0.939619 second(s), 49 queries .

    回顶部