VBÖлص÷º¯ÊýµÄÒ»¸öÎÊÌâ
֮ǰÅöµ½Ò»¸öÎÊÌ⣬VBÖÐÏòÒ»¸öC++дµÄDLLÖÐ×¢²áÒ»¸öCallback£¬C++ÔÚµ÷ÓÃÕâ¸öCallbackʱÓÐЩÎÊÌ⣬¾ßÌåÎÊÌâÃèÊöºÍÏÂÃæÕâ¸öÌû×ÓÖеÄÇé¿öÊÇÒ»ÑùµÄ: http://topic.csdn.net/t/20051104/09/4370840.html
¾¹ý³¢ÊÔÒÔºó·¢ÏÖ£¬ÔÚVBÖÐдµÄ»Øµ÷º¯Êý±ØÐëÊÇÓÃFunction¹Ø¼ü×Ö£¬²¢ÇÒ£¬±ØÐëÒªÉèÖ÷µ»ØÖµ£¬ÈçÏ£º
Public Function Callback () As Long
’TODO: Here
Callback = 0
End Function
Èç¹ûÕâ¸ö»Øµ÷ÖÐûÓÐÉùÃ÷·µ»ØÖµ£¬²¢ÇÒûÓÐCallback = 0Õâ¸öÇé¿ö£¬¾Í»á³öÏÖÉÏÊöÌû×ÓÖеÄÎÊÌâ.
Ïà¹ØÎĵµ£º
VBScript ÔËÐг£¼û´íÎó
Èç¹û VBScript ½Å±¾Ö´ÐÐϵͳÎÞ·¨ÊµÊ©µÄ²Ù×÷£¬Ôò»á²úÉú VBScript ÔËÐÐʱ´íÎó¡£Ö»ÓÐÔÚÔËÐнű¾¡¢Îª±äÁ¿±í´ïʽ¸³Öµ»ò·ÖÅäÄÚ´æÊ±£¬²Å»á²úÉú VBScript ÔËÐÐʱ´íÎó¡£ ÒÔÏÂÊÇ65¸öÔËÐÐʱ´íÎó£º
´íÎó±àºÅ ÃèÊö
Ê®½øÖÆ Ê®Áù½øÖÆ¡¡¡¡¡¡¡¡ËµÃ÷
5 ¡¡¡¡¡¡800A0005 ¡¡¡¡¡¡ÎÞЧ¹ý³Ìµ÷Óûò²ÎÊý
6 ¡¡¡¡¡¡800A00 ......
Óо²Ì¬ºÍ¶¯Ì¬Á½ÖÖ£¬¾²Ì¬µÄÐèÒªlib¶ø¶¯Ì¬µÄÖ»ÐèÒªÒ»¸ödll¾Í¿ÉÒÔÁË£¨µ«ÊÇÒªÖªµÀº¯ÊýµÄ¶¨ÒåÒ»°ãÊÇÍ·ÎÄ
¼þ£©¶¯Ì¬Ïà¶Ô¸´ÔÓÒ»µã£¡µ«ÊÇÕÆÎÕÁËÒ²²»ÊǺÜÄÑ
//µÚÒ»²½ ¶¨Ò庯ÊýÖ¸Õë¾ÍÊÇÄãÒªµ÷Óõĺ¯Êý£¬²ÎÊý±ØÐëÒ»Ö£¬²»È»¾ÍÄÚ´æÐ¹Â¶
typedef HANDLE ......
ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
Dim str As String
Dim str1 As String
Dim len1 As Long
str = txt
len1 = ConWidth
&nbs ......
VBÖе÷ÓÃMSN 6.2 APIº¯Êý
¡¡¡¡Á˽âÕâ·½ÃæÄÚÈÝµÄÆðÒòÊÇÔçÉÏÓÐλÅóÓÑÈÃÎÒ¿´Ò»¶Î¹ØÓÚMSN¿ª·¢³ÌÐò£¬ÏÖÔÚÎÞ·¨ÔËÐУ¬ÎÒ´ò¿ª¹¤³Ì·¢ÏÖÊÇÕë¶Ô4.7±àдµÄ£¬¶øËûµÄ¼ÆËã»ú°²×°µÄ6,2£¬ÒòΪÎÒÒ²ÓÃ6.2ËùÒÔÎÒÔÚVBÖв鿴ÁËһϣ¬·¢ÏÖÊÇȱÉÙMessenger Type Library¡£µ«ÊǶàÁËMessenger API Type Library£¬¿ÉÄÜÊÇ×öΪMessenger Type LibraryµÄÌ ......