VB6 如何实现多重接口继承

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB6 如何实现多重接口继承，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

发表于： 2009-09-20 11:11:05

直接来代码
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'类C1
publicsubC()
end Sub
'类C2
Implements C1
publicsubC1_C()
end Sub
'C3
Implements C2
'C3要如何实现C2和C1中的接口？


回复于： 2009-09-20 12:24:55
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
'---------------------------------------------------------------------------------------
'Module:Class1
'Author:Anna
'Date:2009-9-20
'Purpose:Abstractclass
'---------------------------------------------------------------------------------------
Option Explicit
Public Sub M1()
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'---------------------------------------------------------------------------------------
'Module:Class2
'Author:Anna
'Date:2009-9-20
'Purpose:ImplementsClass1
'---------------------------------------------------------------------------------------
Option Explicit
Implements Class1
Private Sub Class1_M1()
Debug.Print "Class2'simplementationofClass1'sM1"
End Sub
Public Sub M2()
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'---------------------------------------------------------------------------------------
'Module:Class3
'Author:Anna
'Date:2009-9-20
'Purpose:ImplementsClass1andClass2
'---------------------------------------------------------------------------------------
Option Explicit
Implements Class1
Implements Class2
Private Sub Class1_M1()
Debug.Print "Class3'simplementationofClass1'sM1"
End Sub
Private Sub Class2_M2()
Debug.Print "Class3'simplementationofClass2'sM2"
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'---------------------------------------------------------------------------------------
'Module:Module1
'Author:Anna
'Date:2009-9-20
'Purpose:TestMulti-Inheritance
'---------------------------------------------------------------------------------------
Option Explicit
Sub Test_MultiInherit()
Dim aa As Class1
Dim bb As Class2
Dim cc As Class3
Set cc= New Class3
Set bb=cc
Call bb.M2
Set bb= Nothing
Set aa=cc
Call aa.M1
Set aa= Nothing
Set cc= Nothing
End Sub
对我有用[0] 丢个板砖[0] 引用 | 举报 |
@L_502_9@ 删除
管理
原文链接：https://www.f2er.com/vb/256995.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积