VB¸¸´°¿ÚÓë×Ó´°¿ÚµÄÎÊÌâ
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Command1_Click()
SetParent Form2.hwnd, Me.hwnd
End Sub
Private Sub Command2_Click()
Debug.Print GetParent(Form2.hwnd) '×ÜÊÇΪÁ㣿£¿
End Sub
ÎÒÓÃÉÏÃæµÄ´úÂëSetParent °ÑForm1 ÉèÖÃΪForm2µÄ´°¿Úºó
È»ºóÆóͼÓÃGetParent·µ»Ø¸¸´°¿ÚµÄ¾ä±ú£¬È´×ÜÊÇÁã¡£²»ÖªµÀÕâÊÇΪʲô
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Command1_Click()
SetParent Form2.hwnd, Me.hwnd
End Sub
Private Sub Command2_Click()
Debug.Print GetParent(Form2.hwnd) '×ÜÊÇΪÁ㣿£¿
End Sub
ÎÒÓÃÉÏÃæµÄ´úÂëSetParent °ÑForm1 ÉèÖÃΪForm2µÄ¸¸´°¿Úºó
È»ºóÆóͼÓÃGetParent·µ»Ø¸¸´°¿ÚµÄ¾ä±ú£¬È´×ÜÊÇÁã¡£²»ÖªµÀÕâÊÇΪʲô
ΪʲôҪÓÃGetParentÄØ£¿¸¸´°¿ÚµÄ¾ä±ú²»ÊÇForm1.hWndÂð£¿
ÎÒÕâÀïÊÇ×ö¸ö¾ÙÀý°¡£¬Êµ¼ÊÇé¿öÏÂÎÒÐèÒªÔÚ²»ÖªµÀ
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......