数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
+ E, O$ k# A( n& U
6 ?- z+ s7 o9 z3 C
Private Sub cmdListen_Click()
* F% W/ Y/ u3 X& L1 O
Me.sktServer.Listen
5 ` _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. N
End Sub
. _' k" M+ `5 Y/ x
+ r# O; E( a8 N% M+ ^4 G
Private 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$ j
Private 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 N
End 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 Buffer
3 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