数学建模社区-数学中国
标题:
新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~
Option Explicit
1 V0 a6 s" E1 ~
' z8 g5 Q( @5 Z% L( c1 X( N
Private Sub cmdListen_Click()
8 v& m( S0 ~9 l$ n8 n s( ]1 g
Me.sktServer.Listen
9 {4 ?, C) E5 M+ ^5 |
End Sub
0 T5 q+ M ]/ }+ Q! w( i. z
: G6 {7 X1 p9 l
Private Sub cmdSend_Click()
" g M* O+ c, V( k. u& Y
Me.sktServer.SendData Me.txtSend.Text
: U% C0 ], [# A* |6 H5 y' m# ?1 D
End Sub
. X" u S! l0 K6 L7 a7 _0 T( m" i M
7 |' ~: ?; U* y& L/ z
Private Sub cmdDisconnect_Click()
% A* P2 |( S' a6 Y; J# U* G
Me.sktServer.Close
: D. C- B B' m0 m& u+ h2 ?6 @5 _
End Sub
8 f+ G7 ?4 y5 L: z; ]" t
. O8 X: ?! Q' l* Q K h
Private Sub Form_Load()
. b# P# c$ [1 b5 q: A7 @
( w- m1 h* W7 Z6 \
End Sub
" F9 n9 R7 p% z( ~& b9 a, z" J
: q0 B: g( V) O7 ^3 N! z$ D |
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
' o0 s' t4 E! T- w6 D2 t: h
Me.sktServer.Close
* S2 C! `: y/ r8 a4 }
Me.sktServer.Accept requestID
' l3 E: A/ g$ k: a1 S" N& d _
End Sub
9 X9 z# O. F1 K K: V8 Q( M! A
) L5 h' W/ Y1 R8 a, F; e
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
2 w- ^6 \: Z6 `% ~
Dim Buffer As String
) P/ n) K( c# c6 v6 m, D2 H9 A
Me.sktServer.GetData Buffer
" C) M' B! }( A4 `2 i0 f
Me.txtReceive.Text = Buffer
1 M1 U& I& Z8 A7 ]
End Sub
) k( f! j! B. _5 u% F
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5