数学建模社区-数学中国

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

作者: 生于青春    时间: 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$ IPrivate Sub cmdListen_Click()
, V  n8 o; M1 x3 ^    Me.sktServer.Listen
' r2 f6 g# [2 a, ?- HEnd Sub4 `; 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' rEnd Sub
" s7 J# m' G, w/ a' @
* E% @( V& z+ L" gPrivate Sub cmdDisconnect_Click()8 N- D) r& a8 S6 ~6 T* e
    Me.sktServer.Close
( p9 T# G( n" A4 n6 pEnd 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" wEnd Sub, a& c# F- s% T2 q) o+ I, j

4 p3 u$ W- w- Q5 X3 i: a+ W7 k: ^4 TPrivate 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  `. `% xEnd Sub  [' N- f/ X, z* x





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