锐客网

  1. 首页 > 睿知 > it技术 > >

vb.netcom对象 vb属性窗口怎么打开( 三 )

IT技术Windowmanage


声明如下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的COM组件的编写问题我想了两种思路，winform没有findControl ， 只有个this.Controls.Contains("textBox1")，因此除了遍历没办法了 。。。
思路1：遍历Controls ， 具体你自己完善下，
if(this.Controls.Count0)
{
foreach(Control c in this.Controls)
if(c.GetTepy==Tepyof(TextBox))
string str += ((TextBox)c).Text;
}
学VB还是VB.net好？细说VB．NET（上）
（作者：青苹果工作室编译 2001年03月07日 14:47）
微软公司提出的.NET概念，正从各个方面渗入到我们的生活中 。它将产生的作用，
诚如一位业内名家所描述的：“请忘掉你认为你所知道的 ， .NET将改变一切”！既然如
此，无论是IT业内人士、还是企业决策者 ， 快速领会这个新概念的含义及深远影响 ， 
都显得非常必要 。
概要
VB正在不断地发展中，它具备了以前VB编程人员作梦都想拥有的性能，想象一下你
将随心所欲的利用这些性能，是不是很令人激动？然而 ， 这个计划于2001年第四季度上
市销售的VB版本可能会给你带来些小麻烦，因为要完全掌握它需要一个较长的学习周期
 ， 而且其中包括了一些微妙的变化，你可能在使用他们的时候出现错误 。
需要准备的条件：建议获得Visual Basic.NET beta 版，这些内容对所有VB程序员
都是有用的 。
Microsoft .NET平台的涵盖面很广，而且很难预测它的真正意义 。我们注意到，现
在有很多关于.NET的不正确的理解 。因此在这篇文章里 ， 我们将把给你一个VB.NET到底
是些什么的概念，从头到尾说一说它是什么、它能干什么以及怎样才能充分发挥它的优
点 。我们要特别地细看一下IDE的改变、面向对象特征、底层结构的改变、一些“现代化
”的语法以及包装和分发方面的增强 。我们将讨论这些功能能为你做什么，解释他们的

推荐阅读


上一篇：tob企业如何营销推广，tob企业营销推广方案

下一篇：老虎直播给小孩口主播，老虎直播吃小孩