锐客网

  1. 首页 > 睿知 > it技术 > >

vb.netNEW窗体 vb创建窗体的代码

IT技术窗体

vb.net 中new的具体用法?以及实例化是什么意思?.new
就是实例化 ， 比如实例化一个类，你才能访问，，
好比，你是张三，把你的地址告诉了我，我在能找到你家在哪 ， 这个过程就可以称为实例化 。
使用New关键字建立一个新的对象和用它属的类来定义是一样的 。New关键字可以被用作来建立一个窗体、类模块以及集合的实例 。用户在设计的时候建立的每一个窗体都是一个类 。New关键字能够用来建立一个类的实例 。
可以通过以下步骤来建立一个类的实例：
(1)在窗体上画一个按钮和几个其他的控件 。
(2)按钮的Click事件过程加入以下代码：
Dim
x
AS
New
Form1
x.Show
(3)运行程序，并且点击几次按钮 ， 把最前面的窗体移开，因为窗体是一个有可视界面的类，此时可以看见有很多窗体的拷贝，每一个窗体具有相同的控件 ， 并且出现在一个地方 。
(4)将列代码加到按钮的click事件过程中：
Dim
f
As
Form1
【vb.netNEW窗体 vb创建窗体的代码】f=New
Form1
f.text="hello"
f.Show
使用New关键字可以从类模块中定义的类中建立一个新的集合和对象，要知道它们怎样工作，可以参考下面的例子：
(1)建立一个新的工程，并且在一个名为Form1的窗体上画一个按钮控件 。
(2)在Project(项目)菜单下，选择"Add
Class"给工程添加一个类
(3)把新的类命名为ShowMe.VB
(4)在该新类中加入如下代码：
PUblic
Class
ShowMe
Sub
ShowFrm()
Dim
frmNew
As
Form1
frmNew=New
Form1
frmNew.Show()
frmNew.WindowState=1
End
Sub
End
Class
(5)在Button1_click事件的过程中加入如下代码：Protected
Sub
Button1_Click(Byval
sender
As
System.Object,_
Byval
AS
System.EventArgs)
Dim
clsNew
As
New
ShowMe()
clsNew.ShowFrm()End
Sub
运行程序，并且点击几次按钮 ， 将看见每创建一个ShowMe类的新的实例时，在桌面上有一个最小化的窗体的图标 。
New关键字只能用来建立一个类的对象，不能建立一个基于基本的数据类型的对象，例如Integer 。而且，不能建立一个基于一个具体对象的对象 。例如，下面的代码根据一个名为SomeClass的类，建立了一个名为Objx的对象，面后又错误地企图根据对象Objx再建立一个其他的对象：
Dim
Objx
As
New
SomeClass()
Dim
Objx
AS
New
Objx()
以上代码是非法的 。
呵呵##~
VB.NET 拖动无边框窗体编程实例 Imports System Drawing Imports System Windows Forms****************************************** Private oOriginalRegion As Region = Nothing用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point以当前鼠标位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y))根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y_ SystemInformation CaptionHeight_ SystemInformation BorderSize Height) * )移动窗体 Me Location = oMoveToPoint End If
lishixinzhi/Article/program/ASP/201311/21755
vb.net中怎么可以让窗体全屏显示？Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
这是设置窗体的长宽和屏幕的分辨率一样大?。?相当于全屏 。
如果Me.WindowState=FormWindowState.Maximized的话，只是单纯的将窗体最大化，但恢复窗口大小后窗体的大小实际上还和原来一样大 。
VB.NET的特点
1.真正成为面向对象以及支持继承性的语言 。
2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据 。
3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性 ， 也可以与其他的.NET语言交互 。
4.为Windows应用程序提供了XCOPY部署 ， 开发者不再需要为DLL的版本问题担忧 。
如何给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.Length1 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的五个技巧之窗体嵌套NET框架组件太大了 比任何以前所写的封装功能的库都要大 这样有好处 因为它大幅削减了建立应用程序所需编写的代码 但是也使我们不可能完全了解该框架组件 但是我们很容易从中找到一些技巧
窗体嵌套
经验丰富的Visual Basic开发者知道多文档界面（MDI）应用程序能够包含子窗体 那些子窗体由MDI父窗体管理 但是如果没有MDI的能力你怎样实现包含嵌套窗体？例如一个MDI子窗体也可能需要包含另一个窗体
有时能够使用用户控件（UserControl）实现这种功能 但是如果你真的需要把一个窗体嵌套进另一个窗体 有多种方法可以实现 窗体衍生自Control类 这意味着它能被放入另一个窗体的控件集合中 使用如下的逻辑
Dim f As New frmEmbed ()Me Controls Add(f)f Show()
但是很不幸 这段代码将会导致一个运行时（runtime）异常（见图 ）
图 试图把一个窗体添加到另一个窗体的控件集合时出现的运行时错误
为了避免这种异常 该窗体的TopLevel属性必须设置为False（见下面的代码）
Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()
图 显示的是使用上面的逻辑实现的一个窗体嵌入另一个窗体 嵌入的窗体有一个标题条（它的颜色是未激活的系统颜色） 因此该嵌入窗体能在容器窗体内四处拖动 在图 中 该窗体从它的开始位置（左上角）拖到了右下角
图 在容器窗体中有一个嵌入的窗体 嵌入的窗体能在容器窗体中拖动
通常在显示嵌入的窗体前先设置它的位置 这只需要简单的设置嵌入窗体的Left和Top属性 嵌入窗体的位置与容器窗体是相对的
与MDI子窗体不同 嵌入窗体能覆盖容器窗体上的控件 图 显示了它们的不同
图 嵌入窗体（左）可以覆盖容器窗体上的控件 MDI子窗体（右）不能覆盖MDI父窗体上的控件
在右边的MDI例子中 没有办法使按钮隐藏在子窗体的后面 但是在左边该按钮被嵌入窗体覆盖了
当窗体第一次被嵌入时 它将显示在容器窗体上的已存在的控件的后面 当它被点击时 它走向前台并停留在那儿 这会打扰用户 但是能通过插入下面的代码防止这种情况发生
f BringToFront（）
嵌入的窗体可以包含其它的嵌入窗体 没有实际的限制 图 显示了一个本身包含嵌入的窗体的嵌入窗体
lishixinzhi/Article/program/net/201311/12398
如何创建vb.net窗体dim 一个窗体 as new form
with 一个窗体
.location=...
.size=...'这里是设置窗体vb.netNEW窗体的位置等属性
end with
一个窗体.show
vb.netNEW窗体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb创建窗体的代码、vb.netNEW窗体的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何购买H1Z1的其他服务器？ h1z1怎么买别的服务器

    下一篇：如何保护自己搭建的服务器免受攻击？ 自己搭建服务器怎么做防御