数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
1 k5 {8 F2 v" _$ W& g c1 v8 R
/ O) t7 y2 F( _1 N6 V, I$ G! B9 G
Private Sub cmdListen_Click()
8 ~4 M2 q% v& |
Me.sktServer.Listen
! d! W- `) Z4 n! j
End Sub
9 }" j3 w7 {8 T5 s& y* r5 x/ Y
. j8 s: Q4 D" ?% |4 j
Private Sub cmdSend_Click()
+ O/ h0 O0 L0 F; ^$ s5 i- Y
Me.sktServer.SendData Me.txtSend.Text
/ s' F* J3 ?9 t2 {8 ~6 B) g
End Sub
* p% N1 G5 H9 Q, V
! V; V3 I9 C. m7 r6 ], a
Private Sub cmdDisconnect_Click()
' M: M/ {' q K, t0 S
Me.sktServer.Close
8 N; S- @# a* J- u
End Sub
; Q" c% k* g" l4 \/ _
& ^% j' y+ p% {1 s
Private Sub Form_Load()
% g7 e% v' O7 A1 h
8 J! X7 N5 C$ ^" E0 G1 q7 I
End Sub
% y5 P. e, ^1 o5 y, W
8 c" o/ e3 q) @, z" r3 X' i
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
6 a+ @- E6 g- p7 a
Me.sktServer.Close
4 V, T. e( J5 N+ c
Me.sktServer.Accept requestID
) ?' z: q( ~& D. n1 i: ]' d& o# `
End Sub
: B$ x( L O$ J0 C5 d4 O& Y
. G$ Y% w4 A% |+ u: H) z
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
- S+ p0 H: Q H1 ]' w' a- Y* h& H
Dim Buffer As String
2 s4 b: m' g) s; g; e/ F
Me.sktServer.GetData Buffer
2 B# W# ?5 f) x
Me.txtReceive.Text = Buffer
& d3 |; e& A2 I% {- [
End Sub
( F! D# v. `1 v1 m9 I, O
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5