数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
7 d7 `9 b, o. L" r/ {1 R7 F
) I' }8 H: L) u& m
Private Sub cmdListen_Click()
6 F0 J1 I# E7 _* S: B7 i& n
Me.sktServer.Listen
, o: h A) K( c2 M2 F+ D( P) `0 O
End Sub
/ D/ {8 i( j* o+ Z
! l: Q0 @1 H! U' S
Private Sub cmdSend_Click()
! @' A1 W$ L, D& ^
Me.sktServer.SendData Me.txtSend.Text
8 ?, _7 X4 g! W8 [7 ?
End Sub
2 S0 K# f( |( i p3 g9 o& M$ U7 u
# b. ^" G* {" D- _$ W
Private Sub cmdDisconnect_Click()
" x0 M6 O" F+ \: `% I
Me.sktServer.Close
6 J8 G. g' Y# h- H8 ~1 ^# {+ w, O
End Sub
- [4 Q* B: @# G6 V5 ~
# H0 H# N/ v5 `9 B5 I3 {/ _
Private Sub Form_Load()
4 T, B" a. O; H* ~7 H0 l
1 x R( b+ z# P* _2 X1 c
End Sub
' c' E8 O9 d/ J' ~6 {& P# d1 u
) R- u& q# U5 `+ }
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
! {/ X5 |- N$ n. p: Q8 _0 V, Q
Me.sktServer.Close
" H8 V6 X. `( j* i0 |
Me.sktServer.Accept requestID
9 C) C& @9 x: H) g9 x# S# F2 w
End Sub
3 }1 t+ u, |0 o8 ]+ h
/ h* u1 _8 p' Q, K
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
& y* o$ b7 } j" ^7 J5 W$ ~
Dim Buffer As String
w! G% ~( D- j5 G9 \. S
Me.sktServer.GetData Buffer
) K% S% @3 Z/ I( }, _
Me.txtReceive.Text = Buffer
- K* r1 y7 B# ^" Y
End Sub
- N e- U7 R- }( \
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5