你用的什么版本的VB？打开VB->外接程序(菜单)->外接程序管理器->在弹出对话框中选择Componet Services Add-In->再选中“在启动中加载”和“加载/卸载”(如下图)->再点击新建工程就会有了
（如果还没有那就是你的VB6不行，另找一个版本的的VB6安装吧）[此贴子已经被作者于2007-6-5 23:31:09编辑过]
VB QQ群：47715789
2007-06-05 23:15
2007-10-17 20:56
2007-10-20 20:56
2007-10-20 21:29
2007-10-21 15:52
寫個作測試的接口(只在 標準 EXE 裏作測試)
新建一個 Standard EXE
1. 建立接口 IMyInterface
添加一個類 (Class Module), 類的名字爲接口名字, 這裏用 IMyInterface
添加接口成員 (IMyInterface.cls 文件內容):
Option Explicit
Public Property Get TestProperty() As Integer
End Property
Public Property Let TestProperty(ByVal dw As Integer)
End Property
Public Function TestMethod() As Integer
End Function
2. 實現接口
隨便建立一個類來實現此接口, 添加一個類 (Class Module), 類的名字自己命名, 這裏用 Class1.
以下是 Class1 (Class1.cls 文件) 的內容
Option Explicit
Implements IMyInterface '// 指定要實現的接口
Private m_Tmp As Integer
Private Function IMyInterface_TestMethod() As Integer ' 實現接口中聲明的成員函式
IMyInterface_TestMethod = m_Tmp + 10
End Function
Private Property Let IMyInterface_TestProperty(ByVal RHS As Integer) ' 實現接口中聲明的屬性
m_Tmp = RHS
End Property
Private Property Get IMyInterface_TestProperty() As Integer
IMyInterface_TestProperty = m_Tmp
End Property
3. 測試接口
在 Form1 中編寫以下代碼來測試接口
Private hIntr As IMyInterface ' 聲明引用接口
Private Sub Form_Load()
Set hIntr = New Class1
hIntr.TestProperty = 9 ' 調用接口的屬性
Debug.Print hIntr.TestProperty
Debug.Print hIntr.TestMethod() ' 調用接口的方法
End Sub
Private Sub Form_Unload(Cancel As Boolean)
Set hIntr = Nothing
End Sub
2007-10-21 23:56
2007-10-22 09:30
2007-10-22 09:54
2007-10-22 11:23
2007-10-22 11:38
