QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7734|回复: 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# d/ R# I1 P3 W) Z5 N

    + |. o; D+ H( X$ {Private Sub cmdListen_Click()
    . `7 l! F1 A3 F1 p    Me.sktServer.Listen
    ; K4 ^0 S  A6 m9 K  X1 J% aEnd Sub
    5 }$ m2 F6 M- y" _( V0 P5 L! @9 Y0 P) \  b6 _8 W6 U- j: L& L
    Private Sub cmdSend_Click()2 X, }2 c- Z& K
        Me.sktServer.SendData Me.txtSend.Text# ~7 S$ b. B. `! k$ R7 N% s  R
    End Sub
    ( c* A9 \1 Y5 D; j
    ' |& A4 j; S9 C5 D. U3 q" V! P5 s4 dPrivate Sub cmdDisconnect_Click()
    8 r  X% F3 G6 \+ }5 v5 O& j    Me.sktServer.Close
    8 j8 J9 c1 z5 _: ?: u$ g+ W. kEnd Sub% \0 q7 s3 W/ \
    ! h* T0 p% v- M, I. c5 [0 d
    Private Sub Form_Load()
    1 i( G% a+ A9 j; h1 ^1 c. C  Y$ e0 A! I1 U8 \' }- \
    End Sub# a" V0 B- m$ a: B. [: N1 M9 O
    7 y3 \3 i& }! S9 V6 [
    Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    1 S/ C" s- H; r! I/ q# }$ m    Me.sktServer.Close9 }; G  I& ~- B' r8 R" k1 O0 ]$ I
        Me.sktServer.Accept requestID
    ' o, N1 g! x1 p% t6 g1 A% UEnd Sub
    - J" |, n. M5 x  U% s1 X. a! t8 Z! D3 X$ x
    Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)1 R  `' Q" {; o$ x; I7 `
        Dim Buffer As String
    * |: K5 D' l5 T: ?: M    Me.sktServer.GetData Buffer
    : b8 B- [& C3 T" c$ a    Me.txtReceive.Text = Buffer
    ' Q  L5 y! [7 tEnd Sub, {3 o% _  N7 [' W: Q- p
    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 01:21 , Processed in 0.405473 second(s), 50 queries .

    回顶部