Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÖеÄת»»º¯Êý

Asc º¯Êý
     
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 – 32767¡£
×¢Òâ:AscB º¯Êý×÷ÓÃÓÚ°üº¬ÔÚ×Ö·û´®ÖеÄ×Ö½ÚÊý¾Ý£¬AscB ·µ»ØµÚÒ»¸ö×Ö½ÚµÄ×Ö·û´úÂ룬¶ø·Ç×Ö·ûµÄ×Ö·û´úÂë¡£AscW º¯Êý·µ»Ø Unicode ×Ö·û´úÂ룬Èôƽ̨²»Ö§³Ö Unicode£¬ÔòÓë Asc º¯Êý¹¦ÄÜÏàͬ¡£
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿Öƽ«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌض¨Êý¾ÝÀàÐÍ¡£
ÏÂÃæÕâЩÀàÐÍת»»º¯Êý,¿´ËûÃǵÄÓï·¨ÈçÏÂ:
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
±ØÒªµÄ expression ²ÎÊý¿ÉÒÔÊÇÈκÎ×Ö·û´®±í´ïʽ»òÊýÖµ±í´ïʽ¡£
·µ»ØÀàÐÍ
º¯ÊýÃû³Æ¾ö¶¨·µ»ØÀàÐÍ£¬ÈçÏÂËùʾ£º
º¯Êý      ·µ»ØÀàÐÍ        expression ²ÎÊý·¶Î§
CBool    |   Boolean     |    ÈκÎÓÐЧµÄ×Ö·û´®»òÊýÖµ±í´ïʽ¡£
CByte    |    Byte         |    0 ÖÁ 255¡£
CCur     |   Currency    |    -922,337,203,685,477.5808 ÖÁ922,337,203,685,477.5807¡£
CDate    |    Date       |    ÈκÎÓÐЧµÄÈÕÆÚ±í´ïʽ¡£
CDbl     |   Double       |    ¸ºÊý´Ó -1.79769313486232E308 ÖÁ -4.94065645841247E-324£»
                                          ÕýÊý´Ó 4.94065645841247E-324 ÖÁ 1.79769313486232E308¡£
CDec&


Ïà¹ØÎĵµ£º

vb Á¬½ÓAccess×Ö·û´®¡¢vbÁ¬½ÓDb2µÄ×Ö·û´®

DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......

VB/VBAͨÓ÷¾¶Ñ¡Ôñ¶Ô»°¿ò

Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......

vb Ëø¶¨Êó±êµ½Ä³Ò»Î»ÖÃ

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
   ......

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ Ç°ÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ