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 ......
Microsoft VBScript ÔËÐÐʱ´íÎó '800a0046' ûÓÐȨÏÞ: 'CreateObject'
ÏÔʾ´íÎó£ºÃ»ÓÐȨÏÞ: 'CreateObject'
¼ÇµÃ½«×é¼þ¼ÓÈë Users ×éȨÏÞ£¨Èç¹û½« C ÅÌÈ¥µô Users ×éȨÏ޵ϰ£©¡£
¿ªÊ¼¡£¡£¡£ÔËÐС£¡£¡£regsvr32 jscript.dll (ÃüÁÄÜ£º ÐÞ¸´Java¶¯Ì¬Á´½Ó¿â)
¿ªÊ¼¡£¡£¡£ÔËÐС£¡£¡£regsvr32 vbscript.dll(à ......
ת×Ô:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°Ê±¼ä¡£
Date
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°ÈÕÆÚ¡£
Now
·µ»Ø´ú±íµ±Ç°ÈÕÆÚºÍʱ¼äµÄ±àÂëÖµ¡£¸Ãº¯Êý¾³£ÓÃ×÷ÆäËüϵͳʱÖÓº¯ÊýµÄ²ÎÊý¡£
Hour(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄСʱ²¿·Ö£¨0µ½23£©¡£
Minute(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄ·ÖÖÓ²¿· ......
ºÜ¶àʱºò,ÎÒÃ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 ......