Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ÖÐ - VB / »ù´¡Àà

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

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

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

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

vb ÄÚ´æÒç³ö£¿£¿ - VB / »ù´¡Àà

ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
  ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôԭÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ