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

VBÖнçÃæÊý¾Ý¼´Ê±¸üÐÂÎÊÌâ

ÒÀ´Î´ò¿ª2¸ö´°Ì壬ÔÚµÚ2¸ö´°ÌåÖвÙ×÷ÐÞ¸ÄÒ»Ìõ¼Ç¼£¬µ±Í˳öµÚ2¸ö´°Ìåʱ£¬µÚÒ»¸ö´°ÌåÓëÖ®¶ÔÓ¦µÄÊý¾ÝËæÖ®±ä»¯¡£
·½·¨1£º´°Ìå2Í˳öʱ½«Êý¾Ý±£´æµ½Êý¾Ý¿âÖУ¬´°Ìå1ÖØÐ´ÓÊý¾Ý¿âÖжÁÈ¡Êý¾Ý
·½·¨2£º´°Ìå2Í˳öʱ½«Êý¾Ý¿âдµ½´°Ìå1¶ÔÓ¦µÄ¿Ø¼þÖÐ


Á½¸öÁ¬µ½Ò»¸ö¿â£¬ÔÚµÚ¶þ¸ö´°Ì幨±Õʱ£¬Ë¢ÐµÚÒ»¸ö´°Ìå¾ÍºÃÁË¡£ÎÒÊÇÕâôÏëµÄ£¬Ã»ÊÔÑ飬¥Ö÷¿ÉÒÔ×Ô¼ºÊÔÑéһϡ£¿ÉÒÔÓÃdatagrid ÎÒ¾öµÄÕâ¸ö¿Ø¼þÓõ½Äã˵µÄÎÊÌâÉÏÓ¦¸ÃûÓÐÎÊÌâµÄ¡£ÄãÔÙÊÔÊÔ£¡

Leftie·½·¨2£º²»·ûºÏÒªÇó£¡

´°Ìå2Í˳öºó£¬´°Ìå1ÒªÖØÐ´ò¿ªÊý¾Ý±í£¨¼´ÖØÐ²éѯ£©¡£


¾ÍÊÇÊý¾Ý½»»»Âï!
1.Êý¾Ý¿É·ÅÔÚÄãÏëµ½µÄÈκεط½:Êý¾Ý¿â,±¾µØÎļþ,¹«¹²±äÁ¿,´°ÌåµÄij¸öÊôÐԵȵÈ;
2.Ñ¡Ôñ´¥·¢»úÖÆ:2´°Ì幨±Õʱ,1´°Ìå³ÉΪµ±Ç°´°Ìåʱ,Óû§ÊÖ¹¤Ë¢ÐÂʱ,¼ÆÊ±Æ÷µÈµÈ;


µ±2¹Ø±Õʱ£¬Çå³ý-ÖØÐ¼ÓÔØÊý¾Ý

¹Ø¼üÊÇ2 .SHOW 1 
Éè³ÉģʽÏÔʾ ÔÚ.SHOW 1ºóÃæ µÄÓï¾äÖÐÔÙË¢ÐÂÊý¾Ý

ÔÚ´°Ìå2Öж¨ÒåÒ»¸öʼþ
public event ʼþÃû()

ÔÚ´°Ìå2µÄunloadʼþÀïÅ׳ö´Ëʼþ
raiseevents ʼþÃû




ÔÚ´°Ìå1Öж¨Òå
private withevent oForm2 as Form2

ÏÔʾ´°Ìå2µÄ´úÂë
set oForm2=new form2
oform2.show vbmodal,me
set oform2 =nothing

ÔÚ´°Ìå1µÄ
oForm2_ʼþÃû
µÄ¹ý³ÌÀï,дˢдúÂë


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

¹ØÓÚ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
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ