全局定义的窗体居中问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在全局中用VB.NET 定义一个启动窗体，结果怎么调都没法居中，

BeforeOpenProject

Dim frm As New FormReg
frm.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
frm.TopMost = True '或 e.HideSplashForm = True
frm.ShowDialog() '模式打开

'Me.Top = (My.Computer.Screen.Bounds.Height - Me.Height) / 2 '绝对居中
'Me.Left = (My.Computer.Screen.Bounds.Width - Me.Width) / 2

用此方法可以居中，不过启动时有位移闪动！

代码都是从网上找到，实在找不到解决方法了，求老师们给指教下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:0登录窗口vb.net自定义.zip

[此贴子已经被作者于2014-4-3 19:32:40编辑过]

全局里的代码在VB.NET 预览居中也是正常的，就是放在 BeforeOpenProject 里不居中了

Dim frm As New LoginWindow
frm.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
frm.ShowDialog() '模式打开

此主题相关图片如下：qq截图20140404084550.png

如果用这段代码

Dim frm As New LoginWindow
frm.Top = (My.Computer.Screen.Bounds.Height - frm.Height) / 2 '绝对居中
frm.Left = (My.Computer.Screen.Bounds.Width - frm.Width) / 2
frm.ShowDialog() '模式打开

在foxtable打开也是居中,不过有位移闪动，好像是重新调整了一下位置。

谢谢有点甜老师，果真好了，又学一招图片点击可在新窗口打开查看

，

刚才我没找到办法，用的透明度切换模拟的。

有点甜老师，我想把我原来的透明度渐变效果加进去，发现采用 NEW()方法后透明度不管了，请问如何解决？

Public Sub New()
MyBase.New()
'Private Sub LoginWindow_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim xml As New CSysXML("LoginSet.XML")
Dim Wwidth As Integer
Dim Wheight As Integer
Dim Xpos As Integer
Dim Ypos As Integer
Me.KeepName = New System.Windows.Forms.CheckBox
Me.CUserName = New System.Windows.Forms.ComboBox
Me.TPassWord = New System.Windows.Forms.TextBox
Me.BtnOk = New System.Windows.Forms.Button
Me.BtnCanel = New System.Windows.Forms.Button
Me.SuspendLayout()

………………

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None '无边框,不可移动

Me.BackgroundImage = Image.FromFile(Fwinbg)

Me.Icon = New System.Drawing.Icon(ProjectPath & "images\Users32.ico")

Me.Name = "LoginWindow"

Me.Opacity = 0

Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultBounds 'System.Windows.Forms.FormStartPosition.CenterScreen

Me.Top = (My.Computer.Screen.Bounds.Height - Me.Height) / 2 '绝对居中

Me.Left = (My.Computer.Screen.Bounds.Width - Me.Width) / 2

Me.Text = "登录"

Me.TopMost = True

Dim I As Double

For I = 0.01 To 1 Step 0.01

Me.Opacity = I

System.Windows.Forms.Application.DoEvents()

System.Threading.Thread.Sleep(5)

Me.Opacity = 1

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents KeepName As System.Windows.Forms.CheckBox

……………………

主题：全局定义的窗体居中问题