vb.net窗体还原 vb窗体还原代码

在vb.net中窗口关闭后打开的是代码，怎么回到窗口？

用鼠标移动到右上方的 “解决方案资源管理器”的“视图设计器”图标（见下图），可以看到系统会显示“视图设计器”文字，单击就可能出现窗体：

我们提供的服务有：网站制作、成都网站设计、微信公众号开发、网站优化、网站认证、长子ssl等。为近1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的长子网站制作公司

如果用鼠标单击该图标左边的“查看代码”按钮，就进入代码窗口；

VB 窗体最小化与还原

VB程序运行时，把窗口最大化后，窗口是不能被调整大小的（最小化除外），在程序中也不行。

设计时，可以正常窗口呈现，并屏蔽窗体的最大化按钮，自己做个替代的“最大化”按钮，实现窗体放大。当点击“最大化”时，触发Form的ReSize事件，在Form的ReSize事件中，写入：

Private Sub Form_Resize()

Form1.Left = 0

Form1.Top = 0

Form1.Width = Screen.Width

Form1.Height = Screen.Height - GetTaskbarHeight

End Sub

（当程序启动时，也会同时触发Form_ReSize的）

其中，GetTaskbarHeight的获取要写进模块文件中：

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_GETWORKAREA = 48

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Function GetTaskbarHeight() As Integer

Dim lRes As Long

Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)

GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) -rectVal.Bottom) * Screen.TwipsPerPixelX

End Function

但是，这样做还要考虑到有些人把任务栏移到其他地方的，比如左侧，右侧，甚至隐藏，所以，也是很麻烦的哦

VB.NET窗体内容很多,会不会导致窗体最小化后在还原时很卡?

所谓的“上位机传数据”，是指系统收到端口信息后，触发你代码中相应对象的事件，然后在事件处理代码中把数据写到窗体上的。不管你内容多少，还原和最小化的运行速度都和上位机本身没有关系，你看很多程序在最小化还原后很卡，要么是程序写了很多还原时触发的代码，要么是系统内存不够，把窗体移到虚拟内存(硬盘)里了。你可以用代码在窗体失去焦点激活的时候(Deactived事件)停止接收数据，还原时(Actived事件)再恢复

vb.net怎样将隐藏後的子窗体(Form2) 显示回来之後的位置与隐藏前一样，不移位？

窗体 Form1)

Me.Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)

(子窗体 Form2)

Me.Size = New Size(Screen.PrimaryScreen.WorkingArea.Width / 4, Screen.PrimaryScreen.WorkingArea.Height)

vb.net 怎样判断某个窗体是否打开

Dim F1 As New Datasystem.Form2 '实例化窗体

For Each na As Form In Application.OpenForms '打开窗体的集合

If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中

If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化

na.WindowState = FormWindowState.Normal '还原窗体

End If

na.Activate() '激活窗体

Return '返回