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 '·µ»Ø°üº¬
Ïà¹ØÎÊ´ð£º
login.aspx.vb: Public ReadOnly Property nameT() As String Get Return TextBox1.Text &nb ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË.. Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html תΪVB.NETÔ´Âë. СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏ ÎÒµÄEMAILÊÇ:4452 ......
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
......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......