欢迎光临
我们一直在努力

关于visualbasic6.0类开发(下)_visualbasic教程

建站超值云服务器,限时71元/月

在VisualBasic6.0类的技术与应用(上)(以下简称上文)中,我们讨论了类的理论、类的创建和类的方法的编程实践,实际上,类之所以能够在软件工程中广泛应用,最主要的一点是它可以非常方便的封装许多编程需要的属性,这不仅使程序员在一定程度上克服控件(ocx)和链接库(dll)设计和调试中的复杂性,而且能够提高程序代码的简洁和高效性——本文将讨论完整的类的编程,包括方法、属性和基本事件。

  (一)类的属性的特征和定义

  类似于标准控件的属性,类的属性允许用户在指定的数据范围内进行赋值,这些值被类内的各个代码部分所共享。属性的获得和传递需要经过PropertyLet和PropertyGet语句进行编程,当然,我们首先需要在类中进行全局或者模块级的相应变量定义。

  (二)事件的属性和基本定义

  和窗体的事件类似,类也有两个基本的事件,Class_Initialize(类加载时触发)和Class_Terminate(类卸载时触发),这两个事件都是private的。实际上,我们完全可以忽略这两个事件——只要你记得完善类的方法和属性。

  类同样可以定义自己的事件,它和方法的程序编写格式类似,只不过需要WithEvents关键字进行参数声明,而且事件不能有任何命名参数或者可选参数,它也没有返回值。

  实际上,结构良好的方法和属性完全可以替代结构复杂的类的事件。

  (三)类的方法、事件和属性的编程实例

  本程序的设计目的是,通过类控制窗体中文本框的内容的全部大写、小写和逆向排序转化。

  为了方便代码的书写和调用,我在类中引用了枚举的编程方法。

  以下代码在类Class1:

  OptionExplicit

   PrivateWithEventsmyTXTAsTextBox

   方法的参数接口

   PublicEnumsTYLE

    Lcaseit小写属性

    Lbigit大写属性

    Nlogoit逆向排序属性

   EndEnum

  自定义枚举,用来实现属性的自动赋值

  PrivatemvarBiaozhiAssTYLE

  实现枚举常量的连接

  PublicFunctiondONE()AsString

  DONE方法用来根据指定的枚举属性,对

  窗体文本框进行相应的字符转化操作

  并且返回转化后的字符串

  IfmvarBiaozhi=NlogoitThen

   dONE=StrReverse(myTXT)

   逆向排序

  ElseIfmvarBiaozhi=LcaseitThen

   dONE=LCase(myTXT)

   强制小写转化

  Else

   dONE=UCase(myTXT)

   强制大写转化

  EndIf

  EndFunction

  DONE方法结束

  PublicPropertyLetBiaozhi(ByValvDataAssTYLE)

   获得属性的被赋的值

   mvarBiaozhi=vData

  EndProperty

  PublicPropertyGetBiaozhi()AssTYLE

   传递属性值到类中

   SetBiaozhi=mvarBiaozhi

  EndProperty

  PublicSubAttach(itTEXTAsTextBox)

   连接类的方法

   SetmyTXT=itTEXT

  EndSub

  PrivateSubClass_Initialize()

   本事件在类倍加载时激活

   MsgBox”你好!本程序向您展示使用类的方法、属性、事件进行编程的技术!”

  EndSub

  PrivateSubClass_Terminate()

   本事件在类被卸载时激活

   MsgBox”你好!记得在Class_Terminate中填写对象撤销后的代码!”

  EndSub

  类的代码全部结束

  (四)窗体代码的引用编程

  在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1(CAPTION=”开始转化”),调整三个控件到适当位置。

  DimmyTAsNewClass1

  类的引用

  PrivateSubForm_Load()

   Combo1.Clear

   Combo1.AddItem”字符串大写转化”

   Combo1.AddItem”字符串小写转化”

   Combo1.AddItem”字符串逆向排序”

   Combo1.ListIndex=0

   在列表框中添加属性选项

  EndSub

  PrivateSubCommand1_Click()

   当命令按钮按下时激活类

   myT.AttachText1

   方法参数联接

   SelectCaseCombo1.ListIndex

    Case0

      myT.Biaozhi=Lbigit

    Case1

      myT.Biaozhi=Lcaseit

    Case2

      myT.Biaozhi=Nlogoit

   EndSelect

   根据列表框的选择,给类的Biaozhi属性赋值

   注意,在编程环境中,上述属性值自动添加

   Text1.Text=myT.dONE

   返回排序结束后的字符串

  EndSub

  PrivateSubForm_Unload(CancelAsInteger)

   SetmyT=Nothing

  End

  良好的编程习惯

  EndSub

怎么样,我们的代码看起来如此的简洁,这种感觉就象是在使用一个控件,不仅可以随心所欲的调用,而且方便的使用了vb的自动提示功能。

  (五)关于类的编程技术的总结

  严格的说,类是vb编程中的一个相当有用的技术,同样也是学习和掌握中的难点,类在大型软件工程中应用是非常广泛和卓有成效的,但是,在小型软件开发中,为了提高软件的效率和代码的清晰度,应该避免使用较多的类模块,控件和联接库,取代以标准模块。

  本文所示例的代码比较简单,却覆盖了关于模块编程技术的方方面面,希望初学者能够有所借鉴,也希望程序员能够共同探讨。我们应该相信,无论多么复杂的高楼大厦都是由普普通通的方砖堆砌而成的,同样,无论所么复杂的软件工程都是由基本的程序语句所构成的,编程爱好者、程序员和分析员的区别只是在于,用同样的程序语句构建的程序的不同而已。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 关于visualbasic6.0类开发(下)_visualbasic教程
分享到: 更多 (0)