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Âð£¿
ÎÒÕâÀïÊÇ×ö¸ö¾ÙÀý°¡£¬Êµ¼ÊÇé¿öÏÂÎÒÐèÒªÔÚ²»ÖªµÀ
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......