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. ×Ö·û´®ºÍÊý×Öת
Ïà¹ØÎĵµ£º
VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
  ......
ÉÏһƪÖÐÎÒÒѾ˵ÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æȡͼƬ£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔÄ¿Ç°Ö»ÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......
Dim rs As ADODB.Recordset
Dim sqlstr As String
'²éѯ
sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
rs = VScn.Execute("" & SqlSt ......
×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......
YXOnlineÒѾ½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......