VB.NET窗体间的数据传递

在编写VB.Net windows应用程序的时候我们经常会遇到这种问题，怎么样在两个窗体间传递数据呢？例如，用VB.Net做一个文本编辑器，里面有一个搜索功能（即搜索我打开的文本里面的文字），点搜索则弹出搜索对话框，输入要搜索的内容，然后确定，就可以搜索到我打开的文本里面的文字了，这里就用到了两个窗体间的相互通信。我查看了相关的资料想了想，得出一些想法和方法。

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

也许有的人会觉得这个很简单呀。假如主框架为Form1，打开的搜索对话框是Form2.直接在Form2类中申明一个Form1实例：dim f1 as new Form1然后就可以通过f1来调用Form1中的域和函数了。其实不是这样的，你申明的新的Form1实例不是原来的那个Form1对象了，这样操作的是新的Form1中的域和函数，和最先打开的Form1是没有关系的。

那应该如何来完成两个窗体的通讯呢？我们要做的是把当前的Form1实例传递给Form2，如果是这样的话，问题就很好解决了。

方法1：首先，我们在Form2中定义：

Private mF_Form As Form1

我们更改Form2的构造函数为有参数的

Public Sub New(ByVal form As Form1)

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

Me.mF_Form = form

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

在Form1中，我在 要用到Form2的地方申明如下：

Dim f1 As New Form2(Me)

这里的me指的就是Form1当前的实例,也就是把当前Form1的实例通过Form2的构造函数传递给Form2类（其实在网上看到过比较蠢的方式，就是在构造函数里面传递要传递的信息如：字符串或是数字等，这样做很有局限性，不能传递其他的，所有我们可以直接传递实例,来完成传递更多的信息。）

这样在Form2中使用myForm 就可以对原来的Form1窗口进行操作了。但是你要把要操作的Form1中的域和函数定义成public形式的（这样可能不安全），此时的myForm就是真正的最开始打开的Form1了，你可以用这个实例来进行两个窗体的通讯了。

方法2：其实VB.Net中提供了窗体间进行通讯的现成的属性，呵呵，我们能想到的，微软也想到了，他们创造的语言其实确实可以说是人性化了。

在Form1类中申明Form2时用如下代码：

Dim f2As New Form2 '类Form2中的构造函数不改，还是无参的

f2.owner=me

也可以使用函数的方法，给当前实例添加一个附属窗口 代码：Me.AddOwnedForm(f2)

在Form2类的定义中写如下代码：

dim f1 as Form1=me.owner

这样f1对应的就是原来的Form1的实例了，也就可以用这个进行通讯了。但是还是要把不同类之间访问的域和函数定义成public，哎,安全确实是一个问题！！

vb.net中怎么调用DirectX来播放视频

使用Microsoft.DirectX.AudioVideoPlayback组件。

首先，需要安装DirectX SDK.

DirectX 9.0c Redistributable

DirectX 9.0 SDK Update

然后将对Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的项目。

使用这段代码在Panel控件上放置一个视频文件：

ImportsMicrosoft.DirectX.AudioVideoPlayback

Public Class Form1

Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load

Dim videoFile As Audio =New Audio("D:\Video1.avi")

videoFile.Owner = Panel1

videoFile.Play()

EndSub

EndClass

'以前收集的资料，没用过,你自己整整

2)使用Windows Media Player控件也能播放视频。

右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件

然后“Windows Media Player”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。

AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"

Media Player控件默认将会自动播放文件。

vb.net中listbox内容自动换行如何实现

也不是不可以实现，只不过复杂一点而已，具体看下面代码。不过在需要换行等情况下的文本显示，还是建议用RichTextBox开启只读属性比较省心、比较合适。

Private Sub AutoNextRow()

'获取ListBox行集合文本

Dim length As Integer = (ListBox1.Items.Count - 1)

Dim items(length) As String '行文本数组

For i As Integer = 0 To length

items(i) = ListBox1.Items(i).ToString

Next

'处理ListBox换行

ListBox1.Items.Clear() '清空行内容

Using g As Graphics = Graphics.FromHwnd(ListBox1.Handle)

Dim result As New List(Of Object)

Dim w As Single = ListBox1.ClientSize.Width

Dim sf As SizeF, str As StringBuilder

For Each s As String In items

str = New StringBuilder

For i As Integer = 0 To (s.Length - 1)

sf = g.MeasureString(str.ToString  s(i), ListBox1.Font) 

If sf.Width  w Then

result.Add(str.ToString)

str = New StringBuilder

End If

str.Append(s(i))

If i = s.Length - 1 Then result.Add(str.ToString)

Next

Next

ListBox1.Items.AddRange(result.ToArray) '填充行内容

End Using

End Sub

VB或VB.NET 能不能取到BIOS中的信息

通过Microsoft WMI Scripting Library就可以了，你试一试在工程－引用下面引用 Microsoft WMI Scripting 1.2 Library Dim s, System, item

Dim i As Integer

Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")

For Each item In System

'List1.AddItem item.cputype

s = "Computer Info" vbCrLf

s = s "***********************" vbCrLf

s = s "计算机名称: " item.Name vbCrLf

s = s "状态: " item.Status vbCrLf

s = s "类型: " item.SystemType vbCrLf

s = s "生产厂家: " item.Manufacturer vbCrLf

s = s "型号: " item.Model vbCrLf

s = s "内存: ~" item.totalPhysicalMemory / 1024000 "mb" vbCrLf

s = s "域: " item.domain vbCrLf

s = s "工作组" item.Workgroup vbCrLf '获得工作组和域的选项不能同时用

s = s "当前用户: " item.username vbCrLf

s = s "启动状态" item.BootupState vbCrLf

s = s "该计算机属于" item.PrimaryOwnerName vbCrLf

s = s "系统类型" item.CreationClassName vbCrLf

s = s "计算机类类型" item.Description vbCrLf

' For i = 0 To 1 '这里假设安装了两个系统

' s = s Chr(5) "启动选项" i " :" item.SystemStartupOptions(i) vbCrLf

' Next i

Next

Text1.Text = s 把上面这些代码放在一个按钮的Click事件里，并在窗体 上放一个TEXT叫TEXT1，并把text1.MultiLine 设成True，把text1.ScrollBars设成 2 试一试就知道了

VB.NET在用Show方法载入窗口时如何将模式设置为对话框，父窗口为Me？

这是C#的方法，你自己转换为vb.net的，转不了再追问吧。

private void button1_Click(object sender, EventArgs e)

{

Form2 frm = new Form2();

frm.Show();

frm.Owner = this;

MethodInfo mi = typeof(Application).GetMethod("RunDialog", BindingFlags.Static | BindingFlags.NonPublic);

mi.Invoke(null, new object[] { frm});

}

vb.net 窗体之间怎么传值

方法很多，vb.net很简单的比如： Form2窗体的Textbox2属性设置为public，在Form1点击button1.

Dim frm As New Form2

frm.TextBox2.Text = "123"

frm.ShowDialog() 可以取到form1里面窗体传的值

还有一种方法：From1 ：

Dim frm As New Form2

frm.Owner = Me

frm.ShowDialog()

from2 : Private frmParent As Form1

frmParent = Me.Owner

Me.TextBox2.Text = frmParent.TextBox1.Text

文章标题：vb.net的owner aspnet vb
转载注明：http://kswjz.com/article/hhcjjd.html