[求助]启动注册窗体居中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]启动注册窗体居中？

共有4828人关注过本帖树形打印复制链接主题：[求助]启动注册窗体居中？

jnletao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：941 积分：7786 威望：0 精华：0 注册：2013/7/7 13:37:00

[求助]启动注册窗体居中？ 发帖心情

Post By：2013/12/26 10:52:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:启动窗体练习逛逛.table

此主题相关图片如下：360软件小助手截图20131226104827.jpg

没有居中，求老师给改一下。

昨天有点甜老师给了个方法说放在构造函数里，可惜俺看不懂，没试出来图片点击可在新窗口打开查看

看了一下。你把Form1_Load方法的内容写到构造函数里去。但是这样弹出的窗口会被foxtable的启动图片遮住，你要隐藏一下它，或者置顶 topmost = true

public sub New()
'拷贝内容
end sub

逛逛

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2013/12/26 10:55:00 [只看该作者]

BeforeOpenProject 里

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

If bl_取消 Then
e.Cancel = True
End If

If bl_确定 Then
    '你的策略
    msgbox(str_机器码)
    msgbox(str_注册码)

End If

全局class 里昨天少了一个代码，你把他加进去，是点击上面的关闭按钮是获取系统消息

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = 161 And m.WParam = 20 Then
            bl_取消 = True
            Me.Close()
        End If
        MyBase.WndProc(m)
    End Sub

[此贴子已经被作者于2013-12-26 11:05:25编辑过]