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
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......