QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7735|回复: 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 S& _, N& n5 Q  l
    ! c0 {( `& J0 W3 x  k9 D2 {
    Private Sub cmdListen_Click()
    " X/ _9 J' J' w( T    Me.sktServer.Listen& F0 o4 O& S3 X4 }
    End Sub* g" y. I$ q; `# d# K- \

    ) u2 t% d' p1 o' M0 X9 I6 U0 dPrivate Sub cmdSend_Click()3 Y& S$ g5 a7 i: k4 Q! d
        Me.sktServer.SendData Me.txtSend.Text
    8 ]. s, J& m; k; g% O( W9 {! h* gEnd Sub
    1 _  B/ z# {8 j  `/ ^' @4 I
    8 X7 |- J" j+ S2 z$ ]* RPrivate Sub cmdDisconnect_Click()
    1 G, M. J4 t) C    Me.sktServer.Close3 W: n* H; u9 c
    End Sub
    $ Z/ _: d1 @3 @( d( R7 R) X
    / K# Z( v" u) x# X9 _4 oPrivate Sub Form_Load()0 Q1 q1 J  p' z5 d

    / Y- E" b8 f: z. s6 C& V2 HEnd Sub
    # k9 g/ Y# L' X2 H  L
    5 s9 M) U; [+ @1 p! K5 ]' v: `Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)3 i( ^- q. Q1 j( o' h5 y
        Me.sktServer.Close9 {  [* {) ~' c8 G. L
        Me.sktServer.Accept requestID
    ) t4 g0 |' i8 G% C; ?End Sub
    ' T/ x' c, R9 f/ T3 p2 N. g: F5 ?7 z; O; f7 w! S
    Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)& `" h: U" V1 H8 y: R( k' K
        Dim Buffer As String
    9 |  ?7 H1 `" g) g9 B! W    Me.sktServer.GetData Buffer
    * {- z2 _6 p: \( I" L0 _' e6 A    Me.txtReceive.Text = Buffer! O6 q9 V' c3 P
    End Sub* k4 }* e6 c0 V9 T. K) H5 z
    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-7-18 02:41 , Processed in 0.351562 second(s), 49 queries .

    回顶部