不打码的磁力链接:Edanmo's OLE interfaces & functions 的使用
来源:百度文库 编辑:偶看新闻 时间:2024/05/11 20:24:41
这个帖子是回答standys2004提出的问题的,估计有些朋友还不知道,就贴出来了:)
首先,COM对象如果要支持属性页特性,那么它必须实现ISpecifyPropertyPages接口,同样我们只要实现了ISpecifyPropertyPages接口,就可以显示属性页,在vb中实现ISpecifyPropertyPages接口需要我们了解ODL语言,编好ODL文件后,再编译为TLB文件,这里,我们需要庆幸的是,网上有很多相关的资源,可以找到现成的TLB文件,这里我用的是大家普遍使用的Edanmo's OLE interfaces & functions v1.81(使用这个的好处是可以省掉好多api的声明),它可以从:http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip
下载,下载后,解压,找到olelib.tlb这个文件,它是我们需要的东东,然后,注册它并进行引用(可以用工具软件注册它,也可以从 工程-引用 对话框中 浏览 找到这个文件,然后双击)
下面说说具体的实现,窗体上一个flash控件,名为ShockwaveFlash1,一个按钮,代码如下:
Option Explicit
'首先,你应该确定你已经引用了Edanmo's OLE interfaces & functions v1.81
Sub ShowProperties( _
ByVal Ctrl As Object, _
Optional ByVal CtrlName As String, _
Optional ByVal hWndParent As Long)
Dim oSPP As ISpecifyPropertyPages
Dim tPages As CAUUID
On Error Resume Next
' 获得控件的 ISpecifyPropertyPages 接口
Set oSPP = Ctrl
If oSPP Is Nothing Then
' 如果失败,则尝试使用控件的Object属性进行获取
Set oSPP = Ctrl.Object
If oSPP Is Nothing Then
'下面是错误处理
On Error GoTo 0
Err.Raise 13
End If
End If
' 获得控件的所有属性页
oSPP.GetPages tPages
' 显示属性页
OleCreatePropertyFrame hWndParent, 0, 0, _
CtrlName, 1, Ctrl, tPages.cElems, _
ByVal tPages.pElems, 0, 0, 0
'释放资源
CoTaskMemFree tPages.pElems
End Sub
Private Sub Command1_Click()
ShowProperties ShockwaveFlash1
End Sub
首先,COM对象如果要支持属性页特性,那么它必须实现ISpecifyPropertyPages接口,同样我们只要实现了ISpecifyPropertyPages接口,就可以显示属性页,在vb中实现ISpecifyPropertyPages接口需要我们了解ODL语言,编好ODL文件后,再编译为TLB文件,这里,我们需要庆幸的是,网上有很多相关的资源,可以找到现成的TLB文件,这里我用的是大家普遍使用的Edanmo's OLE interfaces & functions v1.81(使用这个的好处是可以省掉好多api的声明),它可以从:http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip
下载,下载后,解压,找到olelib.tlb这个文件,它是我们需要的东东,然后,注册它并进行引用(可以用工具软件注册它,也可以从 工程-引用 对话框中 浏览 找到这个文件,然后双击)
下面说说具体的实现,窗体上一个flash控件,名为ShockwaveFlash1,一个按钮,代码如下:
Option Explicit
'首先,你应该确定你已经引用了Edanmo's OLE interfaces & functions v1.81
Sub ShowProperties( _
ByVal Ctrl As Object, _
Optional ByVal CtrlName As String, _
Optional ByVal hWndParent As Long)
Dim oSPP As ISpecifyPropertyPages
Dim tPages As CAUUID
On Error Resume Next
' 获得控件的 ISpecifyPropertyPages 接口
Set oSPP = Ctrl
If oSPP Is Nothing Then
' 如果失败,则尝试使用控件的Object属性进行获取
Set oSPP = Ctrl.Object
If oSPP Is Nothing Then
'下面是错误处理
On Error GoTo 0
Err.Raise 13
End If
End If
' 获得控件的所有属性页
oSPP.GetPages tPages
' 显示属性页
OleCreatePropertyFrame hWndParent, 0, 0, _
CtrlName, 1, Ctrl, tPages.cElems, _
ByVal tPages.pElems, 0, 0, 0
'释放资源
CoTaskMemFree tPages.pElems
End Sub
Private Sub Command1_Click()
ShowProperties ShockwaveFlash1
End Sub
OLE是什么
OLE是什么?
什么是OLE?
Ole 是什么意思
OLE是什么
谁知道ole ole ole ole哪有的下载
ole-ole什么意思啊???
求ole-ole的歌词
Ole Ole !WE ARE THE CHAMP 中Ole是什么意思?
go go go ole ole ole we are win
豪门盛宴里面那首OLE OLE OLE的歌曲??
帮我翻译几个英语单词.Model. interfa.back先谢了各位朋友.
"go go go ole ole ole"和"ole ole ole we are the cham"是不是一首歌啊?
ole ole世界杯主题歌的词?
移动的广告ole ole出自哪首歌啊?
足球歌曲Ole Ole的由来
ole error 80040203
求解:什么是OLE对象?
OLE是什么技术
什么是OLE信息?
关于OLE句柄
VB中的OLE是什么意思?
OLE如何才能控制窗口
什么是OLE标准?