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ÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......