标题: 新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~ [打印本页] 作者: 生于青春 时间: 2013-1-3 20:13 标题: 新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~ Option Explicit 8 k6 C: W% _7 u, I6 f " l' b9 Y+ e4 PPrivate Sub cmdListen_Click()" n$ z0 T$ u8 Q
Me.sktServer.Listen$ U% T; o; ^) F! Z
End Sub ; { E+ S% D, p5 w/ L* q/ |. `7 B4 C1 r( l
Private Sub cmdSend_Click()+ p, R, T( }& j" v- E" c
Me.sktServer.SendData Me.txtSend.Text . ]( R) g0 H( O' u- `7 m1 jEnd Sub 3 a" K2 P( f6 O/ M% e& n, s# w" \0 G4 q' U) O) ?/ j0 [ s) O' W
Private Sub cmdDisconnect_Click()1 _' S5 W+ k" H+ B) d+ T4 G
Me.sktServer.Close , m8 E* N( @! s1 ~2 REnd Sub: Q9 `% R1 m4 m- y7 n# t2 H; ?
" R( \2 ]+ }1 o# m' x3 MPrivate Sub Form_Load()+ }& o% J5 i4 l, U/ [
3 h* O; F) L- J. }- F$ n
End Sub # o- s4 d- Q9 E, I' y 6 p0 i; J/ p* {Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)* }: Z$ Z" k& a7 N! T, ?; X
Me.sktServer.Close' D% N$ Z. |7 J
Me.sktServer.Accept requestID1 r) o6 t8 h9 j% P% v7 D- @
End Sub! R s" l: B. o
/ Z" _# g1 Y* M1 E( Z1 v; E( sPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long) / S/ |( R- w; _6 ~4 u Dim Buffer As String " U Y, l9 s8 g! [8 A8 O Me.sktServer.GetData Buffer1 v5 t# e/ U) d: a" j
Me.txtReceive.Text = Buffer: o# b* u; r! x/ p
End Sub 6 U. L9 _7 Y5 V