vb.net弹出窗口位置,vb控件在窗体上的位置

急！！在VB.NET中窗口位置调整问题！！！！

'点击窗口的任何位置拖动窗体

创新互联公司-专业网站定制、快速模板网站建设、高性价比安图网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式安图网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖安图地区。费用合理售后完善，十余年实体公司更值得信赖。

Dim ctX As Single, ctY As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ctX = X: ctY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Me.Left = Me.Left + X - ctX

Me.Top = Me.Top + Y - ctY

End If

End Sub

你的 Me.StartPosition =FormStartPosition.CenterScreen 写在哪的？

写在Form_Load事件里是不起作用的（也不叫不起作用，只是那个时候窗体已经不算Start了），一般代码是这样写，在Form1中的某个地方

Dim frm As New Form2

frm.StartPosition =FormStartPosition.CenterScreen

frm.ShowDialog()

如果你一定要在Form2中通过代码设置，可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的构造函数中。

方法如下：

1、打开例1.1创建的工程。

2、选择窗体Form1并双击该窗体，出现窗体的调事件的过程代码体。

3、在窗体调用的过程代码体中编制如下过程代码：

Private Sub Form_Load()

Form1.Width = 4860

Form1.Height = 2520

End Sub

4、设置窗体Form1的SartUpPosition属性为2-屏幕中心，这样运行窗体可以发现，屏幕的大小与例1.6中通过属性设置的大小是一致的。

网站名称：vb.net弹出窗口位置,vb控件在窗体上的位置
转载来源：http://ybzwz.com/article/dsgoddo.html