QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7272|回复: 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
    ( H1 B' e; i! N: m* g5 b! G) r4 m' @, |8 ]) P
    Private Sub cmdListen_Click()3 T: Y" q* i) F, {" t. A1 L! K3 \
        Me.sktServer.Listen
    ( E- n0 ^' Y7 _3 Z8 B' z  E9 u; sEnd Sub- O3 f5 x4 |4 ~, K0 m# E" w+ T. T

    - ~. @4 [& Q% q' X1 A6 I6 bPrivate Sub cmdSend_Click(). P1 S0 {! v: v2 n5 n/ O  Q# E; D
        Me.sktServer.SendData Me.txtSend.Text
    8 R2 J( {9 _: o/ r* k' KEnd Sub
    1 i0 I  \+ T" O0 A! x5 x
    # x  ^! N8 G$ ^# B4 wPrivate Sub cmdDisconnect_Click()# d$ n$ k( i7 O; z9 _+ Q
        Me.sktServer.Close
    8 M0 k+ R" a: m" eEnd Sub: [: m- }- ?- |1 `) H+ ]

    + u! k5 s) x! k. Z3 ^& ^% OPrivate Sub Form_Load()
    ) C: m- L3 v! O  j4 ]2 i# J6 {
    ( I4 ~9 ~, w+ T0 L) {/ _8 FEnd Sub
    " ?! Q7 ~8 m. C' E& F! Q6 e' L0 i- v! o, ^" q" {5 l
    Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    * y% Q- G3 V" O    Me.sktServer.Close5 e4 I9 w7 n: U* t
        Me.sktServer.Accept requestID* L8 b3 L" P; k; c. m# Q
    End Sub
    5 I: R7 M+ b6 p8 ?; k$ W
    . `+ n& y. [% V0 j3 a1 O8 V6 ^Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    5 s  _* M, a) P- T/ S6 a9 J$ E    Dim Buffer As String1 o3 I, a8 d3 F1 K+ Y7 i
        Me.sktServer.GetData Buffer
    # u+ @% [; J9 I; l* i! J    Me.txtReceive.Text = Buffer5 Q0 q$ ?9 \) t% `! m! M! H( m# r' R
    End Sub
    - P5 N) S; Q" t, ^, n% ]/ \% ?
    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-24 22:18 , Processed in 0.426133 second(s), 49 queries .

    回顶部