QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7650|回复: 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
    # O+ |! s& k( J! @  r: O3 y
    # N4 ~# {8 n5 u" a  hPrivate Sub cmdListen_Click()
    / v4 O4 S  {6 [: D8 \" ~) o    Me.sktServer.Listen
    6 u0 R) |2 |# {, e$ _, NEnd Sub
    , v7 ~" |; k7 A  p+ u9 h% c4 t2 n6 B) I& k8 S
    Private Sub cmdSend_Click()
    1 w# E8 h% a+ ?' d1 a    Me.sktServer.SendData Me.txtSend.Text6 N+ Z6 u% r& l1 I# g2 C
    End Sub
    5 |" R7 m" U. N0 f- Y7 P; k. j6 B% Y
    Private Sub cmdDisconnect_Click()
    ; L! {; c7 ^! }( ?0 B, k    Me.sktServer.Close- {( ~1 d0 P3 t. x* _5 r
    End Sub
    6 r  r! E& C6 g8 ^" z" r) H* ?+ {
    , @+ ^' @8 m" r1 w' qPrivate Sub Form_Load()
    ) z# s, n6 O6 A8 q, o8 ~1 \& Y  ^
    End Sub9 k5 z$ [! C2 ]* W' Z& U" B

    5 V3 X  j+ `! N5 `$ v2 q: ?+ v2 _5 \Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    3 k' n; ~. [8 ?/ E/ ?; I4 M    Me.sktServer.Close2 ~+ }7 _2 x, `" Z
        Me.sktServer.Accept requestID  f8 V) \4 z" B3 g3 d- w* h: k
    End Sub( e+ v- B4 {, L2 w& S

    , {0 \* @5 M2 l' d: Q- X  tPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    . l) i4 B0 R/ y3 e. g    Dim Buffer As String) `- Q* ~- Y" P, @( p7 m; V4 {9 g# X
        Me.sktServer.GetData Buffer
    ! H0 ~" e4 u  P5 _, y$ q    Me.txtReceive.Text = Buffer
    2 ?  i- C: J8 d: s! q" u) sEnd Sub* Y. T' D  T, [7 }) d9 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-4-14 18:57 , Processed in 0.409408 second(s), 50 queries .

    回顶部