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

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Âð£¿

ÎÒÕâÀïÊÇ×ö¸ö¾ÙÀý°¡£¬Êµ¼ÊÇé¿öÏÂÎÒÐèÒªÔÚ²»ÖªµÀ


Ïà¹ØÎÊ´ð£º

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

ÎÒÏë°Ñ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
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ