189 8069 5689

VB.net子窗体停靠,双击窗体中的对象后vb将显示的窗口是什么

请问。VB. NET 如何更改子窗体(Form2)相对父窗体(Form1)的第一次显示位置。

Dim locForm2 As New Point

站在用户的角度思考问题,与客户深入沟通,找到南靖网站设计与南靖网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站设计、成都网站建设、企业官网、英文网站、手机端网站、网站推广、空间域名、网络空间、企业邮箱。业务覆盖南靖地区。

locForm2.X = 150

locForm2.Y = 50

Form2.MdiParent = Me

Form2.Show()

Form2.Location = locForm2

前三句,声明了一个坐标点,并且赋了值

最后一句,当Form2显示了后,把坐标点赋给Form2的位置属性,就可以让Form2出现在你给定的位置了

父窗体关闭的时候,子窗体自然就关闭了。所以你第二个问题不是问题。

vb.net 窗体位置

form窗体有一个属性是startposition,把它设置为centerscreen就是居中。

代码为

me.startposition

=

formstartposition.centerscreen。

如果是非要计算分辨率的话:

my.computer.screen.bounds.width

是分辨率中的宽度

my.computer.screen.bounds.height

是分辨率中的高度

那么

me.top

=

(my.computer.screen.bounds.height

-

me.height)

/

2

me.left

=

(my.computer.screen.bounds.width

-

me.width)

/

2

就是让窗体居中啦~

如何给VB.NET窗体添加子窗体?

直接添加一个MID父窗体或在已有窗体的属性中找到IsMDIContainer属性,然后设置为True,然后创建第二个窗体 ,需要加载子窗体的时候:

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public Shared Sub CheckMDIChildForm(ByVal MDIForm As Windows.Forms.Form, ByVal MDIChildForm As Windows.Forms.Form, ByVal MDIChildFormName As String)

If MDIForm.MdiChildren.Length  1 Then

'如果没有任何一个MDI子窗体,则创该MDI子窗体的窗体实例

Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

MDIChildFrm.MdiParent = MDIForm '指定父窗体

MDIChildFrm.Show() '打开窗体

Exit Sub

Else

Dim x As Integer

Dim frmyn As Boolean

For x = 0 To (MDIForm.MdiChildren.Length) - 1

Dim tempChild As Windows.Forms.Form = CType(MDIForm.MdiChildren(x), Windows.Forms.Form)

If tempChild.Name = MDIChildFormName Then

'检测到有该MDI子窗体,设为激活 并退出循环

frmyn = True

tempChild.BringToFront()

Exit For

Else

frmyn = False

End If

Next

If Not frmyn Then

'在打开的窗体中没检测到则新建

Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

MDIChildFrm.MdiParent = MDIForm '指定父窗体

MDIChildFrm.Show() '打开窗体

End If

End If

End Sub

在VB。net中如何实现主窗体还在,只关闭子窗体。。

子窗体名.Close()

子窗体名.Dispose()

后者连同窗体内的对象一起销毁。

vb.net中子窗体的问题

加载内容本身与是否子窗体没有关系。

请你检查一下你加载的内容是不是存在。

下面代码,不管是否子窗体,都是正常的:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("123")

ComboBox1.Items.Add("223")

ComboBox1.SelectedIndex = 0

End Sub

你可以下载附件参考一下!


本文题目:VB.net子窗体停靠,双击窗体中的对象后vb将显示的窗口是什么
网页路径:http://cdxtjz.cn/article/dssdhdg.html

其他资讯