前两天,写程序时需要将窗体放到Panel里,在经历了种种折磨后终于找到答案,只要将那个窗体的TopLevel设为False就可以了。代码如下:
Dim newForm as new MyForm
newForm.TopLevel = False
Me.pnlMain.Controls.Add(newForm)
***************************************
在那个系统中,为了让众多的数据显示,所以要求分辨率在1024*768及以上,同时同一机子不能运行2个系统。
Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
If X < 1024 And Y < 768 Then
MsgBox("请将系统分辨率设置为1024×768,然后再运行本系统。", , "提示")
Application.Exit()
End If
If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
Beep()
MsgBox("对不起!系统已经在运行,请不要重复运行!", , "提示")
Application.Exit()
'System.Environment.Exit(0)
End If