引用 VB类模块

本文介绍了VB中类模块的概念和应用,强调类在大型软件开发中的重要性。类是包含方法、属性和数据成员的高级代码模块,适用于创建性质相近的对象和提高代码封装性。通过示例代码展示了如何创建和引用类,以及类方法的实现,帮助读者理解如何在VB中有效地使用类。
摘要由CSDN通过智能技术生成

对程序员和编程爱好者来说,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判断指定名字的进程是否存在函数

  • 0
    点赞
  • 10
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值