正文
VB.net公用组件 vb公共控件用不了
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
求用VB.net制作最简单的COM组件的教程或者方法
VB 只能做 ActiveX 控件或者 ActiveX DLL，普通的 COM 组件不行。
你只要在建立工程的时候选择建立 ActiveX 控件或者 ActiveX DLL 就可以了，然后自己写一个函数编译即可。
相关问答
Q1: vb.net 怎么实现多个控件共同使用一个变量
把变量定义时增加Shared关键字即可.如:
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
这样AAA在一个应用程序里就是公用的.
------------------------------------------------------
补充:
不可能没用,我都是这样做的.
该控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
变量定义
"
Private
Shared
p_HisData
As
STRU_DATA
'用数据表保存所有控件的历史记录
Private
Shared
p_FileName
As
String
'保存历史记录的文件名
......
Q2: 在VB.NET中Friend的用法
Friend是用来在声明中定义访问级别的。
Public：公用，同一项目中任意位置的代码，引用该项目的其他项目，以及由该项目生成的任何程序集。
Protected：保护，同一个类内部或从该类派生的类中访问元素。
Friend：友元，从同一程序集内部访问元素，而不能从程序集外部访问。
Protected Friend：Protected 和 Friend 的联合，派生类或同一程序集内，或两者皆可。
Private：私有，仅可以从同一模块、类或结构内访问元素。
而所谓程序集的概念，可以理解为一个项目就是一个程序集，VS支持一个解决方案有多个项目，也就是一个解决方案多个程序集，比如项目A、项目B，项目A为启动项目。A要访问B首先要引用B，假设B里有个public的类myclass，类里有一个public的方法A和一个friend的方法B，按照前面说的访问级别的设定，myclass类的方法A在项目A中是可见的，而B却是不可访问的（Friend从且仅从同一程序集内部访问）。这就是区别。
P.S MSDN给的程序集的定义繁琐而难于理解，题主可以自行查阅一下。
Q3: VB.NET 如何动态添加组件，如FileSystemWatcher，并且响应同一事件？
For Each i In My.Computer.FileSystem.Drives
Dim FSW As New FileSystemWatcher
FSW.NotifyFilter = NotifyFilters.FileName
FSW.Path = i.Name.ToString
FSW.Filter = "*.txt"
AddHandler FSW.Changed, AddressOf FileSystemWatcher1_Changed '与FileSystemWatcher1_Changed事件绑定，以下同。
AddHandler FSW.Created, AddressOf FileSystemWatcher1_Created
AddHandler FSW.Deleted, AddressOf FileSystemWatcher1_Deleted
AddHandler FSW.Disposed, AddressOf FileSystemWatcher1_Disposed
AddHandler FSW.Error, AddressOf FileSystemWatcher1_Error
AddHandler FSW.Renamed, AddressOf FileSystemWatcher1_Renamed
FSW.EnableRaisingEvents = True
Next
上面代码放到一个调用过程中
Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created
‘我用fsw的path属性区别多个分区，你用自己的代码就行，如果你没有创建FileSystemWatcher1，就把Handles FileSystemWatcher1.Created删除。
If sender.path = "C:\" Then
'代码
ElseIf sender.path = "D:\" Then
'代码
ElseIf sender.path = "F:\" Then
ElseIf sender.path = "H:\" Then
'……
End If
End Sub
VB.net公用组件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb公共控件用不了、VB.net公用组件的信息别忘了在本站进行查找喔。
