网站建设资讯

NEWS

网站建设资讯

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

vb.net 窗口位置

你的 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的构造函数中。

vb.net如何定义启动窗体的默认位置?

方法如下:

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://cdweb.net/article/dsgoddo.html