QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7863|回复: 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
    9 Y/ Q5 w: z2 A3 v) B! h/ G0 B. K2 `# y" V( C& ^; Z
    Private Sub cmdListen_Click(): I+ Y' X# h) s! T0 ], w/ b
        Me.sktServer.Listen5 Z- k( @! |( A# w- S3 L
    End Sub
    " s. |4 h  t: W0 s, W. Y8 o: u
    ( Y7 B& b5 t; k. h* aPrivate Sub cmdSend_Click(): J6 S! A: |8 J. l+ @& X* ]& V
        Me.sktServer.SendData Me.txtSend.Text
    - t0 J/ W# Y: SEnd Sub
    " J# ~+ A; x& @5 `  Q/ w1 L6 o8 O4 w- G: M
    Private Sub cmdDisconnect_Click()
    1 L# N' N5 m: Q% \    Me.sktServer.Close
    ' p0 S1 K4 i3 D6 N$ h: A: qEnd Sub
    " v  K. [, R1 [' x0 j5 ?: N, ]2 v% g; J/ ?$ [& T5 @* F+ d
    Private Sub Form_Load()
    5 H# f/ V) ]1 h+ V7 P
    - n+ D8 e( ?; V* V/ AEnd Sub5 V, |( e% s2 E* ?, p, W- a7 J1 b
    ; Y0 E( o$ ?- u9 x! |9 X
    Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    9 j; M, e# k( X+ q" g9 u    Me.sktServer.Close
    - p% i, m5 b4 e. @. d" u) Y    Me.sktServer.Accept requestID
    ! i' U( m: w& e- OEnd Sub
    / @/ J+ A' ]9 ]; v, D5 l8 h4 G: g. E: [. K, x
    Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    , |: U: ]& A, [. P) O    Dim Buffer As String
    # G, e/ D' o, L0 k. v( j9 Y$ E    Me.sktServer.GetData Buffer# n% J: w, Z& w/ a# z/ K) D& p
        Me.txtReceive.Text = Buffer
    6 t. T" z% J4 lEnd Sub, X& \: J& r9 s
    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:06 , Processed in 0.417463 second(s), 49 queries .

    回顶部