技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 161|回复: 0
收起左侧

【VFB】类(VFB教程4-4)

[复制链接]

47

主题

67

帖子

590

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
463 个
贡献
1 次
宅之契约
0 份
在线时间
19 小时
注册时间
2017-12-26
发表于 2018-2-27 11:03:51 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x

此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分,全部目录点链接。

类,自定义类型

[Visual Basic] 纯文本查看 复制代码
type aaa[/font][/p]    bb as long 
end type

上面只是简单的应用类型,还可以更多,写过程,写函数,写属性,就是完整的类

Constructor 和 Destructor (构造函数和析构函数)

[Visual Basic] 纯文本查看 复制代码
type aaa[/font][/p]    Declare Constructor ( )
    Declare Destructor ( )
end type
Destructor aaa ( )
statements 创建类时运行的代码
End Destructor
Constructor aaa()
statements 销毁类时运行的代码
End Constructor

Private:Public:

[Visual Basic] 纯文本查看 复制代码
type aaa[/font][/p]    Public:  '表示调用者可以用
    bb as long 
    Private: '表示只是类里的函数使用的全局变量,调用者不可以使用
    cc as long 
end type

Property 属性

[Visual Basic] 纯文本查看 复制代码
type CForm[/font][/p]    Declare Property hWindow() As HWnd   
    Declare Property hWindow(ByVal hForm As HWnd)
end type 
Property CForm.hWindow() As HWnd   
    Return m_hWindow
End Property
Property CForm.hWindow(ByVal hForm As HWnd)
    If IsWindow(hForm) Then
    End If
End Property



本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2018-9-20 08:32 , Processed in 0.091698 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表