数学建模社区-数学中国
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
[打印本页]
作者:
生于青春
时间:
2013-1-3 20:13
标题:
新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~
Option Explicit
4 j, ]# S# d0 G# U, f
% N7 f, e/ N1 J# ~ g
Private Sub cmdListen_Click()
1 X! a- C5 R! F4 R- j* S
Me.sktServer.Listen
% g# ], V/ B0 F( O
End Sub
4 P. o, i' c/ k8 Q$ [1 T" |
1 S3 @/ b* ~, Z& K: z' I
Private Sub cmdSend_Click()
( y: W9 l$ D% {5 W+ A7 q) Q. }
Me.sktServer.SendData Me.txtSend.Text
6 n- y- x8 q( a# n5 C
End Sub
' N: S: K# t& l9 d; A3 }( A1 T
; \# V; A! ?8 o
Private Sub cmdDisconnect_Click()
- B9 o. e# l" I. E" [
Me.sktServer.Close
2 U+ K( v8 z, n3 B0 G
End Sub
x0 U+ K! b6 o* T
' Z3 }1 z" a3 \% i, P% ^
Private Sub Form_Load()
" ^( M, w! S. U& K/ I9 n* C' |
2 o# X6 ?2 z ?0 {
End Sub
5 ]( m2 i+ I B) Y
. b4 T1 N) s# I: T
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
6 Q. m3 D! ]1 ~# i- }8 f7 j7 w1 V
Me.sktServer.Close
+ w. W, G5 \4 c# P
Me.sktServer.Accept requestID
) a( s2 t, N9 ]+ B/ I
End Sub
: B7 I/ w% [$ `1 ?* M" n2 Y" G z2 [
, }6 l, j; F5 _2 P( }) ]
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
4 v1 ^3 H p% @2 A) ?" N) e
Dim Buffer As String
1 @6 t* ^& t" {9 a! A
Me.sktServer.GetData Buffer
' |. {+ _5 p( j3 F$ `
Me.txtReceive.Text = Buffer
" D7 v; Y. }& F$ Y( b* r
End Sub
0 o. i# @ [; S8 G* e# P4 {2 `
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5