vb±ê×¼£¨ËÄ£©£º´íÎó´¦Àí
·´íÎóÀàÐÍ
·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔصĴ°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
·ÇëÇóʱ±àÒë
·ºǫ́±àÒë
·²¶»ñ´íÎó
·×îºÃÔÚ´úÂëÖзÅÈëÒ»¸öon errorÓï¾ä
·µ±³öÏÖ´íÎóʱ£¬Ê¹ÓÃon error goto£¬×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐÐ
·Ê¹ÓÃon error resume nextÓï¾ä£¬²»ÖжϴúÂëµÄÖ´ÐУ¬Ò²²»×ªÒƵ½±ðµÄ´úÂëÉÏÈ¥Ö´ÐУ¬¶øÊǺöÂԸôíÎó(×î¼òµ¥Ò²×îΣÏÕ)
Ïà¹ØÎĵµ£º
StrConvº¯Êý
·µ»Ø°´Ö¸¶¨ÀàÐÍת»»µÄ Variant (String)¡£
Óï·¨
StrConv(string, conversion, LCID)
StrConv º¯ÊýµÄÓï·¨ÓÐÏÂÃæµÄÃüÃû²ÎÊý£º
²¿·Ö
˵Ã÷
string
±ØÒª²ÎÊý¡£Òª×ª»»µÄ×Ö·û´®±í´ïʽ¡£
conversion
±ØÒª²ÎÊý¡£Integer¡£ÆäÖµµÄºÍ¾ö¶¨×ª»»µÄÀàÐÍ¡£
LCID
¿ÉÑ¡µÄ¡£Èç¹ûÓëϵͳLocaleID²»Í¬£¬ÔòΪLocaleID£¨ÏµÍ³ ......
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Priva ......
½üÀ´ORM±äµÃÔ½À´Ô½Æձ飬Õⶼ¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌض¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆƵÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
½«³¤Â·¾¶×ªÎª¶Ì·¾¶
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
Option Explicit
'==================================================
' º¯Êý: ReturnSM
'
' ¹¦ÄÜ: ·µ»Ø×Ö·û´®ÖÐû¸ö×Ö·ûµÄÆ´ÒôÉùĸµÚÒ»¸ö×Öĸ
'
' ×¢Òâ: ¸Ãº¯ÊýÖ»ÄÜ´¦Àí3755¸ö³£Óúº×Ö(B0 - D7)
' Èô³¬³öº¯ÊýµÄ·¶Î§½«·µ»Ø³£Êý ERR_RESULT$
'
' Èë¿Ú: Str ´ý´¦ÀíµÄ×Ö·û´®
'
Public Function ReturnSM$(ByVal S ......