展开全部
Option Explicit
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
Form2.Visible = True
Form3.Visible = False
End Sub
Private Sub Command2_Click()
Form2.Visible = False
Form3.Visible = True
End Sub
Private Sub Form_Load()
Me.Move 0, 0, 12000, 12000
Form2.Show
Form3.Show
SetParent Form2.hWnd, Form1.hWnd
SetParent Form3.hWnd, Form1.hWnd
Form2.Move 500, 500, 5000, 5000
Form3.Move 500, 500, 5000, 5000
Form2.Visible = True
Form3.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
建议使用选项卡sstab来完成任务,细节百度vb sstab
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
Form2.Visible = True
Form3.Visible = False
End Sub
Private Sub Command2_Click()
Form2.Visible = False
Form3.Visible = True
End Sub
Private Sub Form_Load()
Me.Move 0, 0, 12000, 12000
Form2.Show
Form3.Show
SetParent Form2.hWnd, Form1.hWnd
SetParent Form3.hWnd, Form1.hWnd
Form2.Move 500, 500, 5000, 5000
Form3.Move 500, 500, 5000, 5000
Form2.Visible = True
Form3.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
建议使用选项卡sstab来完成任务,细节百度vb sstab
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询