我VBA、VB、VB.net的学习历程

ah2005 · 发表于 2011-10-8 23:42

本帖最后由 ah2005 于 2011-10-8 23:43 编辑

这个就是为什么叫做半面向对象。。
应该有点味道了吧。。
Function OneTableForm(OParam As TableFormParam) As Long

Dim MyOneTableForm As New 单表窗体

      MyOneTableForm.Caption = OParam.FormTitle

      MyOneTableForm.PrimaryTableName = OParam.PrimaryTableName

      MyOneTableForm.PrimaryFieldName = OParam.PrimaryFieldName

      MyOneTableForm.PrimaryFilterS = OParam.PrimaryFilterS

      MyOneTableForm.PrimaryRelevantField = OParam.PrimaryRelevantField

      MyOneTableForm.KeyField = OParam.KeyField

      MyOneTableForm.SecondaryTableName = OParam.SecondaryTableName

      MyOneTableForm.SecondaryRelevantField = OParam.SecondaryRelevantField

      MyOneTableForm.ControlsVisible = OParam.ControlsVisible

      Set MyOneTableForm.MAccDB = OParam.MAccDB

      MyOneTableForm.RsFormShow

      OneTableForm = MyOneTableForm.Value

      Unload MyOneTableForm

End Function
如果说完全是VB.NET的特征，那就不是VB6了，只不过思路是类似。

bluexuemei · 发表于 2011-10-8 23:51

楼主对编程很感兴趣,兴趣是最好的老师,加油!

HHAAMM · 发表于 2011-10-9 00:04

ah2005 发表于 2011-10-8 23:42
这个就是为什么叫做半面向对象。。
应该有点味道了吧。。
Function OneTableForm(OParam As TableFormPar ...

看不明白
一个OneTableForm函数，它的参数是TableFormParam这个自定义数据类型，这个和(OOP)面向对象编成有神马关系

HHAAMM · 发表于 2011-10-9 00:55

ah2005 发表于 2011-10-8 23:42
这个就是为什么叫做半面向对象。。
应该有点味道了吧。。
Function OneTableForm(OParam As TableFormPar ...

闲着没事我又看了一遍，这部分代码只涉及到以下两个内容
——————————————————-——————
Function 语句
请参阅示例特性
声明 Function 过程的名称，参数以及构成其主体的代码。
语法
[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function
————————————————————————
Type 语句
请参阅示例特性
在模块级别中使用，用于定义包含一个或多个元素的用户自定义的数据类型。
语法
[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
. . .
End Type
————————————————————
这些都是很常见很常用的语句，这些和面向对象找不出瓜葛的

demons264 · 发表于 2011-10-9 06:54

谢谢楼主经历分享

zhangjimfu · 发表于 2011-10-9 08:30

谢谢楼主分享！

nukecrack · 发表于 2011-10-9 08:53

自学成材的典范呀，关键是爱好和专注，给我们这样的新手以力量和信心。

slslzj · 发表于 2011-10-9 09:14

我或许会写一个学习VBA、FORTRAN、VC++的历程。

zjdh · 发表于 2011-10-9 09:24

我虽然从Excel4版本开始使用Excel，但还没有达到楼主的水平，惭愧！

xing1118 · 发表于 2011-10-9 09:43

{:soso_e115:}看来我还得加油学习了

		自动登录	找回密码
密码			免费注册

[分享] 我VBA、VB、VB.net的学习历程