QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7229|回复: 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 Explicit/ b. o: D# P2 A  D+ L/ `: w
    ' U9 y& F) C) x
    Private Sub cmdListen_Click()+ _+ P8 p6 t1 d# f9 h
        Me.sktServer.Listen
    # I+ N1 }) T6 ^$ U3 ZEnd Sub2 ~4 O# I# x8 n  j

      t0 }; z7 G% A; t6 u: v& tPrivate Sub cmdSend_Click()
    " Z+ y# w3 F, t$ k2 W/ J    Me.sktServer.SendData Me.txtSend.Text
    , D" j" @( c; L' v' P) G! Z8 iEnd Sub
    - s  o) [) {4 Z: x3 R: Y" `1 r5 F; Z9 b
    Private Sub cmdDisconnect_Click()( z% l! {2 P1 t2 |! ]' |
        Me.sktServer.Close  K4 Z6 E+ B6 ~. a9 t
    End Sub
    - l) t# T! Y8 L7 K+ L6 l
    1 k% Z, x2 D5 {Private Sub Form_Load(): F! G: r2 o# @% |& D: ]

    # D7 V% Y5 r- Y8 H2 l( |, b+ aEnd Sub
    6 S1 R$ X$ t/ @( Z0 h) N$ X6 A
      D% d) Y8 ~! B. gPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    3 O) u" n$ a1 f  N) }    Me.sktServer.Close, A7 ?2 X0 J4 L: L1 A6 {
        Me.sktServer.Accept requestID; V& Y4 w" d  H7 I
    End Sub" v4 M+ M  Q' A9 k; _# e
    . l# ^: s$ O( }# S2 x& \
    Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)/ U  Y- W6 p# O4 L' Y: T
        Dim Buffer As String
    6 t7 i3 @; z6 n' g: A    Me.sktServer.GetData Buffer! D! Z& T0 n/ Y- R$ H7 s
        Me.txtReceive.Text = Buffer8 ?+ i! V& s- U% N# a
    End Sub
    + ~# T' D' X' x' A* a$ j, \) w, _
    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, 2025-7-14 05:04 , Processed in 3.343110 second(s), 49 queries .

    回顶部