Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB WINSOCK¿Ø¼þÎÊÌâ - VB / »ù´¡Àà

ÎÒ¸Õ½Ó´¥VBÍøÂç±à³ÌÕâ¿é£¬ºÜ¶àµØ·½²»Ì«¶®£¬Ð´ÁËÕ⼸ÐдúÂ룬³öÏÖ¡°ËùÐèÊÂÎï»òÇëÇóµÄ´íÎóЭÒé»òÁ¬½Ó״̬¡±Õâ¸ö´íÎó
Ô´´úÂëÈçÏ£º
·þÎñÆ÷¶Ë £¨TCPµÄ£©
Private Sub Form_Load()
'½« LocalPort ÊôÐÔÉèÖÃΪһ¸öÕûÊý¡£
'È»ºóµ÷Óà Listen ·½·¨¡£
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub
 
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
'¼ì²é¿Ø¼þµÄ State ÊôÐÔÊÇ·ñΪ¹Ø±ÕµÄ¡£
'Èç¹û²»ÊÇ£¬
'ÔÚ½ÓÊÜеÄÁ¬½Ó֮ǰÏȹرմËÁ¬½Ó¡£
If tcpServer.State <> sckClosed Then _
tcpServer.Close
'½ÓÊܾßÓÐ requestID ²ÎÊýµÄ'Á¬½Ó¡£
tcpServer.Accept requestID
End Sub
Private Sub txtSend_Change()
'ÃûΪ txtSend µÄ TextBox ¿Ø¼þÖÐ
'°üº¬ÁËÒª·¢Ë͵ÄÊý¾Ý¡£µ±Óû§ÍùÎı¾¿òÖÐ
'¼üÈëÊý¾Ýʱ£¬Ê¹Óà SendData ·½·¨
'·¢ËÍÊäÈëµÄ×Ö·û´®¡£
tcpServer.SendData txtSend.Text
End Sub
 Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
'Ϊ½øÈëµÄÊý¾ÝÉùÃ÷Ò»¸ö±äÁ¿¡£
'µ÷Óà GetData ·½·¨£¬²¢½«Êý¾Ý¸³ÓèÃûΪ txtOutput µÄ TextBox µÄ Text ÊôÐÔ¡£
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
 
¿Í»§¶Ë£º
Private Sub Form_Load()
  'Winsock ¿Ø¼þµÄÃû×ÖΪ tcpClient¡£
  '×¢Ò⣺Ҫָ¶¨Ô¶³ÌÖ÷»ú£¬¿ÉÒÔʹÓÃ
  ' IP µØÖ·£¨ÀýÈ磺"121.111.1.1"£©£¬Ò²¿ÉÒÔʹÓá°¼ÆËã»úÃû¡±ÈçÏÂËùʾ¡£
  tcpClient.RemoteHost = "20090101-0078"
  tcpCli


Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ