锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net的owner的简单介绍

IT技术选择

VB.NET 2008 怎么给软件打包？能不能做成一个exe文件？直接把代码编译生成即可，把Bin文件夹下面的几个文件拷贝过去就可以了 。客户机需要安装dot net framwork 3.5
打包过程：
一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目” 。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目” 。在“名称”框中键入 setup1 。
3. 单击“确定”关闭对话框 。
4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开 。
5. 在“属性”窗口中 ， 选择 ProductName 属性，并键入 信息管理系统。
二).将 主程序 项目的输出添加到部署项目中
1. 在“文件系统编辑器”中，选择“应用程序文件夹” 。在“操作”菜单上，指向“添加”，然后选择“项目输出” 。
2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序” 。
3. 单击“确定”关闭对话框 。
4. 从列表中选择“主输出”和“内容文件”组 ， 然后单击“确定” 。
三).创建安装程序类
1. 在“文件”菜单上指向“新建”，然后选择“项目” 。
2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库” 。在“名称”框中键入 installDB 。
3. 单击“打开”关闭对话框 。
4. 从“项目”菜单中选择“添加新项” 。
5. 在“添加新项”对话框中选择“安装程序类” 。在“名称”框中键入 installDB 。
6. 单击“确定”关闭对话框 。
7. 详细代码附后 。
四).创建自定义安装对话框
1. 在解决方案资源管理器中选择“setup1”项目 。在“视图”菜单上指向“编辑器”，然后选择“用户界面” 。
2. 在用户界面编辑器中 ， 选择“安装”下的“启动”节点 。在“操作”菜单上 ， 选择“添加对话框” 。
3. 在“添加对话框”对话框中 ， 选择“许可协议”对话框，然后单击“确定”关闭对话框 。
4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框 。
5. 在“操作”菜单上，选择“上移” 。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上 。
6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.
7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库
8. 选择 Edit1Label 属性并键入：数据库名称:
9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1
10. 选择 Edit1Value 属性并键入：dbservers
11. 选择 Edit2Label 属性并键入：服务器名:
12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2
13. 选择 Edit2Value 属性并键入：(local)
14. 选择 Edit3Label 属性并键入：用户名:
15. 选择 Edit3Value 属性并键入：sa
16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3
17. 选择 Edit4Label 属性并键入：密码:
18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4
19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true
五).创建自定义操作
1. 在解决方案资源管理器中选择“setup1”项目 。在“视图”菜单上指向“编辑器”，然后选择“自定义操作” 。
2. 在自定义操作编辑器中选择“安装”节点 。在“操作”菜单上，选择“添加自定义操作” 。
3. 在“选择项目中的项”对话框中，双击“应用程序文件夹” 。
4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框 。
5. 在“属性”窗口中 ， 选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"” 。
附:/targetdir="[TARGETDIR]\"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数 。
六).添加文件
1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件 ， 取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项” ， 如果没有，那么我们要手动将其加入步骤5）
Crystal_Managed2003.msm（如果有水晶报表）
dotnetfxredist_x86.msm（.net一定是必须的）
...（如果有引用其他的dll）
5. 如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27) ， 位于：C:\Program Files\Common Files\Merge Modules\ 下，*为必要的
具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发 。其中包括数据库、导出和图表驱动程序 。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块 ， 否则没有“MergeMouduleProperties”属性）
* Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中 。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）
VC_User_CRT71_RTL_X86_---.msm
VC_User_STL71_RTL_X86_---.msm
(很多人经常出现查询错误，不妨加上这个)
6. 打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的 “License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码?。?
七).打包时加入卸载功能：
方法一:
1.在打包项目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)
2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".
3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.
方法二:(推荐)
1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到
2.用VS.net建立一个新的控制台程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
If System.Environment.OSVersion.ToString.IndexOf("NT 5") Then
myProcess.Start("msiexec", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559}")'改为自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
八).打包时加入.net环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把
.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.
使用 Setup 项目安装 MDAC
1.确保 Visual Studio .NET 框架引导程序插件已安装 。
2.在 Solution Explorer 中选择 Setup 项目 。
从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件） 。
3.选择 Requirements on Target Machine（搜索目标计算机） 节点 。
从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索） 。
4.选择 Search for RegistryEntry1 节点 。在 Properties 窗口中，
选择 RegKey 属性，并键入 Software\Microsoft\DataAccess 。
5.选择 Root 属性，并选择 vsdrrHKLM 。
6.选择 Value 属性 ， 并键入 FullInstallVer 。
7.选择 Property 属性 ， 并键入 MDACSEARCH 。
8.在 Launch Conditions Editor（启动条件） 中 ， 添加Condition1 节点 。
选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6" 。
9.在 Solution Explorer 中选择 Setup 项目 。在 Project 菜单上 ， 选择 Properties 。
10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序） 。
附：
installdb.vb类,要添加引用 system.configuration.install.dll :
Imports System.ComponentModel
Imports System.Configuration.Install
RunInstaller(True) Public Class Installer1
Inherits System.Configuration.Install.Installer
#Region " 组件设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是组件设计器所必需的 。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'Installer 重写 dispose 以清理组件列表 。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'组件设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是组件设计器所必需的
'可以使用组件设计器来修改此过程 。
'不要使用代码编辑器来修改它 。
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub
#End Region
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
If Not InstallDB() Then
'失败，反安装
Me.Uninstall(stateSaver)
Exit Sub
End If
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
'执行反安装
MyBase.Uninstall(stateSaver)
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Private Sub DeleteFile(ByVal paths As String)
'删除指定的文件
Try
Dim delFile As New System.IO.FileInfo(paths)
If delFile.Exists Then
delFile.Delete()
End If
Catch ex As Exception
End Try
End Sub
Private Sub CreateSql(ByVal paths As String)
Dim File As System.IO.StreamWriter
Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname"))
Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir"))
Try
Dim s As New System.Text.StringBuilder
s.Append("use master"vbCrLf)
s.Append(""vbCrLf)
s.Append("if not exists (select * from sysdatabases where name='"db"')"vbCrLf)
s.Append(" BEGIN"vbCrLf)
s.Append("create database "dbvbCrLf)
s.Append(" END"vbCrLf)
s.Append(""vbCrLf)
s.Append("if exists (select * from sysdevices where name='DBdisk')"vbCrLf)
s.Append(" BEGIN"vbCrLf)
s.Append("EXEC sp_dropdevice 'DBdisk'"vbCrLf)
s.Append(" END"vbCrLf)
s.Append("Else"vbCrLf)
s.Append(" BEGIN"vbCrLf)
s.Append("EXEC sp_addumpdevice 'disk','DBdisk', '"path"DB.dat'"vbCrLf)
s.Append(" END"vbCrLf)
s.Append(""vbCrLf)
s.Append("restore database "dbvbCrLf)
s.Append("from disk='"path"DB.dat'"vbCrLf)
s.Append("with replace")
File = New System.IO.StreamWriter(paths)
File.Write(s.ToString)
Catch ex As Exception
Finally
File.Close()
End Try
End Sub
Private Function InstallDB() As Boolean
'安装数据库，调用自动批处理 。
Try
'创建临时脚本
CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
'调用osql执行脚本
Dim sqlProcess As New System.Diagnostics.Process
sqlProcess.StartInfo.FileName = "osql.exe"
sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir"))
sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
sqlProcess.Start()
sqlProcess.WaitForExit()'等待执行
sqlProcess.Close()
'删除脚本文件
DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
网上的另外一种installdb.vb类
installdb.vb类,要添加引用 system.configuration.install.dll :
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Reflection;
using System.IO;
using System.Data;
using System.Data.SqlClient;
namespace install
{
/// summary
/// Installer1 的摘要说明 。
/// /summary
[RunInstaller(true)]
public class Installer1 : System.Configuration.Install.Installer
{
/// summary
/// 必需的设计器变量 。
/// /summary
private System.ComponentModel.Container components = null;
public Installer1()
{
// 该调用是设计器所必需的 。
InitializeComponent();
// TODO: 在 InitializeComponent 调用后添加任何初始化
}
/// summary
/// 清理所有正在使用的资源 。
/// /summary
protected override void Dispose( bool disposing )
{
if( disposing )
{
if(components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region 组件设计器生成的代码
/// summary
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容 。
/// /summary
private void InitializeComponent()
{
components = new System.ComponentModel.Container();
}
#endregion
privatestring GetSql(string Name)
{
////调用osql执行脚本
//
//System.Diagnostics.Process sqlProcess = new System.Diagnostics.Process();
//
//sqlProcess.StartInfo.FileName = "osql.exe";
//
//sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql", this.Context.Parameters["user"], this.Context.Parameters["pwd"],"master", this.Context.Parameters["targetdir"]);
//
//sqlProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden;
//
//sqlProcess.Start();
//
//sqlProcess.WaitForExit() ;//等待执行
//
//sqlProcess.Close();
try
{
//Assembly Asm = Assembly.GetExecutingAssembly();
//System.IO.FileInfo FileInfo = new System.IO.FileInfo(Asm.Location);
//string path=FileInfo.DirectoryName @"\" Name;
string path=this.Context.Parameters["targetdir"] Name;
FileStream fs=new FileStream(path,FileMode.Open,FileAccess.Read,FileShare.Read);
StreamReader reader = new StreamReader(fs,System.Text.Encoding.Default);
//System.Text.Encoding.ASCII;
return reader.ReadToEnd();
}
catch (Exception ex)
{
Console.Write("In GetSql:" ex.Message);
throw ex;
}
}
private void ExecuteSql(string DataBaseName,string Sql)
{
SqlConnection sqlConnection1=new SqlConnection();
sqlConnection1.ConnectionString =string.Format("server={0}; user id={1}; password={2}; Database=master",this.Context.Parameters["server"],this.Context.Parameters["user"],this.Context.Parameters["pwd"]);
System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClient.SqlCommand(Sql,sqlConnection1);
try
{
Command.Connection.Open();
Command.Connection.ChangeDatabase(DataBaseName);
Command.ExecuteNonQuery();
}
catch(Exception ex)
{
Console.Write("In exception handler :" ex.Message);
}
finally
{
Command.Connection.Close();
}
}
protected void AddDBTable(string strDBName)
{
try
{
ExecuteSql("master","Create DATABASE "strDBName);
ExecuteSql(strDBName,GetSql("sql.txt"));
ExecuteSql("master","exec sp_addlogin 'myoamaster','myoamaster','" strDBName "',Null,Null");
ExecuteSql(strDBName,"EXEC sp_grantdbaccess 'myoamaster', 'myoamaster'");
ExecuteSql(strDBName,"exec sp_addrolemember 'db_owner','myoamaster'");
}
catch(Exception ex)
{
Console.Write("In exception handler :" ex.Message);
}
}
public override void Install(System.Collections.IDictionary stateSaver)
{
base.Install(stateSaver);
AddDBTable(this.Context.Parameters["dbname"]);
}
}
}
这里有个sql.txt是数据库的sql脚本,当然可以调用osql来执行sql脚本，其实是一样的 。
打包的时候必须把sql.txt文件加进来，否则不会执行 。
如果你想附加数据库的mdf文件和ldf文件 ， 用下面这段程序：
private void CreateDataBase(string strSql,string DataName,string strMdf,string strLdf)
{
String str;
SqlConnection myConn = new SqlConnection (strSql);
//EXEC sp_detach_db @dbname = 'BX_FreightMileage_2'//需要先将数据库分离出来
str = "EXEC sp_attach_db @dbname = '"DataName"', @filename1 = '"strMdf"',@filename2='" strLdf "'";
SqlCommand myCommand = new SqlCommand(str, myConn);
myConn.Open();
myCommand.ExecuteNonQuery();
myConn.Close();
}
当然打包的时候也要把这两个数据库文件也加进来 。
vb.net中怎么调用DirectX来播放视频使用Microsoft.DirectX.AudioVideoPlayback组件 。
首先vb.net的owner，需要安装DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后将对Microsoft.DirectX.AudioVideoPlayback.dllvb.net的owner的引用添加到你的项目 。
使用这段代码在Panel控件上放置一个视频文件vb.net的owner：
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
'以前收集的资料vb.net的owner ， 没用过,你自己整整
2)使用Windows Media Player控件也能播放视频 。
右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件将会出现在工具箱上 。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件 。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件 。
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窗体间的数据传递在编写VB.Net windows应用程序的时候vb.net的owner我们经常会遇到这种问题，怎么样在两个窗体间传递数据呢？例如，用VB.Net做一个文本编辑器 ， 里面有一个搜索功能（即搜索我打开的文本里面的文字），点搜索则弹出搜索对话框，输入要搜索的内容 ， 然后确定，就可以搜索到我打开的文本里面的文字了，这里就用到了两个窗体间的相互通信 。我查看了相关的资料想了想，得出一些想法和方法 。
也许有的人会觉得这个很简单呀 。假如主框架为Form1，打开的搜索对话框是Form2.直接在Form2类中申明一个Form1实例：dim f1 as new Form1然后就可以通过f1来调用Form1中的域和函数了 。其实不是这样的，vb.net的owner你申明的新的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问题me.dispose是最彻底释放资源； Me.Close 是关闭 end 只是结束 一般用在程序的语句中 ， 如结束语句 。
执行 dispose 后,由.net 的GC垃圾回收器周期性地回收资源, me.close 方法的基类会调用 dispose 方法end 是从vb中继承下来的语句,直接指示退出程序.程序的资源将被释放,程序并未希望结束时,不适合使用该方法.若要强行退出应用程序,
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.ToStrings(i), ListBox1.Font)
If sf.Widthw 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的owner的简单介绍】关于vb.net的owner和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：初始电脑怎么连接网络电视，初始电脑怎么连接网络电视机顶盒

    下一篇：区块链联盟发展，区块链网络发展联盟