vb.netowner的简单介绍

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在用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 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中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.net问题

Me.Close是关闭窗体,如果程序只有一个主窗体,就直接关闭程序了

Me.Dispose用来释放组件,通常不需要手工调用它

End是强制关闭程序,而不理程序现在的状态,只有万不得已的情况下,才使用这个命令。

正常都会调用Me.Close,然后Me.Close就会自动调用Me.Dispose。

所以Me.Close是资源释放最彻底的方式。

而End是资源释放最不彻底的方式。


本文题目:vb.netowner的简单介绍
浏览路径:http://bzwzjz.com/article/hchoho.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 网站建设改版 重庆网站制作 成都网站建设 成都网站建设 广安网站设计 公司网站建设 温江网站设计 成都网站建设公司 网站设计 成都网站设计 宜宾网站设计 成都营销网站制作 成都网站建设 四川成都网站制作 成都网站制作 达州网站设计 网站设计公司 网站建设 重庆网站设计 成都网站设计 成都网站建设推广 手机网站建设