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

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó¦¸ÃËõ·Å
         ·fixed dialog ´øÓй̶¨±ß¿òµÄ´°Ìå¿ÉÒÔ£¨²¢Ó¦¸Ã£©ÓµÓÐÒ»¸ö±êÌâÀ¸£¬²¢ÇÒ¿ÉÒÔÓÐÒ»¸ö¿Ø¼þ²Ëµ¥¿ò
         ·none ûÓб߿òºÍ±êÌâÀ¸£¨Ê¹ÓõÄÇé¿ö¼«ÉÙ£©
         ·fixed single ¿ÉÒÔ×îС»¯ºÍ×î´ó»¯
         ·sizable ÓÃÓÚËõ·Å´°ÌåÖеÄÄÚÈÝ£¨Õâ¸ö´°ÌåʹÓõÄʱºòÒªÌØ±ð×¢Òâ×î´ó»¯Ê±ºòµÄºÜ´óµÄ»ÒÉ«ÇøÓòÎÊÌ⣩
         ·¹Ì¶¨¹¤¾ß´°¿ÚºÍ¿ÉËõ·Å¹¤¾ß´°¿Ú£¨²»»á¾­³£Ê¹Ó㩱êÌâÀ¸ºÍ±êÌâÀ¸µÄÎı¾±ÈÆÕͨµÄ´°¿Ú¸üϸ
    ·Ê¹¿Ø¼þ¾ß±¸±ê×¼Íâ¹Û
         ·Ê¹Îı¾¿òºÍÆäËû“µ¥Ðпؼþ”µÄ¸ß¶ÈÓë±ê×¼×éºÏ¿òÏàͬ
         ·Ñ¡¶¨Ò»¸ö×éºÏ¿ò£¬È»ºóÀ©´óÑ¡Ôñ·¶Î§ÒÔ±ã°üÀ¨ËùÓÐÎı¾¿ò
         ·²»ÒªÏòÓû§Òþ²Ø°´Å¥£¬¶øÓ¦¸ÃÈ¡ÏûÆä¼¤»î״̬£¬±íʾÕâʱÕâЩ°´Å¥²»ÄÜʹÓÃ
    ·Ôڹ涨µÄÇé¿öÏÂʹÓÃ×î¼Ñ½çÃæ×é¼þ
    ·Ìṩ±ãÓÚÀí½âºÍʹÓõIJ˵¥
    ·¾¡¿ÉÄÜʹÓÃϵͳÑÕÉ«


Ïà¹ØÎĵµ£º

ÈçºÎÓÃVBд°²È«¿Ø¼þ

×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆä°²È«ÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊǰ²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ ......

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 ......

΢ÐÍORM——ÓÃVBºÍC#±àдµÄ¶¯Ì¬ÀàÐÍORM

      ½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔ­Òò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......

VB¿Ø¼þºÍ¶ÔÏó£ºApp ¶ÔÏó

App ¶ÔÏóÊÇVBÓ¦ÓóÌÐòµÄÈ«¾ÖÐÅÏ¢£¬ÈçÓ¦ÓóÌÐòµÄ±êÌâ¡¢°æ±¾ÐÅÏ¢¡¢¿ÉÖ´ÐÐÎļþºÍ°ïÖúÎļþµÄ·¾¶¼°Ãû³ÆÒÔ¼°ÊÇ·ñÔËÐÐǰһ¸öÓ¦ÓóÌÐòµÄʾÀý¡£
ÊôÐÔ
    £­£­£­£­£­£­£­ ÆäËûÊôÐÔ£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­
    EXEName ÊôÐÔ      ·µ»Øµ±Ç°ÕýÔËÐеĿÉÖ´ÐÐÎļþ ......

VBÖлñµÃºº×ÖµÄÊ×ÒôÂë(°üº¬¶þ¼¶×Ö¿â)

Option Explicit
'==================================================
' º¯Êý: ReturnSM
'
' ¹¦ÄÜ: ·µ»Ø×Ö·û´®ÖÐû¸ö×Ö·ûµÄÆ´ÒôÉùĸµÚÒ»¸ö×Öĸ
'
' ×¢Òâ: ¸Ãº¯ÊýÖ»ÄÜ´¦Àí3755¸ö³£Óúº×Ö(B0 - D7)
' Èô³¬³öº¯ÊýµÄ·¶Î§½«·µ»Ø³£Êý ERR_RESULT$
'
' Èë¿Ú: Str ´ý´¦ÀíµÄ×Ö·û´®
'
Public Function ReturnSM$(ByVal S ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ