این هم کدش
Private Declare Function SetParent Lib "user32" ( _
ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
SetParent Form2.hWnd, hWnd
Form2.Show
End Sub
|
|
| یک فرم رو توی یک فرم دیگه |
|
تنها با دو خط کد میتونید جلوه ای رو بوجود بیارید که فکرشم نمی کردید. یک فرم رو توی یک فرم دیگه جابدید. استفاده های زیادی میشه ازش کرد. مثلا ساخت نوار ابزارهایی مثل اونی که فتوشاپ داره. راجع بهش فکر کنید این هم کدش Private Declare Function SetParent Lib "user32" ( _ ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() SetParent Form2.hWnd, hWnd Form2.Show End Sub |