登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

引用 VB类模块  

2012-08-12 09:09:42|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

对程序员和编程爱好者来说,VB中类的技术是学习中的一个难点,在大型软件的开发过程中,模块(Moudle)、控件(Active ocx)、链接库(Active dll)和类(Class moudle)构成了系统化、高效化的软件工程,而类的技术是控件和链接库技术的基础,因此掌握类的理论和编程方法是非常有意义的。  
   
(一)类的基本定义和应用概述
 
  类是包含了方法、属性、数据成员的高级代码模块,它既在模块的范畴之内,又是一个没有图形界面的Active ocx,程序员可以象使用控件一样使用它,但却不能看到它,值得注意的是,类是不能继承的。  
  类能够使我们高效的完成对某一个或者某几个特定的对象的复杂操作,对象的动作就是类的方法,对象的属性就是类的属性过程。相对而言,如果编程的对象是一组事物,那么,我们采用标准模块的方式是非常合适的,在下列两种情况下,应该使用类进行代码处理:  
  (1)创建大量性质相近的对象;  
  (2)提高代码的封装性。
  
  类的创建非常简单,在进行代码编写的时候,在“工程”菜单中选择“添加类模块”项目,就可以添加一个空白的类。
  
  类文件一般以.cls作为扩展名保存。
  
(二)类的方法的实现
 
  类的方法类似于动态链接库的接口函数,它能够接受其他窗体代码的指定类型参数,并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例,它使一个密码框拒绝非字母的输入: 
 
(1)类cls的代码;
    Option Explicit '变量检查
    Private WithEvents mytxt As TextBox
    '本类中的方法接受和控制一个text密码框
    Dim isNUM As Boolean
    '类的模块级变量
    Public Sub Attach(itTEXT As TextBox)
        '接受外部变量到mytxt中
        Set mytxt = itTEXT
    End Sub
    Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)
        isNUM = (KeyCode >= 65) And (KeyCode <= 90)
        '测试密码框的键盘输入是否是英文字母
        If isNUM = False Then
            Beep
            mytxt.Text = ""
            '如果输入不是英文字母则响铃并且清空密码框内容
            MsgBox "非法字符输入!"
        End If
        Debug.Print mytxt.Text
        '调试输出密码框内容
    End Sub
    '类的代码结束
 

(四)窗体代码的引用
在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1(CAPTION = "开始转化"),调整三个控件到适当位置。
Dim myT As New Class1    '类的引用
Private Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "字符串大写转化"
    Combo1.AddItem "字符串小写转化"
    Combo1.AddItem "字符串逆向排序"
    Combo1.ListIndex = 0
    '在列表框中添加属性选项
End Sub
Private Sub Command1_Click()
    '当命令按钮按下时激活类
    myT.Attach Text1
    '方法参数联接
    Select Case Combo1.ListIndex
        Case 0
            myT.Biaozhi = Lbigit
        Case 1
            myT.Biaozhi = Lcaseit
        Case 2
            myT.Biaozhi = Nlogoit
    End Select
    '根据列表框的选择,给类的Biaozhi属性赋值,注意,在编程环境中,上述属性值自动添加
    Text1.Text = myT.dONE        '返回排序结束后的字符串
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set myT = Nothing
    End    '良好的编程习惯
End Sub
  怎么样,我们的代码看起来如此的简洁,这种感觉就象是在使用一个控件,不仅可以随心所欲的调用,而且方便的使用了vb的自动提示功能。


VB相关


VB 读写TXT文本文件函数

VB 提取TextBox 文本框中指定一行字符串

VB 获取汉字拼音的首字母

VB 汉字字符串转换成拼音

VB判断指定名字的进程是否存在函数

VB 两种方法实现热键

VB 使用SendMessage枚举文件与目录

VB 二进制数组与十六进制字符串相互转换

VB 二进制数据读写实例

VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

VB 判断是否文本文件

VB 读取UTF-8编码文件函数

VB 按指定编码格式写入文本文件

VB UTF-8 URL编码函数

VB 实现UTF-8 GB2312互转

VB 设置ListView中指定一行的背景颜色

VB SendMessage向其他程序窗口发送字符串消息实例

VB Listview导出到CSV文件函数

vb卸载所有窗体

VBNull, Empty, Nothing, and vbNullString的区别

利用API函数计算程序运行时间VB

获取快捷方式原文件路径vb路径

利用VB函数Dir()实现递归搜索目录

VB数组的清除和重新定义

RtlAdjustPrivilege来调整进程权限(VB6.0代码)

获取对象的接口信息(方法/属性/事件)(VB6代码)

VB6中给数组赋值的限制

[vb]一些窗口消息的详解

VB直接播放EXE文件中的声音文件

VB中利用CopyMemory使用指针

VB读写注册表的三种方法

[VB]SaveSetting 语句 和 DeleteSetting 语句

VB APP对象属性一览表 + 灵活使用VBAPP对象

[vb]SendMessageA函数

使用VB绘制抛物线动画曲线

关于vb中的容器

[vb]利用WScript.Shell对象隐藏cmd命令行运行

浅析VB For Each.Next语句

VB中窗体模块、标准模块、类模块的区别

引用 VB类模块

VB中什么是类,类模块有什么作用

VB SendKeys 语句

VB 全局热键

VB轻松调用其他程序

vb读取txt文件到textbox

如何去优化你的VB程序3

如何去优化你的VB程序2

如何去优化你的VB程序1

[VB]在状态栏中显示帮助信息

[VB]把屏幕保存为图像

Mp3Play.ocx控件让音乐之声响起来


更多精彩>>>
  评论这张
 
阅读(936)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018