- Code: Select all Expand view
- #include "fivewin.ch"
function main()
public oWnd
public oCommandbar
public oRibbonbar
public oToolA
public Left:=Top:=Right:=Bottom:=0
define window ownd
oCommandBar:= TactiveX():New(oWnd,"Codejock.CommandBarsFrame.12.1.1",0,0,0,0)
oCommandBar:Do("AttachToWindow", oWnd:hWnd )
oRibbonBar:= oCommandBar:Do("AddRibbonBar","Redstarsoft")
oRibbonBar:EnableFrameTheme()
cToolA:=oCommandBar:Do("Add","ToolBar", 0)
cToolA:GetWindowRect( @Left, @Top, @Right, @Bottom )
MsgInfo(Left)
MsgInfo(Top)
MsgInfo(Right)
MsgInfo(Bottom)
activate window ownd
return
Exemplo usando ToleWevent ( GPF )
- Code: Select all Expand view
- #include "fivewin.ch"
function main
public oWnd
public oCommandbar
public oRibbonbar
public oToolA
public Left:=Top:=Right:=Bottom:=0
define window ownd
oCommandBar:= OleWEvent():New("Codejock.CommandBars.12.1.1")
oCommandBar:AttachToWindow( oWnd:hWnd )
oRibbonBar:= oCommandBar:AddRibbonBar("Redstarsoft")
oRibbonBar:EnableFrameTheme()
cToolA:=oCommandBar:Add("ToolBar", 0)
cToolA:GetWindowRect( @Left, @Top, @Right, @Bottom )
MsgInfo(Left)
MsgInfo(Top)
MsgInfo(Right)
MsgInfo(Bottom)
activate window ownd
return
Antonio, tu pode me dizer una cosa, porque en la class ToleWevent yo necessito usar "Codejock.CommandBars.12.1.1"
pero "Codejock.CommandBarsFrame.12.1.1" return GPF ?
y con la TactiveX es lo iverso, yo necessito usar Codejock.CommandBarsFrame.12.1.1 y Codejock.CommandBars.12.1.1 return GPF.
No consito entender
Link abaxo con lo exemplos.
http://www.redstarsoft.com.br/TOleDemo.rar
