vb±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ
·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔÔò
·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
·±àд·Ç³£³öÉ«µÄ×¢ÊÍ
·¼òµ¥µÄÖظ´´úÂë×öЩʲôûÓÐÒâÒå
·ÓÃ×¢ÊÍÀ´ËµÃ÷ºÎʱ¿ÉÄܳö´íºÍΪʲô³ö´í
·ÔÚ±àд´úÂëÇ°½øÐÐ×¢ÊÍ
·±àдһ¸ö¹ý³ÌÇ°Ê×ÏÈдÉÏ×¢ÊÍ
·¿ÉÒÔ±àдÍêÕû¾ä×ÓµÄ×¢ÊÍ»òα´úÂë
·ÔöǿעÊ͵ĿɶÁÐÔ
·×¢ÊÍÊǹ©ÈËÔĶÁ£¬¶ø²»ÊǼÆËã»úÔĶÁµÄ£¬Ó¦¸Ã±ãÓÚÈËÃÇÀí½â
·Ê¹ÓÃÍêÕûÓï¾ä
·±ÜÃâʹÓÃËõд
·½«Õû¸öµ¥´Ê´óд£¬ÒÔÍ»³öËüÃǵÄÖØÒª
·¶Ô×¢ÊͽøÐÐËõ½ø£¬Ê¹Ö®ÓëºóËæµÄÓï¾ä¶ÔÆë
·ÎªÃ¿¸ö¹ý³Ì¸³ÓèÒ»¸ö×¢ÊͱêÍ·
·²ÉÓÃÏàͬµÄ¸ñʽ»¯·½·¨
·Ê¹ÓÃÄÚ²¿×¢ÊÍÀ´ËµÃ÷´úÂë½ø³Ì
·ÔÚÿ¸öifÓï¾äµÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öselect caseÓï¾äÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öÑ»·µÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÐÞ¸ÄÁËÈ«¾Ö±äÁ¿µÄÿ¸öÓï¾äÇ°¼ÓÉÏ×¢ÊÍ
Ïà¹ØÎĵµ£º
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 ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
Óõ½µÄAPIÉùÃ÷£º
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......
Option Explicit
'==================================================
' º¯Êý: ReturnSM
'
' ¹¦ÄÜ: ·µ»Ø×Ö·û´®ÖÐû¸ö×Ö·ûµÄÆ´ÒôÉùĸµÚÒ»¸ö×Öĸ
'
' ×¢Òâ: ¸Ãº¯ÊýÖ»ÄÜ´¦Àí3755¸ö³£Óúº×Ö(B0 - D7)
' Èô³¬³öº¯ÊýµÄ·¶Î§½«·µ»Ø³£Êý ERR_RESULT$
'
' Èë¿Ú: Str ´ý´¦ÀíµÄ×Ö·û´®
'
Public Function ReturnSM$(ByVal S ......
·¶¨ÒåÍêÉƵıäÁ¿¾ßÓÐÃ÷È·¹æ¶¨µÄÊý¾ÝÀàÐͺÍ×÷ÓÃÓò
·ÒªÕýȷʹÓñäÁ¿£¬±ØÐëʹÓñíÒåÐÔÇ¿µÄ±äÁ¿ÃûÀ´ËµÃ÷ÕâЩ±äÁ¿£¬²¢ÇÒ±ØÐëΪËüÃǸ³Óè½¹µã
·±à³ÌÔÔò
·¶¨ÒåÓн¹µãµÄ±äÁ¿£¨·þÎñÓÚÒ»¸ö¶¨ÒåÃ÷È·µÄÄ¿µÄ£©
·Îª±äÁ¿¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......