VBÖи÷ÖÖÊý¾ÝÀàÐÍת»»º¯Êý
1. ¸÷ÖÖ½øÖÆ×ª»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
¸÷ÖÖ½øÖÆ×ª»»º¯Êý
¡¡¡¡Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,Òò¶øÒ²³ÉΪ¼ÆËã»úµÄ³£Óñíʾ·½·¨.
¡¡¡¡VBÖÐÉæ¼°µ½µÄÊý¾Ý½øÖÆÖ®¼äµÄת»»º¯ÊýÖ÷ÒªÓÐÈçϼ¸¸ö:
¡¡¡¡Hex º¯Êý: ·µ»Ø´ú±íÊ®Áù½øÖÆÊýÖµµÄ String;
¡¡¡¡Oct º¯Êý: ·µ»Ø´ú±íÒ»ÊýÖµµÄ°Ë½øÖÆÖµµÄVariant (String);
¡¡¡¡Cintº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³É-32,768 ÖÁ 32,767µÄÕûÐÍ;
¡¡¡¡CLngº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³É-2,147,483,648 ÖÁ 2,147,483,647µÄ³¤ÕûÐÍ;
¡¡¡¡Cdecº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉDecimal Êý¾ÝÀàÐÍ;
¡¡¡¡CDblº¯Êý: Ç¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉDouble Êý¾ÝÀàÐÍ;
¡¡¡¡ ÒÔÉÏÕâЩº¯ÊýÊÇ×î»ù±¾µÄ¼¸¸öÊý¾Ý½øÖÆÖ®¼äµÄת»»º¯Êý,ÆäÖÐÒÔǰÈý¸öº¯Êý×î³£ÓÃ,Ò²×îÓÐÓÃ.´ÓÉÏÃæ¼¸¸öº¯ÊýÎÒÃÇ¿ÉÒÔ¿´µ½,VBÖÐûÓÐΪÎÒÃÇÌṩרÃŵĺ¯Êý¹©ÎÒÃǽ«±í´ïʽ»òÊÇÊý¾Ýת»»³ÉÊ®½øÖƺͶþ½øÖÆ,²»¹ýÊ®½øÖƵÄת»»ÎÒÃÇ¿ÉÒÔͨ¹ýCintº¯ÊýÇáËÉÍê³É,¶ø¶þ½øÖƵÄʵÏÖÎÒÃÇ¿ÉÒÔͨ¹ý¶þ½øÖƺͰ˽øÖÆ,Ê®Áù½øÖƵĹØÏµÇáËÉת»».
¡¡¡¡ ÏÂÃæ¼¸¸öÀý×ÓΪHexº¯ÊýºÍOctº¯ÊýÒÔ¼°Cintº¯ÊýµÄʵÀý:
(1).¡¡ A= hex(5)¡¡·µ»Ø5;(2).¡¡ B=hex(10)¡¡·µ»ØA(3).¡¡ C=hex(23)¡¡·µ»Ø17(4).¡¡ D=oct(5)¡¡¡¡·µ»Ø5(5).¡¡ E=oct(10)¡¡·µ»Ø12(6).¡¡ F=oct(23)¡¡ ·µ»Ø27(7).¡¡ G=Cint(&H17)¡¡·µ»Ø23(8) .¡¡ H=Cint(&O12)¡¡·µ»Ø10
¡¡¡¡ ÒÔÉÏÕâЩº¯ÊýµÄÓ¦ÓñȽϼòµ¥,¾Í²»¶à˵ÁË,ÖµµÃÒ»ÌáµÄÊÇHexº¯ÊýºÍOctº¯Êý·µ»ØµÄ¶¼ÊÇ×Ö·û´®,Èç¹ûÊÇÏ뽫ʮÁù½øÖÆ»òÊǰ˽øÖƵÄ×Ö·û´®±äÁ¿×ª»»³ÉÊ®½øÖÆ,¿ÉÒÔ°´ÈçÏ·½·¨½øÐÐ:
¡¡¡¡C=”17”¡¡¡¡¡¡17ΪʮÁù½øÖÆÊýÖµµÄString
¡¡¡¡C=”&H” & C
¡¡¡¡Ic=Cint(C)¡¡¡¡·µ»Ø23
¡¡¡¡2. ×Ö·û´®ºÍÊý×Öת
Ïà¹ØÎĵµ£º
Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
Õâ¸öÊ ......
VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
ÌâÍâ»°£º
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) ǰÁ½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......
Ò»°ã»áʹÓÃWINDOW APIµÄÇé¿ö£¬ÊµÔÚÊÇÒòΪVB±¾Éí²»ÌṩijЩ¹¦ÄÜ£¬µ«ÊÇ£¬³ÌʽËù
ÐèÓÖ²»µÃ²»È»£¬ÀýÈ磺¶ÁÈ¡RegistryÄÚµÄ×Ê
ÁÏ£¬VBÖ»ÌṩSaveSetting¡¢Getsetting µÈ
ϵÁеÄÖ¸Áµ«ÊÇËüÖ»ÄܶÁÈ¡ÌØ¶¨µØÇøµÄÖµ£¬Òª¶Á¡¢É¾¡¢¸ü¶¯ÆäËûÇøÓòµÄֵʱ£¬¾ÍÎÞ
·¨
ʹÓá£ÔÙÈ磺×Ðϸ¿´Ò»¿´Combo BoxµÄEvents£¬ÆäÖÐ ......