数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
4 L* s4 w& D6 R5 G! l" j: Z' D
6 B8 k: J3 _" ?) W; E
Private Sub cmdListen_Click()
2 l8 E" G/ `3 C% p7 U; A& i: U
Me.sktServer.Listen
6 g s( W! d1 N3 p7 G4 c
End Sub
7 _8 z6 W; [' _9 S
- P9 c* b' e0 Q- o4 D1 y
Private Sub cmdSend_Click()
" Y1 k6 ], P9 F- Y, k! S" f
Me.sktServer.SendData Me.txtSend.Text
: v) S! g6 }% }1 R. ]6 e; ^
End Sub
1 r% F5 |/ F" o& ]* b, [
0 H# {2 ?# x# ^6 h% i7 N. H. C
Private Sub cmdDisconnect_Click()
5 T) |% [" ~1 A/ |+ H
Me.sktServer.Close
" E! d6 x! t! v! `
End Sub
- k# l; y4 W9 X8 v
3 ^8 o8 E: L" J. {7 }* |
Private Sub Form_Load()
) `& j5 q. Q* |( n4 d1 f, O
: r2 r/ Y3 G8 e2 Q" K
End Sub
^8 g7 C& t4 V+ q8 J9 l6 m
5 N7 C; s$ C" d* L9 G- G
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
' B/ N3 S6 f8 g4 e& A
Me.sktServer.Close
* g0 Q& H: s9 s1 k" @8 L8 L2 H
Me.sktServer.Accept requestID
/ `$ o6 j, O" ^" O4 l
End Sub
. ]! t$ q0 D( Z' @. ` G
7 ^4 S X; r" H/ U3 x3 E
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
1 }' r' P7 i+ w
Dim Buffer As String
% u+ L. ~7 D& y" x6 A- G
Me.sktServer.GetData Buffer
( q! C, u9 N( c+ h9 S
Me.txtReceive.Text = Buffer
% h( M7 p: j/ ^/ J' e) B+ |
End Sub
4 _% N5 a6 n/ D0 r: ~8 d. Z& T# f
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5