ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ
ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ
¹Ø¾¢ËÉ PMP
Ò»¡¢¹ØÓÚÈÕÖ¾¼Ç¼¹¦ÄÜ
Ö÷Òª¹¦ÄܵãÓÐ
1 ÔÚ³ÌÐòĿ¼ÏÂÉú³ÉlogĿ¼£¬ÓÃÓÚ±£´æÈÕÖ¾Îļþ¡£
2 ×Ô¶¯ÔÚlogĿ¼ÖУ¬Éú³ÉÈÕÖ¾Îļþ£¬ÎļþÃüÃûÓÃÄêÔÂÈÕ¶¨Ò壬Èç20100119_log.log¡£
3 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿ÐмǼһ¸öʱ¼äµãµÄÔËÐÐÄÚÈÝ¡£Ê±¼äµãµÄ¾«¶ÈÓ¦¸Ã´ïµ½ºÁÃë¡£
4 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿Ò»ÐеļǼÄÚÈÝΪÎı¾ÐÅÏ¢¡£
5 ÔÚÐèÒª¼Ç¼ÈÕÖ¾µÄµØ·½£¬µ÷ÓüǼÈÕÖ¾¹ý³Ì¡£
¶þ¡¢Ïà¹Ø¹ý³Ì¡¢º¯Êý¡£
'* ±¸×¢:ÓÉÓÚFSO¶ÔÏó°üº¬ÔÚScripting ÀàÐÍ¿â (Scrrun.Dll)ÖУ¬ËùÒÔÔÚʹÓÃǰÊ×ÏÈÐèÒªÔÚÔÚ¹¤³ÌÖÐÒýÓÃÕâ¸öÎļþ£¬
'* µ¥»÷“¹¤³Ì”£¬“ÒýÓÔ£¬È»ºóÔÚ“ÒýÓÔ¶Ô»°¿òÖÐÑ¡ÖГMicrosoft Scripting Runtime”ǰµÄ¸´Ñ¡¿ò£¬È»ºóµ¥»÷“È·¶¨”¡£
'*-----------------------------------------------------------------------------*
'* ×¢ÊÍÄÚÈÝ,ÓÃÓÚ»ñȡϵͳʱ¼äµÄºÁÃë¡£
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
'*-----------------------------------------------------------------------------*
'*-----------------------------------------------------------------------------*
'* ×¢ÊÍÄÚÈÝ,ÓÃÓÚ±£´æÏêϸlogÎļþµÄ·½·¨¡£Ê¹ÓÃÖС£
Public Sub Dtllog(ByVal logText As String)
Dim fso As FileSystemObject
Dim fileName As String
Dim a As Object
Set fso = New FileSystemObject
If fso.FolderExists(App.Path & "\log\") Then
Set a = fso.OpenTextFile(App.Path & "\lo
Ïà¹ØÎĵµ£º
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
Ö¸µ¼½Ìʦ
ѧºÅ
ÈÕÆÚ
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1) Æô¶¯Visual Studio 2005¡£
2) н¨Ò»¸öVB WindowsÓ ......
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......
'*************************************************************************
''----------------------------------------------------------------------
'**ϵͳÃû³Æ£º×ÓÀà»¯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥
'**Ä£¿éÃèÊö£º
'**Ä£ ¿é Ãû£ºForm1
'**´´ ½¨ ÈË£ºgvu
'**×÷ÕßÍøÕ¾£ºhttp://hi.baidu.com/googlevipuser
'**E-Mai ......
VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
//VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......