数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
7 c4 ?9 e. a4 Z) T! g+ j
: P( W& {5 x* ?' `8 P
Private Sub cmdListen_Click()
' K# I. V) ?- w. A* }: S) c
Me.sktServer.Listen
( A" y/ D! P7 y. v
End Sub
0 C5 @+ ` E% I' [5 G' N) g: s
& i' z- K$ K% C& [: y- D0 I
Private Sub cmdSend_Click()
8 L' Q( D+ c' A
Me.sktServer.SendData Me.txtSend.Text
( m' Z2 S m" Q/ G; y% |
End Sub
9 S+ \: u7 _ r% L0 @) C# x) J* T
1 L) X/ N" N+ O/ l$ d
Private Sub cmdDisconnect_Click()
3 Y+ Y$ \( d) x, z. X5 d
Me.sktServer.Close
7 m) S% L6 C( J3 s5 v
End Sub
4 Q6 V- W. [; T* `! F
n! g/ _$ z8 d- |; Q
Private Sub Form_Load()
5 Y4 ^) `2 _8 d) ]& S
, D1 N. o, | K( o; k5 Z" d3 ]
End Sub
# Y0 l3 x8 v$ c& r2 L, T9 I
$ j t1 C! W. E3 J6 M9 ?
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
8 u+ c& e- w( y; B; b/ d4 e" b, H
Me.sktServer.Close
5 z, Z, `$ x1 h$ a1 C3 x
Me.sktServer.Accept requestID
3 Y x( w+ z* U6 \: {0 J
End Sub
' U5 {3 r2 H/ V) T6 t
# O* Q) i% l7 H5 C: L
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
( R% B/ Z" I. J. q. e, M$ O
Dim Buffer As String
& K( n- t6 l8 X9 u* p
Me.sktServer.GetData Buffer
g# j Z+ w' f; n0 n3 {
Me.txtReceive.Text = Buffer
, |# p; P, g0 K, O7 A/ _
End Sub
- K' K2 }9 h1 D, |) f# w( K8 f
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5