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

vb shellÃüÁî - VB / »ù´¡Àà

formatdb -i ecoli.nt -p F -o T dosϵ÷ÓóÌÐòµÄÃüÁîÊÇÕâÑùµÄ
ÎÒÓÃvbд
Private Sub Command1_Click()
Shell "C:\bin\forb.exe -i ec0li.nt -p F -o T ", vbNormalFocus
End Sub
ÕâÑùÈ´Ö´Ðв»ÁËÊÇʲôÎÊÌ⣿´ó¼Ò°ïÖúÏ£¡C:\bin\forb.exeÕâ¸ö³ÌÐòÊÇ´æÔÚµÄ
Ã²ËÆÓÐЩ²ÎÊýÒª¼ÓË«ÒýºÅµÄ¡£±ÈÈçÄãÄǸöec0li.nt£¬Ó¦¸ÃÊǸöÎļþ°É¡£

½«ÃüÁî·Åµ½.batÎļþÀï,shellÖ´ÐдËbat¼´¿É

µ«ÊÇÕâÑù×ö²»ÐУ¬ÎҵIJÎÊýµ½Ê±ÎÒÓÃÎı¾¿òµÄÖµ´ø½øÈ¥µÄ£¡ ec0li.ntÕâ¸öÊÇÎļþ
 -i Ñ¡ÔñÎļþ
 -p forb.exeµÄÒ»¸ö²ÎÊý
 -o Ò²ÊÇ
µ½Ê±-i -p -oµÄ²ÎÊýÎÒÓÃÎı¾¿òÖµ´øÈëÔËÐеģ¡
ÕâЩ¾ßÌåÔõô×öÄØ£¿

ÒýÓÃ

Ã²ËÆÓÐЩ²ÎÊýÒª¼ÓË«ÒýºÅµÄ¡£±ÈÈçÄãÄǸöec0li.nt£¬Ó¦¸ÃÊǸöÎļþ°É¡£

ÊDzÎÊý µ«ÊÇÕâЩ²ÎÊý´øÈëÔËÐеģ¬Äܲ»ÄܾÙÀýһϣ¿

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

ÕâÑùÊÔÊÔ£¬ºÇºÇ£¬Äã·¢µ½vb.net£¬¸øÄãÒÆÌùµ½vb6£¬½ñÌì·¹ý£¬¾ÓÈ»»¹Ã»½â¾ö£¬Ë³ÊÖ»ØÒ»ÏÂÄãµÄÎÊÌâ¡£
VB code:

Private Sub Command1_Click()
Shell "cmd /c C:\bin\forb.exe -i ec0li.nt -p F -o T ", vbNormalFocus
End Sub



Ҫѧ»áËÑË÷£¬ºÜ¶àÈËÎʹýÕâ¸öÎÊÌâµÄ£¬ÀýÈ磺
ÈçºÎÔÚvbÖÐÔËÐÐdosÃüÁî

ÒýÓÃ

ÕâÑùÊÔÊÔ£¬ºÇºÇ£¬Äã·¢µ½vb.net£¬¸øÄãÒÆÌùµ½vb6£¬½ñÌì·¹ý£¬¾ÓÈ»»¹Ã»½â¾ö£¬Ë³ÊÖ»ØÒ»ÏÂÄãµÄÎÊÌâ¡£
VB code

Private Sub Command1_Click()
S


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

¹ØÓÚ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ºÅ