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

VBÖе÷ÓÃdosÃüÁî

ÎÒÏëÔÚÏëÔÚdosÖе÷Óá°tree¡±ÃüÁÏë´ïµ½ÈçÏÂÄ¿µÄ£º

tree f:\gyh /f>>list.txt

¼´°Ñf£ºÅÌϵÄgyhÎļþÖеÄ×ÓÎļþ¼Ð¼´ÎļþÐγÉÁбíÊäÈëµ½list¡£txtÖУ¬µ«ÊÇÕâ¸öÃüÁîÒªÇóµ±Ç°ÃüÁî±ØÐëÊÇÔÚf£ºÅÌÏÂÖ´ÐУ¬È磺

c:\>tree f:\gyh /f>>list.txt ÕâÑùÀ´Ö´ÐÐÊDz»Ðеģ¬Ôõô½â¾öÕâ¸öÎÊÌâ´ïµ½ÎÒÏëÒªµÄÄ¿µÄÄØ£¿

Çë¸ßÊÖÖ¸½Ì£¡£¡
 
ʹÓÃÅú´¦Àí°É£¡


ûÓÐÎÊÌâѽ£¬ÔÚcÅÌ·ûÏÂÖ´ÐÐ c:\>tree f:\gyh /f>>list.txt ,ÕýÈ·
µ½µ×ÓÐʲôÎÊÌâ

Åú´¦ÀíÕâôд£º
cd f:
tree f:\gyh /f>>f:\list.txt
±£´æÎªÅú´¦Àí.bat£¬·ÅÔÚvb³ÌÐòĿ¼ÖС£

vb¼Ó¸ö°´Å¥£¬Ö´ÐÐÒ»¾ä£º
Private Sub Command1_Click()
Shell App.Path & "\Åú´¦Àí.bat"
End Sub

'f:\list.txt Êǽ«list.txt·ÅÔÚfÅÌ£¬Èç¹ûÏë·ÅdÅ̸ÄΪ tree f:\gyh /f>>d:\list.txt




Ô­À´²»ÓÃÄÇôÂé·³£¬Ò»¸öshell¸ã¶¨¡£


Private Sub Command1_Click()
Shell "cmd /c tree f:\gyh /f>>f:\list.txt ", vbHide
End Sub

¹Ø¼üÊÇlist.txtÅÜÄÄÀïÈ¥ÁË£¬ÕâÀïÊÇf£ºÅÌ¡£

Ò»¸öÀý×Ó£º lRet = Shell("cmd /c move /y c:\Oldlocation.doc d:\newlocation.doc",vbHide)

ÁíÒ»¸öÀý×Ó£º

Private Sub Command1_Click()
P$ = Environ$("WINDIR") + "\system32\cmd.exe /c mkdir c:\mynewdir"
Print P$
If Shell(P$) > 0 Then
Print "greater"
ChD


Ïà¹ØÎÊ´ð£º

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

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

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

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

¹ØÓÚVB.NETºÍMS ACCESSµÄÎÊÌâ

ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ