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.
δÍê´ýÐø
Ïà¹ØÎĵµ£º
VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......
VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔÀ´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......
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 ......
È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......
·´íÎóÀàÐÍ
·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
......