vb.net如何创建对象 c# 创建对象

vb.net 中new的具体用法?以及实例化是什么意思?.

new

专注于为中小企业提供成都网站设计、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业谯城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了成百上千企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

就是实例化，比如实例化一个类，你才能访问，，

好比，你是张三，把你的地址告诉了我，我在能找到你家在哪，这个过程就可以称为实例化。

使用New关键字建立一个新的对象和用它属的类来定义是一样的。New关键字可以被用作来建立一个窗体、类模块以及集合的实例。用户在设计的时候建立的每一个窗体都是一个类。New关键字能够用来建立一个类的实例。

可以通过以下步骤来建立一个类的实例：

(1)在窗体上画一个按钮和几个其他的控件。

(2)按钮的Click事件过程加入以下代码：

Dim

x

AS

New

Form1

x.Show

(3)运行程序，并且点击几次按钮，把最前面的窗体移开，因为窗体是一个有可视界面的类，此时可以看见有很多窗体的拷贝，每一个窗体具有相同的控件，并且出现在一个地方。

(4)将列代码加到按钮的click事件过程中：

Dim

f

As

Form1

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如何定义一个有属性的对象

用type关键字定义（VB.NET是Structure关键字）

或者定义一个class.VB6是类模块，VB.NET就是class类

例(VB6)

type Point

X as Integer

Y as Integer

end type

条用 dim zuobiao as point

zuobiao.x=你想要的X

zuobiao.y=你想要的Y

VB.NET

Structure Point

Dim X As Integer

Dim Y As Integer

End Structure

条用，要先创建实例对象

Dim X As New Point

X.X = 0

X.Y = 0

用VB.NET编程有什么好处?

vb.net是基于.NET框架的完全对向对象的编程语言，而vb 6.0只是半面向对象的语言，使用vb.net可以编制出功能更加强大的windows程序。现在，我们把vb.net和vb 6.0做一下比较，看看vb.net对比vb 6.0有着什么样的特性和优点。 1.在vb 6.0中，创建对象的时候，需要等这个对象创建完毕后，再另外调用一个独立的方法对其进行初始化。在vb.net中， 可以利用构造函数为对象赋初值，这样就不需要进行烦琐的调用赋初值了。构造函数的使用，简化了编码的过程和出错的机会。 2.vb.net编写线程的能力比vb 6.0有很大的增强。 3.在vb 6.0中，需要首先声明一个变量，然后才能对其赋值，这样就需要写两行代码。在vb.net中，可以 使用初始化函数将这两个步骤合并在一行代码中完成，这个似乎微小的改进，提供了更少、更简单、更易于维护的代码。 4.vb.net基于.NET框架，开发者可以快速的可视化开发网络应用程序、网络服务、Windows应用程序和服务器端组件。 5.因为vb.net是基于.NET框架的，可以与其它.NET语言协同工作。 6.在vb.net中，通过Web窗体及ADO.NET，开发者可以快速开发可扩展的Web站点。 如果你能进一步学习vb.net,你会发现更多的新特性和优点。

VB 控件使用问题，高手请进

用CreateObject方法创建控件，或者把对应的文件打包在同一目录，或者打包进程序里面待使用的时候再动态释放出来，还有两种动态调用的方法可供参考：

（1）VB使用未注册的ActiveX代码

''IDE下可以引用那个dll使用。编译后可以在未注册dll的计算机上正常工作了。

''使用方法：

''Dim pDll As Long ''记录Dll，用来最后完美释放

''Dim Update As Update.Handle ''要实例化的对象

''Set Update = LoadObjectByName(App.Path  "Update.dll", "Handle", pDll) '' New Update.Handle

''If Update Is Nothing Then Exit Sub

''Update.Test ''--类中的方法

''Set Update = Nothing ''-----这句不能少，否则会出现意外错误

''UnLoadDll pDll ''----释放

''模块中：

Option Explicit

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryW" (ByVal lpLibFileName As Long) As Long

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Private Declare Function CallAsmCode Lib "user32" Alias "CallWindowProcW" (FirstAsmCode As Long, ByVal pA As Long, ByVal pB As Long, ByVal pC As Long, lpD As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private AsmCode(94) As Long

Function LoadObjectByName(ByVal DllPath As String, ByVal ClsName As String, pDll As Long) As Object

Dim pObj As Long, TLIAPP As Object, TLI As Object

Dim CLSID As String, IID As String, IIDName As String

On Error GoTo Err

Set TLIAPP = CreateObject("TLI.TLIApplication")

Set TLI = TLIAPP.TypeLibInfoFromFile(DllPath)

IIDName = "_"  Trim(ClsName)

CLSID = TLI.GetTypeInfo(Trim(ClsName)).GUID

IID = TLI.GetTypeInfo(Trim(IIDName)).GUID

Set LoadObjectByName = LoadObjectByID(DllPath, CLSID, IID, pDll)

Set TLI = Nothing

Err:

End Function

Function LoadObjectByID(ByVal DllPath As String, ByVal CLSID As String, ByVal IID As String, pDll As Long) As Object

Dim pObj As Long

Call InitAsmCode

pObj = CallAsmCode(AsmCode(20), StrPtr(DllPath), StrPtr(CLSID), StrPtr(IID), pDll)

CopyMemory LoadObjectByID, pObj, 4

End Function

Function UnLoadDll(pDll As Long) As Long

Call InitAsmCode

UnLoadDll = CallAsmCode(AsmCode(79), pDll, 0, 0, 0)

End Function

Private Sub InitAsmCode()

If AsmCode(4) Then Exit Sub

Dim pDll As Long

pDll = LoadLibrary(StrPtr("kernel32"))

AsmCode(0) = GetProcAddress(pDll, "LoadLibraryW")

AsmCode(1) = GetProcAddress(pDll, "GetProcAddress")

AsmCode(2) = GetProcAddress(pDll, "FreeLibrary")

Call FreeLibrary(pDll)

AsmCode(4) = H476C6C44

AsmCode(5) = H6C437465

AsmCode(6) = H4F737361

AsmCode(7) = H63656A62

AsmCode(8) = H4C430074

AsmCode(9) = H46444953

AsmCode(10) = H536D6F72

AsmCode(11) = H6E697274

AsmCode(12) = H10067

AsmCode(13) = H0

AsmCode(14) = HC00000

AsmCode(15) = H0

AsmCode(16) = H6F4600

AsmCode(17) = H65006C

AsmCode(18) = H320033

AsmCode(19) = H0

AsmCode(20) = H83EC8B55 ''创建对象函数入口

AsmCode(21) = HE853D8C4

AsmCode(22) = H0

AsmCode(23) = H6CEB815B

AsmCode(24) = H8D100010

AsmCode(25) = H105293

AsmCode(26) = H93FF5210

AsmCode(27) = H10001010

AsmCode(28) = H32938D50

AsmCode(29) = H52100010

AsmCode(30) = H1493FF50

AsmCode(31) = H8D100010

AsmCode(32) = H101C93

AsmCode(33) = HFF028910

AsmCode(34) = H101893

AsmCode(35) = H875FF10

AsmCode(36) = H101093FF

AsmCode(37) = HC00B1000

AsmCode(38) = H86840F

AsmCode(39) = H45890000

AsmCode(40) = H20938DFC

AsmCode(41) = H52100010

AsmCode(42) = H1493FF50

AsmCode(43) = HB100010

AsmCode(44) = H506674C0

AsmCode(45) = H52EC558D

AsmCode(46) = HFF0C75FF

AsmCode(47) = H101C93

AsmCode(48) = H558D5810

AsmCode(49) = H938D52D8

AsmCode(50) = H10001042

AsmCode(51) = HEC558D52

AsmCode(52) = HBD0FF52

AsmCode(53) = H8D3E75C0

AsmCode(54) = HFF52DC55

AsmCode(55) = H93FF1075

AsmCode(56) = H1000101C

AsmCode(57) = HD8558B50

AsmCode(58) = H8D54128B

AsmCode(59) = H6A50DC45

AsmCode(60) = HD875FF00

AsmCode(61) = HB0C52FF

AsmCode(62) = H8B1575C0

AsmCode(63) = H4D8BFC45

AsmCode(64) = H59018914

AsmCode(65) = H8BD18B51

AsmCode(66) = H52FF5112

AsmCode(67) = H14EB5804

AsmCode(68) = HEB06EB58

AsmCode(69) = HEB02EB0F

AsmCode(70) = HFC75FF0B

AsmCode(71) = H101893FF

AsmCode(72) = HC0331000

AsmCode(73) = H10C2C95B

AsmCode(74) = H6C6C4400

AsmCode(75) = H556E6143

AsmCode(76) = H616F6C6E

AsmCode(77) = H776F4E64

AsmCode(78) = H0

AsmCode(79) = H53EC8B55 ''尝试卸载DLL函数入口

AsmCode(80) = HE8

AsmCode(81) = HEB815B00

AsmCode(82) = H10001155

AsmCode(83) = H1139938D

AsmCode(84) = HFF521000

AsmCode(85) = H93FF0875

AsmCode(86) = H10001014

AsmCode(87) = H1374C00B

AsmCode(88) = HC00BD0FF

AsmCode(89) = H75FF0E74

AsmCode(90) = H1893FF08

AsmCode(91) = H33100010

AsmCode(92) = H4801EBC0

AsmCode(93) = H10C2C95B

AsmCode(94) = H90909000

End Sub

（2）vb.net 通过类厂创建com对象的方法

vb.net中要创立com对象可以用new或者CreateObject,就像C++中的CoCreateInstance，一步调用就直接创建了com对象。在它们之中包括了对CoGetClassObject和CreateInstance的调用。默认使用的类厂是IClassFactory。 

一般情况下，new或CreateObject已经够用了。但是如果我们的com组件增加了授权，也就是使用了IClassFactory2接口。那么在vb中继续用这种方法就不能创建我们所需要的组件了。我们必须使用IClassFactory2。

在C++中实现很简单。只需要通过CoGetClassObject获得IClassFactory2接口，然后调用它的CreateInstanceLic来创建组件。

因此，在vb.net中,我们就可以仿照c++中的方法。下面是相关代码：

首先声明IClassFactory2的接口。IClassFactory2.idl如下：

[

uuid(6ED6AF97-F279-4d57-A392-0B8ACF89426C),

version(1.0),

helpstring("INVENTOROCIDL Type Library 1.0")

]

library INVENTOROCIDL

{

interface IClassFactory2;

typedef enum enuCLSCTX

{

enuCLSCTX_INPROC_SERVER    = 1,

enuCLSCTX_INPROC_HANDLER   = 2,

enuCLSCTX_LOCAL_SERVER     = 4,

enuCLSCTX_REMOTE_SERVER    = 16,

enuCLSCTX_NO_CODE_DOWNLOAD = 400,

enuCLSCTX_NO_FAILURE_LOG = 4000,

enuCLSCTX_SERVER    = (1 | 4 | 16),

enuCLSCTX_ALL       = (2 | 1)

} CLSCTX;

[

object,

uuid(B196B28F-BAB4-101A-B69C-00AA00341D07),

pointer_default(unique)

]

interface IClassFactory2 : IClassFactory

{

typedef IClassFactory2 * LPCLASSFACTORY2;

typedef struct tagLICINFO {

LONG cbLicInfo;

BOOL fRuntimeKeyAvail;

BOOL fLicVerified;

} LICINFO;

typedef struct tagLICINFO * LPLICINFO;

HRESULT GetLicInfo(

[out, retval] LICINFO * pLicInfo

);

HRESULT RequestLicKey(

[in] LONG dwReserved,

[out, retval] BSTR * pBstrKey

);

[local]

HRESULT CreateInstanceLic(

[in] IUnknown * pUnkOuter,

[in] IUnknown * pUnkReserved,

[in] GUID* riid,

[in] BSTR bstrKey,

[out, retval, iid_is(riid)] PVOID * ppvObj

);

}

}

用midl编译成IClassFactory2.tlb，并导入到vb.net的工程当中。

声明如下api用于得到IClassFactory2接口：

Declare Function CoGetClassObject Lib "ole32.dll" (ByRef rclsid As Guid, ByVal context As Short, ByRef serverInfo As IntPtr, ByRef riid As Guid, ByRef ppv As IntPtr) As Integer

'添加如下代码：

Const bstrInventorApplication As String = "{B6B5DC40-96E3-11d2-B774-0060B0F159EF}"

Const bstrIClassFactory2 As String = "{B196B28F-BAB4-101A-B69C-00AA00341D07}"

Const bstrIDispatch As String = "{00020400-0000-0000-C000-000000000046}"

Private IClsFry2 As INVENTOROCIDL.IClassFactory2 

Dim bstrLicence As String = "12345678"   'licence key

Dim guidInventorApplication As Guid = New Guid(bstrInventorApplication)

Dim guidIClassFactory2 As Guid = New Guid(bstrIClassFactory2)

Dim guidIDispatch As Guid = New Guid(bstrIDispatch)

Dim InventorGuid As INVENTOROCIDL.GUID  'used by CreateInstanceLic,defined in INVENTOROCIDL

'transform Guid of IDispatch to INVENTOROCIDL.GUID

Dim byteArry() As Byte = guidIDispatch.ToByteArray()

Dim MyGC As GCHandle = GCHandle.Alloc(byteArry, GCHandleType.Pinned)

InventorGuid = CType(Marshal.PtrToStructure(MyGC.AddrOfPinnedObject, InventorGuid.GetType()), INVENTOROCIDL.GUID)

'get the IClassFactory2 Interface

Dim obj As IntPtr

CoGetClassObject(guidInventorApplication, CInt(INVENTOROCIDL.enuCLSCTX.enuCLSCTX_LOCAL_SERVER), Nothing, guidIClassFactory2, obj)

IClsFry2 = CType(Marshal.GetTypedObjectForIUnknown(obj, System.Type.GetTypeFromCLSID(guidIClassFactory2)), INVENTOROCIDL.IClassFactory2)

'create Inventor Instance by using Licence

obj = IClsFry2.CreateInstanceLic(Nothing, Nothing, InventorGuid, bstrLicence)

InvApp = CType(Marshal.GetTypedObjectForIUnknown(obj, System.Type.GetTypeFromCLSID(guidInventorApplication)), Inventor.Application)

致此创建成功！

vb.net 如何将字符串生成对象

My Project.a这个应该是完整的命名空间.类名

你在a的构造函数里面用string s=typeof(a).ToString()就知道了。

vb.net 我用的vs2012 怎么创建对象呀?

VB最终的版本是VB6.0。微软早都不支持了。在Win7上VB6.0是可以用的，但是之前在XP下写好的VB程序有些可能会不能用，原因是WIN7中取消了许多之前的DLL。

VS2012上就是VB.Net了，语法和VB类似。

VB6.0是面向过程开发，VB.net是面向对象开发，但是是为了照顾VB6.0程序员的开发习惯，所以有点不伦不类。