数学建模社区-数学中国

标题: 新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~ [打印本页]

作者: 生于青春    时间: 2013-1-3 20:13
标题: 新手,自学,紧急求助!求大神帮忙注释一下!谢谢啦~~
Option Explicit
" _8 L% H7 A) B/ k& i4 n/ x
! ~# B3 w( T9 z- q0 k" cPrivate Sub cmdListen_Click()
, j- V8 D: j" t: @& n+ _, q8 K7 d    Me.sktServer.Listen
  w0 Q$ z5 n& y8 P6 z4 m6 PEnd Sub  }* S3 @8 T/ T4 Q4 _* [

; i2 Q% w( h' qPrivate Sub cmdSend_Click()
1 W6 G8 R7 E* f* q, E% T    Me.sktServer.SendData Me.txtSend.Text
) X8 R# _4 G8 }9 o. G1 V7 ~* yEnd Sub- o  z  u' q7 ~  V  d
5 p, o- r! `4 Q$ P& C
Private Sub cmdDisconnect_Click(): \8 T7 B. c5 r% i; u' d# x6 x
    Me.sktServer.Close/ u+ v2 g2 J, s; l8 Y) [# I
End Sub9 i- K  u& B5 M1 E+ I. e% [
) e6 K! o2 ^6 i' G% z; |5 t
Private Sub Form_Load()
+ e& B' w8 d0 Z9 F
5 I+ i, o% w% ]6 B2 D* T, _4 ^: xEnd Sub; i* _: }. m5 }3 P, l$ N
: X1 D8 L) E& N& d5 b
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)' G$ B5 O3 f3 f+ Y+ t$ R
    Me.sktServer.Close
$ ?9 _; W# [: f( R% S( g    Me.sktServer.Accept requestID
# b- t& C1 W9 y6 f9 q  U$ SEnd Sub6 u. O. _! ~8 i) L7 g

3 H% W- w" a" qPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
/ F% H0 L1 Z- H$ e3 ?    Dim Buffer As String
# ]! K0 R  G0 D# @! X    Me.sktServer.GetData Buffer3 [3 T1 i' {8 c" E
    Me.txtReceive.Text = Buffer# h& d# c) Z' S- f
End Sub
. E! ~* Q7 Z) r( l! A9 M




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5