网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net调用com,VBNET教程

VB6.0调用.net COM组件问题

调用.Net的

成都创新互联公司是一家集网站建设,聂荣企业网站建设,聂荣品牌网站建设,网站定制,聂荣网站建设报价,网络营销,网络优化,聂荣网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

程序集

还是

COM组件

这是不同的,

如果你用Visual

Studio,那在项目的引用那里直接引用就可以了,.Net程序集和COM组件在不同的Tab页里。

COM组件要先注册才能看到

regsvr32

com.dll

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.net程序如何实现向电脑的Com口发送一段字符串信息,之后再接收显示发送的字符串信息?

'vb.net的串口接收数据要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '声明一个委派类,并声明符合函数参数有一个,而其型态是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '将收到的数据入接收文字框中--- txt_Re.Text 是接收用的文本框

txt_Re.SelectionStart = txt_Re.Text.Length

txt_Re.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived‘自动接收事件

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

Invoke(d, inData)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '发送指令

SerialPort1.Write("123")

End Sub

在vb.net中,如何枚举一个注册的组件其开放的COM类的接口函数。

为什么增加的回答这么久还没显示。

我想知道你为什么要枚举这些方法,是需要打印出来还是只是为了查看和调用?

1,如果只是为了查看和调用的话,不需要用代码就能知道了。

打开VS,视图-》对象浏览器。然后开了后,点浏览右边的“。。。”,开了后。选COM活页,再在里面选ThunderAgent 1.0 Type Library。再点添加。

添加好之后。在左边的浏览窗口内就有了,展开THUNDERAGENTLib下面有几个类和接口,展开类就有方法了。

2,如果是需要用代码枚举并打印。网上有相关的代码,C#写的。我就不帖了。自己搜一下。改成vb.net相信应该不会太难。

祝你好运。

VB.NET EXE怎么调用指定的DLL

一般VB.NET调用DLL可以通过Declare 语句在模块级用于声明对动态链接库 (DLL) 中的外部过程的引用。

Private Declare Sub

myFunc1 Lib "mylib.dll"

(ByVal strName As String)

但是,VB.NET,C#.NET创建的DLL是个类库,不能生成标准的 DLL 文件,不能采用declare ()的方式。应该在解决方案资源管理器下的需要引用的项目的引用栏点击鼠标右键--添加对这个类库[mylib.dll]的引用即可。

以下为VB.NET调用DLL代码示例:

DllImport("kcomm.dll", CharSetCharSet:

=CharSet.Ansi, SetlastError:=True)

Private Shared Function gettxt(ByVal

port As Integer, ByVal wait As

Integer, ByVal _date As Long,

ByVal _time As Long, ByVal

filename As String) As Integer

End Function

根据实际情况更改你的DLL名称、函数名、参数名和类型。

VB.NET调用DLL的只是COM组件,无法作为输出函数的DLL,其实这只是个错误的说法。其实MS非常狡猾,如果你是个VB疯狂发烧友的话,应该早就狂试出这种可以创建输出函数的DLL的方法。

VB编译文件实际上采取了两次编译的方法,首先是调用C2.exe产生*.OBJ文件,然后调用Link.EXE连接。如果在LINK的时候添加EXPORT选项,实际上是可以输出函数的。但是,在VB的工程选项中将这些屏蔽了。而且过分的是:VB在Build完成后会将OBJ文件删除,这样就无法手动通过Link来创建我们需要的DLL了。不过我找到一个比较龌鹾的变通的方法,就是先创建一个Exe工程,在Form_Load事件里面写下面的语句:

Sub Main

If MsgBox("哈哈",

vbOKCancel) = vbOK Then

Shell "link2.exe "

Command$

End If

End Sub

然后编译为LinkTemp.EXE,接下来将LINK.EXE改名为Link2.exe,将LinkTemp.EXE改名为Link.EXE。这样在VB调用Link.EXE时会弹出对话框,处理就会中断。这时就可以有机会将OBJ文件拷贝出来了。

然后我创建了一个ActiveX DLL工程,在这个工程里面添加一个Module并创建一个Public函数mathadd:

Public Function mathadd

(ByVal a As Long, ByVal

b As Long) As Long

mathadd = a + b

End Function

编译这个工程,在Link的时候就会中断。然后把创建的Class1.obj、Module1.obj、Project1.obj备份出来。然后就可以调用Link2.exe连接OBJ到DLL了,我的连接代码是:

Link2.exe "e:\\vbdll\\Class1.obj"

"e:\\vbdll\\Module1.obj"

"e:\\vbdll\\Project1.obj"

"E:\\Program Files\\Microsoft

Visual Studio\\VB98\\VBAEXE6.LIB"

/ENTRY:__vbaS /EXPORT:mathadd /OUT:

"e:\\vbdll\\ProjectOK.dll"

/BASE:0x11000000 /SUBSYSTEM:

WINDOWS,4.0 /VERS

注意里面的/ENTRY和/EXPORT开关,/EXPORT开关声明了输出函数mathadd。这样就大功告成了,可以被其他语言引入,例如在VB中,只需要:

Private Declare Function mathadd

Lib "e:\\vbdll\\ProjectOK.dll"

(ByVal a As Long, ByVal b As

Long) As Long

vb.net通过com方法调用dll的问题

创建结构体,用结构体传输数据:

Public Structure InValue

Public P As 类型

Public Q As 类型

'其他值定义

End Structure

Public Structure OutValue

Public A() As 类型

Public B As 类型

'其他值定义

End Structure

把Dll内的方法改为:

Public Function calculation(value As InValue) As OutValue

Dim [out] As New OutValue

'处理函数

Return [out]

End Function

引用:

dim ffun as new pla.tua

dim inval as invalue

in.** = **

dim outp as outvalue = ffun.calculation(inval)


名称栏目:vb.net调用com,VBNET教程
本文地址:http://bjjierui.cn/article/hdjcii.html

其他资讯