Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÄܼǼÖÐÎĵļüÅ̼Ǽ

http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf SubWndProc) '×ÓÀ໯´°¿Ú£¬ÒÔ±ãÄÜ´¦ÀíDLL·¢³öµÄ×Ô¶¨ÒåÏûÏ¢
DLLstartHOOK Me.hWnd '³õʼ»¯DLL
DLLsetHOOKState True '´ò¿ªÊäÈë·¨HOOK
' -----------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
DLLsetHOOKState False '¹Ø±ÕÊäÈë·¨HOOK
DLLstopHOOK 'жÔØÊäÈë·¨HOOK
Call SetWindowLong(Me.hWnd, GWL_WNDPROC, PrevWndProc) '»¹Ô­×ÓÀ໯´°¿Ú
' ----------------
End Sub
‘-----------------------Ä£¿é
Option Explicit
' ------------------------------------ÒÔÉÏÊÇWINIOº¯ÊýÉùÃ÷-----------------------------------------------
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'---------------------------------APIº¯ÊýµÄÉùÃ÷-----------------------
Public Declare Function DLLstartHOOK Lib "hxwdllwx.dll" (ByVal hWnd As Long) As Long   '³õʼ»¯¹³×Ó
Public Declare Function DLLstopHOOK Lib "hxwdllwx.dll" () As Long   'жÔع³×Ó
Public Declare Function DLLsetHOOKState Lib "hxwdllwx.dll" (ByVal myState As Boolean) As Long '´ò¿ª»ò¹Ø±Õ¹³×Ó
Public Declare Function DLLGetPubString Lib "hxwdllwx.dll" () As String   '»ñµÃÊäÈë·¨ÊäÈë
Public Declare Function DLLSetPubString Lib


Ïà¹ØÎĵµ£º

VB±éÀúµ±Ç°Ä¿Â¼

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub ......

VB ʵÏÖVC TAbControl¿Ø¼þ

VBʵÏÖVC TabControl¿Ø¼þ
 
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
 
 
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
 
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

VB ʹÓÃWMI±à³Ì½²×ù(¶þ)

Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
    ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖصãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑù˵ÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ