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

vb»ñÈ¡´°¿ÚµÄnameÊôÐÔ

ÈçºÎ»ñÈ¡»î¶¯´°¿ÚµÄnameÊôÐÔ£¬¶ø²»ÊDZêÌâÃû³Æ¡£
ʲô´°¿Ú?Äã×Ô¼ºµÄ»¹ÊDZðÈ˵Ä?ÊÇMDI×Ó´°ÌåµÄ?

VB code:
Private Sub Command1_Click()
Debug.Print Command1.Name
End Sub


ÎÒÏëͨ¹ýÊó±êÔÚÆÁÄ»ÉÏÒƶ¯£¬¶øÔÚ×ÔÖƳÌÐòµÄÎı¾¿òÖÐÏÔʾÊó±êËùÔÚµã¶ÔÓ¦´°¿ÚµÄnameÊôÐÔÖµ¡£

±ðÈ˱àд³ÌÐò½ÐʲôÃû×Ö±àÒëºó¾Í²»ÖØÒªÁË,ËùÒÔÖ»ÄÜͨ¹ýÀàÃûºÍ±êÌâÈ¥ÅжÏ

ÒýÓÃ
ÎÒÏëͨ¹ýÊó±êÔÚÆÁÄ»ÉÏÒƶ¯£¬¶øÔÚ×ÔÖƳÌÐòµÄÎı¾¿òÖÐÏÔʾÊó±êËùÔÚµã¶ÔÓ¦´°¿ÚµÄnameÊôÐÔÖµ¡£


ÎÒÏëÀûÓÃÕâ¸öÃû×Ó½øÒ»²½»ñÈ¡´°¿ÚµÄÆäËûÊôÐÔÖµ¡£Èç´°¿ÚµÄ¿í¡¢¸ßµÈ¡£ÄѵÀÖ»ÄÜͨ¹ýapi»ñÈ¡Âð£¿ÓÐʲô APIº¯Êý¿ÉÓÃÄØ£¿

api»¹Õæ¹»¸´ÔÓѽ£¡

Ê×ÏÈÒªµÃµ½¾ä±ú
ÒýÓÃ
ÎÒÏëÀûÓÃÕâ¸öÃû×Ó½øÒ»²½»ñÈ¡´°¿ÚµÄÆäËûÊôÐÔÖµ¡£Èç´°¿ÚµÄ¿í¡¢¸ßµÈ¡£ÄѵÀÖ»ÄÜͨ¹ýapi»ñÈ¡Âð£¿ÓÐʲô APIº¯Êý¿ÉÓÃÄØ£¿


name»ñÈ¡²»ÁË£¬ÒòΪ¶ÔÓÚ´°¿Ú£¬name¸ù±¾¾Í²»´æÔÚ¡£ÕâÊÇVB¶Ôij¸ö´°¿ÚµÄ±êʾ¶øÒÑ¡£

´°¿ÚµÄ¿í¡¢¸ß¿ÉÒÔÓÃGetWindowRectµÃµ½¡£

´°¿ÚÒ»°ãÓô°¿Ú¾ä±ú±êʶ,ͨ¹ý´°¿Ú¾ä±ú²Ù×÷´°¿Ú.

ÄÜ·ñ¸æËßÎÒAPIº¯Êý£ºGetWindowRectµÄÓ÷¨Âð£¿Çëд³ö´úÂ룺»ñÈ¡ÆÁÄ»ÉÏÊó±êµãËùÔÚ´°¿ÚµÄ¿í¶ÈÖµºÍ¸ß¶ÈÖµÁ¢¼´¸ø·Ö¡£caozhy(cfx)Ç×°®µÄÅóÓѵÈÄ㣺


Option Explicit
'»ñÈ¡Ä¿Ç°Ñ¡ÔñµÄÊó±êÖ¸ÕëµÄ¾ä±ú
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'·µ»Ø°üº¬


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿Ø¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VBµ÷ÓÃË®¾§±¨±íDesign ƽ·²ÌáʾMemoryFullÎÊÌâ

  ¸÷λ´óϺ£º
        ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ