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 ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
Óõ½µÄAPIÉùÃ÷£º
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......
Asc º¯Êý
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 &ndas ......
È«Ãæ¿ØÖÆ 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) ´ò¿ªÒÑ´æÔÚµ ......
×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îÔʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
²Î¿¼·½°¸£º
Èç¹ûÏë×öµ½¶à´ÎUND ......
VB6IDEMouseWheelAddin.dll
¾ÍÊÇÕâ¸öÄÜʹÄãÔÚVBµÄ´úÂë±à¼´°¿ÚÄܹ»Ê¹ÓÃÊó±ê¹öÂÖ£¬±à¼´úÂë¡¢²é¿´´úÂë¸ü·½±ã¡£
ÏÂÃæÏêÊö£º
1¡¢¸ø´ó¼ÒÒ»¸öÏÂÔصØÖ·£º
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exeÓÒ»÷½âѹ£¬ÔÙÓÒ»÷½âѹ£¬Õâʱ¾Í»á¿´µ½Ò»¸ödllÎļþ£¬Õâ¸ö¾ÍÊÇÎÒ ......