数学建模社区-数学中国

标题: 新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~ [打印本页]

作者: 生于青春    时间: 2013-1-3 20:13
标题: 新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~
Option Explicit
+ E, O$ k# A( n& U
6 ?- z+ s7 o9 z3 CPrivate Sub cmdListen_Click()
* F% W/ Y/ u3 X& L1 O    Me.sktServer.Listen5 `  _6 E( Z5 P9 v4 p
End Sub
  _; g/ J3 a/ i& z0 u5 e( Z7 q: G$ m4 {1 ?9 B, c4 Z- c2 D/ d8 [
Private Sub cmdSend_Click()
% C& \( V4 G. M/ _- i) C6 W    Me.sktServer.SendData Me.txtSend.Text
% s' _0 J; j7 u. NEnd Sub. _' k" M+ `5 Y/ x

+ r# O; E( a8 N% M+ ^4 GPrivate Sub cmdDisconnect_Click()" H; j5 P) C# i  q0 F2 \+ F3 `
    Me.sktServer.Close
# q% {' B6 w( W) G! |End Sub* C) ~) J+ ]1 J4 ]

7 v  i# d# C' t1 I$ jPrivate Sub Form_Load()' k1 M# f7 _6 R! g3 Y2 f
8 i4 g" i" R7 b+ B1 C
End Sub
/ e7 }% i6 P8 m5 p$ O' ^8 `  G
* h% B: G& u( }Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
# \) E9 U% |9 l$ C; Y    Me.sktServer.Close
* ]( r) ]4 ~+ ~4 w    Me.sktServer.Accept requestID
, R" V+ A0 d, M, y' @4 g7 NEnd Sub
* O+ C* N6 X% l4 H
) T6 V  F7 P/ }Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
  j2 r' ~$ s4 M3 }    Dim Buffer As String* C& \7 k/ k2 C* G/ Q
    Me.sktServer.GetData Buffer3 m4 c" \5 z- c6 V/ j6 W
    Me.txtReceive.Text = Buffer- v! v- O# K9 Y  {
End Sub
- T% `1 A  @9 l




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5