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

¹ØÓÚVBÁ½¸öÊý×éÏ໥¸³ÖµÎÊÌâ - VB / »ù´¡Àà

ÕâÀïÏÈлл¿´ÌùµÄ¸÷λ¡£ÒòΪ˵µÄ¶«Î÷¿ÉÄÜÓеã¶à¡£Ï£Íû´ó¼ÒÌåÁ¡£²»Óø÷λ¶¥ÌûÁË¡£ÎÒÖ»Ïë¿´ÓÐÓö«Î÷¡£Ð»Ð»¸÷λ¡£
ÎÒÏëдһ¸ö¾ä±úµÄ±È½Ï¡£µ«ÊÇдµ½¾ä±ú´¢´æµ½Êý×éºóÓÐЩ²»ÖªµÀÈçºÎдÁË¡£Çë½Ìһϴó¼Ò¡£
ÎÒÓÃÁËEnumWindowsµÄEnumWindowsProcÀ´µÃµ½Ö¸¶¨µÄ´°¿ÚÀàµÄ¾ä±ú¡£¾ä±úµÃµ½Ð´ÈëÊý×éa()È»ºóÔÚEnumWindowsProcÓÃx=x+1À´redim a(1 to x)È·¶¨ÁËÊý×éa()µÄ´óС¡£È»ºóÎÒ½¨Á¢ÁËÒ»¸öÊý×éb()È»ºóÈ·¶¨Ò»¸öÖµy¡£ÖØÐ¶¨Òåb()Ϊb(1 to y)È»ºóÏë°Ña(x)Êý×éÀïÏàÓ¦µÄÖµ¸øb(y)£¬ÒòΪ2¸öÊý×é¶¼ÊÇ´Óϱê1¿ªÊ¼µÄ¡£¼ÙÈçy=3ÎÒ¾ÍÏë³ÌÐò°Ñb(1)=a(1),b(2)=a(2),b(3)=a(3)È»ºóa(x)Öжà³öÀ´ÆäËûÖµ²»Òª¡£È»ºóÀûÓÃb(y)Àï´æµÄÖµ¸úa(x)ÖжÔӦλÊýµÄÖµ±È½Ï¡£²»Í¬¾Í¶Ô¾ä±ú·¢³ö¹Ø±Õ¡£¾ÍÊÇÏë°Ña(x)Àï¶à³öb(y)µÄ¾ä±ú¸ø¹Øµô¡£ ÎÒ¾õµÃÒ²¿ÉÒÔx-yºó°Ñ¶àÓàµÄ¸öÊý¾ä±ú·ÅÈëc(1 to x-y)Ö±½Ó¶Ôc(1 to x-y)ÀïµÄ¾ä±ú¶¼·¢Ë͹رա£´ó¼Ò¿´ÄĸöºÃʵÏ־͸øµã´úÂë¡£¸´ÖÆÄÚ´æµÄAPIÓÃÁËϺÃÏñдµÄ²»¶Ô¡£ÀÏÊDz»ÐС£¾õµÃÂé·³µÄ¸ø¸ö˼·¡£°ÑÓÃʲôAPI»òÕßÔõôд¸³ÖµÑ­»·´ó¸Å˵ÏÂлл¡£
Ö÷ÒªÊǰÑa(x)ÀïµÄÖµ¶ÔÓ¦µÄ¸øb(y)°ÑÎÒÄѵ½ÁË¡£ÒòΪEnumWindowsProcÊÇÿ´Î¶¼ÔËÐеġ£Ïñ¸öÑ­»·¡£ÎÒ²»ÖªµÀÕâ¸öÊDz»ÊǽÐÖ¸Õ롣ϣÍûÄÜÀí½âÇå³þµÄ¸÷λ½âÊÍһϡ£×ÔѧµÄVB»ù´¡²»ÐС£ÔÚEnumWindowsProcÀï°Ña(x)ÀïµÄÖµ¶ÔÓ¦µÄ¸øb(y)ÎÒ¾õµÃ²»·½±ã¡£µ«ÊÇÔÚfromµÄ´úÂëÀïÓÖûÓа취ֱ½ÓÒýÓõ½Ä£¿éEnumWindowsProcÀïµÄÊý×éa(x)b(y)¡£Ï£Íû»áµÄÅóÓÑÒ²½ÌÎÒÏ¡£²»¶à啰àÂÁË¡£´úÂëÌù³öÀ´¡£
FORMÀïµÄ´úÂ룺
VB code:
Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True
'call the Enumwindows-function


Ïà¹ØÎÊ´ð£º

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

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

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

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
......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì

ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......

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

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ