Question

用VB制作DLL文件

用VB制作一个DLL文件然后用VB调用 那么会使VB工程中的标签显示“123”求这个DLL怎么写呢 给个示例

Answer 1

首先，由VB编写生成的DLL文件不是Windows标准的DLL动态链接库文件，即在VB代码中不能用代码申明调用。VB生成的DLL是Active DLL,生成后只能在VB工程中引用，调用时还比较麻烦，在软件生成后搬到其他电脑上去，如果没注册COM控件的话还会出错。总之，要用DLL文件的话最好用VC或其他语言编写的。如果一定要用VB生成的DLL，然后用VB调用，过程有点麻烦，你可以在百度上搜一下关键词“VB调用VB生成的DLL”这些。 至于你说的VB工程中的标签显示123这个我倒是没见过。你可以在“工程属性”那个选项里修改你要修改的东西。 这是偶一个一个字打出来的，希望选最佳答案哦

Answer 2

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Info"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Declare Function GetCPUID Lib "CPUID_Util_VB.dll" () As String

'主板序列号
Function GetMainboardSerialNumber() As String
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim objItem
Dim strOption
Dim colItems
GetMainboardSerialNumber = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber <> "" Then
GetMainboardSerialNumber = objItem.SerialNumber
Exit Function
End If
Next
End Function

' 取得CPU序列号

Function GetCpuSerialNumber() As String

GetCpuSerialNumber = ""

Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
GetCpuSerialNumber = cpu.ProcessorId
Next

End Function

' 取得CPU序列号

Function GetDllCpuSerialNumber()

GetDllCpuSerialNumber = GetCPUID

End Function

Function getMacAddr()

Dim Mac
strComputer = "."
Mac = ""

'获得MAC信息

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2") '''加上这个
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objItem In colItems
Mac = Mac + " " + objItem.macaddress
Next
getMacAddr = Replace(Trim(Mac), ":", "-")

End Function

Answer 3

vb制作dll？用c++制作dll，然后用vb调用倒是不错，还有额，什么标签？？？

Answer 4

你下一个企业版VB6.0 然后打开叫你选择编程的东西~~~你选择一个后面是DLL你打开后进行编程就可以了~

Answer 5

你知道怎么编写EXE函数了吧?首先你需要获取窗体句柄,接着通过句柄修改窗体标题,就可以了,如果你不会制作DLL可以去以下网站找教程: http://download.csdn.net/source/2672318下载了教程以后研究下制作DLL的办法吧