vb.net如何创建对象 vb net

vb.net已经添加excel引用，为什么还是不能创建Excel.applicasion对象？

1、导入命名空间用使用：Imports Microsoft.Office.Interop

可以创建 Excel.Application

如下：

Imports Microsoft.Office.Interop

Public Class Form1

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

Dim app As New Excel.Application

End Sub

End Class

2、导入命名空间用使用：mports Microsoft.Office.Interop.Excel

可以直接创建Application

如下：

Imports Microsoft.Office.Interop.Excel

Public Class Form1

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

Dim app As New Application

End Sub

End Class

1、2都可以操作excel，2的写法更简洁。

相关问答

Q1: VB.NET中如何动态创建控件

Option Explicit

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

    Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

    NewTextBox.Move 200, 200

     NewTextBox.Width = Form1.Width - 450

      NewTextBox.Height = Form1.Height - 1400

      NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

    Exit Sub

Else

   Controls.Remove NewTextBox

   Set NewTextBox = Nothing

   End If

End Sub

Q2: 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

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

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

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

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

Q4: 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)

致此创建成功！

Q5: 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.net如何创建对象和vb net的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。