数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
" S! a5 E6 f& h- |* t
0 f- h: P/ v& U- `0 Z
Private Sub cmdListen_Click()
# U6 ~3 J. v0 M3 ^
Me.sktServer.Listen
# ~; J% L2 A# J( S: A Z9 r
End Sub
% W* I1 p! ? l
0 R' }# l+ P" e/ D
Private Sub cmdSend_Click()
, n; Y. W8 ?; O
Me.sktServer.SendData Me.txtSend.Text
3 C: m+ u5 T& F# O# y
End Sub
4 N& {& K, {! V
: z! q9 Y$ [7 D( m( L
Private Sub cmdDisconnect_Click()
, A+ o$ a' f5 b) q1 f
Me.sktServer.Close
0 A- ~8 h* ~7 R" A4 L
End Sub
/ ^0 p& d( G9 V
: i5 _8 s7 J/ Y8 G" M# B1 Z
Private Sub Form_Load()
2 C, x, r* N" k. ~" v9 v
& C7 s y7 a# M5 t9 t
End Sub
3 i/ S, \; t# z3 R- N, P8 x4 u
+ @: i0 p" y4 Q3 I* T# z1 F/ Q
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
2 H& y6 W P* P6 j7 H. z
Me.sktServer.Close
0 j9 {# Q( O7 E& J
Me.sktServer.Accept requestID
" ?- n/ q; j2 Y2 `/ A: w0 N
End Sub
, [1 T8 A) k: s' |3 y
8 n+ i" R! a+ p. L
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
9 u7 b# {' s v$ F! ~* y! Q
Dim Buffer As String
3 Q$ {6 U% w/ X2 ^
Me.sktServer.GetData Buffer
% @3 Q1 Z+ J2 J8 e
Me.txtReceive.Text = Buffer
- \, F5 V; H2 i' H
End Sub
0 Y- P7 q) B+ z2 g3 r) d2 d
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5