数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
/ q S2 [2 u. [( V% c& K; u- c
' Y' H) G! i) U9 p' O Q6 Z$ I
Private Sub cmdListen_Click()
, V n8 o; M1 x3 ^
Me.sktServer.Listen
' r2 f6 g# [2 a, ?- H
End Sub
4 `; R1 Y g5 A; n* ^& I' K
3 a# T, |3 O% H( j# w
Private Sub cmdSend_Click()
3 [5 V; r; ?0 z# I& j0 V
Me.sktServer.SendData Me.txtSend.Text
+ }' m& Q1 I3 a. u2 r' r
End Sub
" s7 J# m' G, w/ a' @
* E% @( V& z+ L" g
Private Sub cmdDisconnect_Click()
8 N- D) r& a8 S6 ~6 T* e
Me.sktServer.Close
( p9 T# G( n" A4 n6 p
End Sub
1 f& F, u/ Z+ Y% ?# {
2 P! x* u1 K2 R! P: _3 P3 |
Private Sub Form_Load()
C! ]6 A! e- P+ V
* g% A+ o: Q- ~3 G1 c
End Sub
; m5 A: Y l: u7 M; C7 y! }
9 b% ~7 G1 U: t& D9 L2 V3 @
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
( N6 [. S1 \' h2 M
Me.sktServer.Close
) v8 o: R: G: `- F
Me.sktServer.Accept requestID
. l0 s- R- F" w
End Sub
, a& c# F- s% T2 q) o+ I, j
4 p3 u$ W- w- Q5 X3 i: a+ W7 k: ^4 T
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
+ m# q" Y% ]$ w3 {
Dim Buffer As String
; d8 b e! I8 S" q4 P( z
Me.sktServer.GetData Buffer
7 [( t T3 a1 m8 Z3 S- ?7 [
Me.txtReceive.Text = Buffer
m* O; n7 z: W `. `% x
End Sub
[' N- f/ X, z* x
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5