vb.net如何创建子类,vbs创建对象

用vb.net编写的程序怎么封装?

两个方法：

1、Visual Studio，新建项目，最后一个类别就是封装程序用的

我说的是左边的大类(VB.net,C#,J#那些的最后一个)，不是右边的子类

2、LS说的方法虽然可以，但是一般不是用debug，要用release版本！调试程序的地方会有debug,release两个选择，正式使用要用release!

但是LZ要注意，dotNet开发的程序，离开了FrameWork就基本不能运行，所以你拿到别的机器用，先确认安装了Framework！如果你用第一种方法，那么会自动监测系统是不是装了Framework；第二种方法的话，没有Framework程序是直接报错！

相关问答

Q1: 在vb.net中怎么调用自定义类？

代码已测试。

一、测试需要的INI文件。名称为“setinfo.ini”，存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。

内容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的类。新建一个类，类中内容为：

Public Class Class1

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Int32, _

ByVal lpFileName As String _

) As Int32

End Class

三、界面代码：

Imports System.IO 'for path

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

getINI()

End Sub

Private Sub getINI()

Dim iniclass As New Class1 '

Dim myBf As String 'get set_info 开辟存储的内存

myBf = New String(CChar(""), 256)

Dim myFN As String '配置文件的文件路径

myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")

Dim myAN As String 'Application_NAME,也是Section名称

myAN = Me.TextBox1.Text

Dim myKN As String 'KEY_NAME,关键字名称

myKN = Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作

TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要

End Sub

End Class

四、测试截图如下

Q2: vb.net 自建类生成类e似xx.item(0).value或者xx.Name("zhangshan").Value

'这是数组的一个方法了，可是可以给数组定义扩展方法来实现这种形式。不过要给Item每个成员能动态生成相应方法，想不出其它简单点的办法，只能一个一个的添加扩展方法。

Namespace 测试

    Public Class Item

        Public Number() As String

        Public Name As String

        Public Symbol As String

        Public Value As Single

        Public Unit As String

        Public Description As String

        Public Remarks As String

    End Class

    Public Class XX

        Public tty() As Item

        Public Sub New()

            tty(0).Name = "Women"

            tty(0).Value = 198000

            tty(1).Name = "temen"

            tty.Name("temen").Value = 99999

        End Sub

    End Class

    Public Module Module1

        System.Runtime.CompilerServices.Extension() _ 

        Public Function Name(ByVal she As Item(), ByVal key As String) As Item '定义扩展方法功能 在net.3.5前的版本像似没有。

            For Each it In she

                If it.Name = key Then

                    Return it

                End If

            Next

            Return Nothing

        End Function

    End Module

End Namespace

Q3: VB如何创建主窗体的子窗体

vb6建立主窗体的子窗体有两种方法：

第一种方法是建立一个MDI窗体，然后把普通的form窗体设置成它的子窗体。

第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。

一、先来看看如何建立MDI窗体的子窗体：

1、启动vb6,新建一个标准EXE工程。

2、在“工程”菜单里选择“添加MDI窗体”，

点击“打开”，添加了一个MDIForm1窗体，

这步也可以工程窗口的窗体图标上右键完成。

3、在“工程”菜单里选择“XXX 属性”，

在弹出的窗口里把启动对象设成MDIForm1。

4、在form1的属性窗口里，把MDIChild属性设置为True。

5、在Private Sub MDIForm_Load()过程里添加form1.show。

6、运行程序，看到设置已经成功。

二、使用Windows API建立子窗体：

1、1、启动vb6,新建一个标准EXE工程。

2、在“工程”菜单里选择“添加窗体”，

点击“打开”，添加了一个form2窗体，

这步也可以工程窗口的窗体图标上右键完成。

3、双击form1窗体，在通用里加入以下windows API:

Private Declare Function SetParent Lib "user32.dll" ( _

ByVal hWndChild As Long, _

ByVal hWndNewParent As Long) As Long

4、在form1的Private Sub Form_Load()过程里加入

Form2.Show

SetParent Form2.hWnd, Form1.hWnd

Form2.Move 0, 0

5、运行程序，可以看form2已经是form1的子窗体了。

6、完整程序代码如下：

Option Explicit

Private Declare Function SetParent Lib "user32.dll" ( _

ByVal hWndChild As Long, _

ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()

Form2.Show

SetParent Form2.hWnd, Form1.hWnd

Form2.Move 0, 0

End Sub