VB¾ä±ú¸ÅÄî ²»¶®ÒÔºóÉîÈëÀí½â
×î½üÔÚѧϰwindows APIµÄʱºò·¢ÏÖÔÚ¸ö½Ð¾ä±úµÄ¸ÅÄî¸ã²»Çå³þ£¬ÓÚÊDzéÁËÒ»ÏÂÏÖÔÚ°Ñ×Ô¼ºµÄÀí½âд³öÀ´£¬ºóÃæÔÙÌùÍøÉϵĽéÉÜ¡£¾ä±úÊÇÒ»¸ö´ú±í´°¿ÚµÄÕýÕûÊý£¬µ±È»´°¿ÚµÄ¸ÅÄîÔÚÕâÀï°üº¬ÁË×ÀÃæ¡¢°´Å¥¡¢¹ö¶¯ÌõµÈ£¬Õâ¾ÍÊÇÎÒ×î¼òµ¥µÄÀí½âÁË¡£
ÒÔÏÂÊÇÍøÉϵĽéÉÜ£º
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á˽â¾ä±ú
ÔÚµ÷Óà DLL º¯Êýǰ±ØÐëÀí½âµÄÁíÍâÒ»¸öÖØÒª¸ÅÄîÊǾä±ú¡£¾ä±úÊÇÒ»¸ö 32 λµÄÕýÕûÊý£¬Microsoft® Windows® ÓÃËüÀ´Ê¶±ð´°Ìå»òÆäËû¶ÔÏó£¬ÀýÈç×ÖÌå»òλͼ¡£
ÔÚ Windows ÖУ¬´°¿Ú¿ÉÒÔÓÐÐí¶àÖÖ¡£´°¿Ú¿ÉÒÔÊÇÆÁÄ»ÉϵÄÒ»¿é¾ØÐηâ±ÕÇøÓò£¬±ÈÈçÄúÊìϤµÄÓ¦ÓóÌÐò´°¿Ú¡£´°ÌåÉϵĿؼþ£¨ÀýÈçÁбí¿ò»ò¹ö¶¯Ìõ£©Ò²¿ÉÒÔÊÇ´°¿Ú£¬µ«²¢²»ÊÇËùÓÐÀàÐ͵Ŀؼþ¶¼ÊÇ´°¿Ú¡£×ÀÃæÉϵÄͼ±êºÍ×ÀÃæ±¾ÉíÒ²ÊÇ´°¿Ú¡£
ÒòΪËùÓÐÕâЩÀàÐ͵ĶÔÏó¶¼ÊÇ´°¿Ú£¬ËùÒÔ Windows ¿ÉÒÔÓÃÀàËÆµÄ·½Ê½´¦ÀíËüÃÇ¡£Windows ¸øÃ¿¸ö´°¿ÚÒ»¸öΨһµÄ¾ä±ú£¬Í¨¹ý¾ä±ú²Ù×ݸô°¿Ú¡£Ðí¶à API º¯Êý¿É·µ»Ø¾ä±ú»òÕß½ÓÊܾä±ú×÷²ÎÊý¡£
´´½¨´°¿Úʱ£¬Windows ¸øËüÖ¸ÅÉÒ»¸ö¾ä±ú£¬´°¿ÚÏûʧºó¾ä±ú±»ÊÍ·Å¡£ËäÈ»¾ä±úÔÚ´°¿ÚµÄÕû¸öÉú´æÆÚÄÚ±£³Ö²»±ä£¬µ«²»Äܱ£Ö¤Ä³´°¿ÚÔÚ±»Ë𻵲¢ÖØÐ´´½¨ºó»¹Ê¹ÓÃÔÀ´µÄ¾ä±ú¡£ËùÒÔ£¬Èç¹ûÔÚ±äÁ¿Öд洢ÁËÒ»¸ö¾ä±ú£¬Çë¼Çס´°¿ÚË𻵺ó¾ä±ú¾ÍʧЧÁË¡£
ÀýÈç GetActiveWindow º¯Êý¾Í¿ÉÒÔ·µ»Ø´°¿ÚµÄ¾ä±ú£¬ÕâÀïµÄ´°¿ÚÊÇÒ»¸öµ±Ç°»î¶¯µÄÓ¦ÓóÌÐò´°¿Ú¡£GetWindowText º¯Êý½ÓÊÜ´°¿ÚµÄ¾ä±ú£¬Èç¹û¸Ã´°¿ÚÓбêÌ⣬Ôò·µ»Ø±êÌâ¡£ÏÂÃæµÄ¹ý³ÌÓà GetActiveWindow ·µ»Ø»î¶¯´°¿ÚµÄ¾ä±ú£¬Óà GetWindowText ·µ»Ø¸Ã´°¿ÚµÄ±êÌ⣺
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal Hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Function ActiveWindowCaption() As String
Dim strCaption As String
Dim lngLen As Long
' ´´½¨ÓÉ¿Õ×Ö·ûÌî³äµÄ×Ö·û´®¡£
strCaption = String$(255, vbNullChar)
' ·µ»Ø×Ö·û´®³¤¶È¡£
lngLen = Len(strCaption)
' µ÷Óà GetActiveWindow£¬·µ»Ø»î¶¯´°¿ÚµÄ¾ä±ú£¬
' °Ñ¾ä±úÁ¬Í¬×Ö·û´®ºÍ×Ö·û´®³¤¶ÈÒ»Æð´«µÝ¸ø GetWindowText¡£
If (GetWindowText(GetActiveWindow, strCaption, lngLen) > 0) Then
' ·µ»Ø Windows дµ½×Ö·û´®ÖеÄÖµ¡£
ActiveWindowCaption = strCaption
End If
End Function
GetWindowText º¯ÊýÓÐ 3 ¸ö²ÎÊý£º
Ïà¹ØÎĵµ£º
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
×òÌìÍíÉÏ£¬Ã×ÀÏʦ°ÑÎҽе½°ì¹«ÊÒ¡£ÎÊÎÒѧÁËÒ»ÖܸоõÈçºÎ£¬ÎÒµ±Ê±ºÜº¹ÑÕ¡£Ã×ÀÏʦÉíÌå²»ºÃ£¬µçÄÔ°æ°àô¶àѧÉú£¬Ëû¿ÉÒÔÈÃ×Ô¼ºÇáËÉÒ»µã¶ù£¬µ«ËûûÓС£×÷Ϊ¼¸Ê®¸öѧÉúµÄÃâ·ÑÀÏʦ£¬×öΪÈ˸¸ÈË·ò£¬ÀÏʦÉÐÇÒÖªµÀÎÒѧÁËÒ»ÖܳɹûÔõÑùÄØ£¬µ«ÎÒ×Ô¼ºÈ´Ã»ÓÐÏë¹ý£¬ºÜ²ÑÀ¢¡£·¸ÈκδíÎóµÚÒ»´Î¿ÉÒÔÔÁ£¬µ«¾ø²»Ó¦¸ÃÈÃËü³öÏÖµÚ¶þ´Î£¬Ñ§ÁËÒ»ÖÜ£¬ ......
ÔÀ´µÄ´íÎóÊÇ£ºTimer1µÄEnabledÊôÐÔÉèΪTrue¡£
´úÂë´íÎóÊÇ£º
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
————————————————&mdas ......
VBÎÞËù²»ÄÜÖ®ËÄ£ºÖÆ×÷͸Ã÷ºÍ°ë͸Ã÷´°Ìå
——×÷ÕߣºÖÓÉù
ÎÒÃǾ³£¿ÉÒÔ¿´µ½ÕâÑùµÄ´°Ì壬¾õµÃºÜìÅ£¬ÈçͼËùʾ£º
ͬÑù£¬¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËÆºõÊ×ÏÈÏëµ½µÄ¾ø¶Ô²»ÊÇVB£¬¶ø´ó²¿·Ö³ÌÐòÔ±Ïëµ½µÄÒ»¶¨ÊÇVC¡£
& ......