- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2第十讲(注意事项4)
Bool =long
字符串处理 传值,byval,先分配好空间
Any的处理 任何类型 void void*非字符串类型用byref传递
Option Explicit
__stdcall void func (int n,int * pm,const char * lpstr,bool found )
Private Declare Sub func Lib my.dll (ByVal n As Long, ByRef m As Long, ByVal str As String, ByVal found As Long)
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim mystr As String
Dim f As Long
a = 100
b = 200
mystr = aaaaaaaaaaaaaaa
f = 1
Call func(a, b, mystr, f)
End Sub
枚举当前程序中的所有窗体,指明枚举函数的地址
我就是这样,不知道是为什么,自己没有一点办法啦
Cdecal缺省按c调用,Pascal全部转换成大写,是从左向右压,stdcall
Vb使用的动态链接库(必须的)都是标准调用_stdcall
Api 函数
4第十一讲(vb与office)
Msdn的全称:microsoft office development
2第十二讲()
用宏记录下来,掌握office的对象模型
向导和帮助
模版
保存为模版office应用部分
对象的连接与嵌入OLE
DDE
在office中改动数据,在vb中能够显示
Linkmode 1_source实现动态数据交换
一个发送一个接受
录制宏
直接使用office本身的数据交互
Private Sub Command1_Click()
Dim xlsapp As Excel.Application
End Sub
2第十三讲
引用office的对象库在程序中创建对象
使用word本身提供的拼写检查,单词统计功能
更完善,通过程序与word打交道
使用了引用
Word使用
Text1.text
Excel的引用
在vb中所有的集合对象都是以1为基底的
Xlsapp.quit 退出并没从内存中推出
Set xlsapp = nothing 从内存中卸载
怎样打开应用程序,怎样写入,怎样关闭
目的是在运行时把时间写入到excel中程序调用多少次,运行多长时间开机多长时间
注册到本机服务中
窗体和模块两部分
Api函数
在vb中使用office产品
2第十四讲(使用类模块)
定制类模块,窗体控件具体类的实例对象
数据和在数据上的操作结合在一起,外边隔离开
类现实的事物抽象
对象
类抽象的概念 不代表真实有效的东西
每一个具体的对象,程序运行中对象真正处理使用的东西
对象之间相互作用完成功能,指明对象属于那个类
定义一个类
一个窗体本身看成一个类,实例化后变成对象
有什么性质呢,所有属性描述了我这个类所具有的功能数据
窗体改变大小,移动,在对象上实现的操作
类在运行时创建多个实例,通过方法
一个类基本操作和数据的集合
方法function和sub
数据 属性多种表现形式公有数据成员
事件 向外发送消息,发出广播
自己能看到就行了心脏的血压,脉搏 private
Public方法数据成员对外公开,可以直接访问
Private对象自己私有的,外部不能访问,对象内部可见
方法函数定义只是实现某些功能,内部实现的一部分
Friend有缘 package包的概念,被当前工程访问,工程意外不能访问
定义好了类,怎样创建类的实例
Dim objname as leiming
使用时objname.myfunc()
Dim object as classname
Set object = new classname
Set 是对象赋值,是写入数值还是写入过程
Dim objname as new classname
Objectname.mysub()
什么时候创建呢,第一次使用objectname的时候
怎样创建自己定义的类
数据读取或写入,数据的操作分为get操作,let操作,是赋值,对象的赋值为set
属性过程的基本过程是什么样的
Static所有局部变量都是静态的,声明了一个属性过程,读属性,类型
写对象属性,写属性的访问权限(property属性)name属性名
2第十五讲(vb中的属性过程)
在vb中使用类模块时可以定义自己的属性
字符串,整数,property let
当我们调用age这个属性的时候直接把num这个值给了mvarage这个变量
Private mvarag
您可能关注的文档
最近下载
- 2025年上海市时事政治考试试卷带解析(达标题).docx VIP
- 期中试题2024-2025学年人教精通版(2024)英语三年级上册(含答案).pdf VIP
- 酒店成本费用控制管理方法.pdf VIP
- 【演练脚本】触电事故应急救援演练方案含脚本.docx
- 哈萨克斯坦东方之门经济特区简介.ppt VIP
- 新课标课堂教学设计与案例分析.docx VIP
- 2025年上海市时事政治考试试卷带解析【达标题】.docx VIP
- ANT2802产品手册_V13926596180两节锂电池高效充电管理芯片.pdf VIP
- 2025年上海市时事政治考试试卷带解析及答案(有一套).docx VIP
- 灼热丝测试.ppt VIP
文档评论(0)