我一直试图在第二个屏幕上显示一个表单(即我的项目)但没有任何成功。我的表单有一个AXMediaPlayer和另一个表单作为叠加层。我一直在使用的代码是:
Dim screen As Screen
'Show the form on second screen
screen = Screen.AllScreens(1)
Form1.StartPosition = FormStartPosition.Manual
Form1.Location = screen.Bounds.Location + New Point(100, 100)
Form1.Show()
要加载form1,并且:
Me.Location = Screen.AllScreens(1).Bounds.Location
Me.WindowState = FormWindowState.Maximized
Form2.StartPosition = FormStartPosition.Manual
Form2.Location = screen.Bounds.Location + New Point(100, 100)
Form2.Show()
显示form2并尝试在屏幕2上显示form1(我在第一次尝试失败后尝试过)(即根据VB按1)。任何帮助肯定会受到赞赏。提前致谢
答案 0 :(得分:0)
我解决了我的错误。实际上窗体的窗口状态设置为最大化,这就是窗口无法在屏幕2上打开的原因。我解决了它,但是将最大化的代码添加到窗体加载事件中。感谢您的帮助guyz