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Õâ¸öÇé¿ö£¬¾Í»á³öÏÖÉÏÊöÌû×ÓÖеÄÎÊÌâ.
Ïà¹ØÎĵµ£º
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
......
±¾³ÌÐòÓÐÒ»²Ëµ¥¿ªÊ¼£¬ÀïÃæÓвéѯ£¬É¾³ý£¬Ð޸ģ¬Ìí¼Ó£¬³ÌÐò²»Ò»Ò»Áгö£¬Ö»Ð´³ö»ù±¾µÄ¹ý³Ì£¬Á¬½ÓÊý¾Ý¿â²ÉÓñê׼ģ¿é£º
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() 'Êý¾Ý¿âÁ¬½Ó¹²Ïíº¯Êý
Set conn = New ADODB.Connect ......
Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......