create a new page, using OOoBasic/Dialog/TabControl2 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
* タブ２ [#ved54267]
LibreOffice 3.4 では [[OOoBasic/Dialog/TabControl]] で説...
タブコンテナに com.sun.star.awt.UnoMultiPageModel サービ...
Sub CreateTab2
dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
model = dlg.getModel()
' タブコンテナを作成
tab_model = model.createInstance("com.sun.star.awt.Uno...
With tab_model
.PositionX = 0
.PositionY = 0
.Width = 150
.Height = 150
End With
model.insertByName("tab", tab_model)
tab = dlg.getControl("tab")
page_model1 = AddTabPage(tab, "page1", "Page 1")
page_model2 = AddTabPage(tab, "page2", "Page 2")
btn_model = page_model1.createInstance("com.sun.star.a...
With btn_model
.PositionX = 10
.PositionY = 10
.Width = 30
.Height = 15
.Label = "btn 1"
End With
page_model1.insertByName("btn", btn_model)
dlg.execute()
dlg.dispose()
End Sub
' ページの作成
Function AddTabPage(tab, name, title)
Dim args As New com.sun.star.beans.NamedValue
args.Name = "Title"
args.Value = title
tab_model = tab.getModel()
page_model = tab_model.createInstance("com.sun.star.aw...
tab_model.insertByName(name, page_model)
n = UBound(tab_model.getElementNames())
tab.setTabProps(n+1, Array(args))
AddTabPage = page_model
End Function
うまく切り替えれば OOo 3.4 と LO 3.4 の両方でタブを利用で...
** xdl ファイル [#o40ab29f]
ダイアログの xdl ファイルでタブコントロールを作成するには...
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD Offi...
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog...
dlg:id="Dialog1" dlg:left="96" dlg:top="30" dlg:width="1...
<dlg:bulletinboard>
<dlg:button dlg:id="CommandButton1" dlg:tab-index="0" d...
<!-- dlg:value is number of tab pages. -->
<dlg:multipage dlg:id="Multipage" dlg:tab-index="1" dlg...
<dlg:bulletinboard>
<dlg:page dlg:id="Multipage1" dlg:tab-index="2" dlg:l...
<dlg:bulletinboard>
<dlg:button dlg:id="Button1" dlg:tab-index="0" dlg:...
</dlg:bulletinboard>
</dlg:page>
<dlg:page dlg:id="Multipage2" dlg:tab-index="3" dlg:l...
<dlg:bulletinboard>
<dlg:button dlg:id="Button2" dlg:tab-index="0" dlg:...
</dlg:bulletinboard>
</dlg:page>
</dlg:bulletinboard>
</dlg:multipage>
</dlg:bulletinboard>
</dlg:window>
End:
* タブ２ [#ved54267]
LibreOffice 3.4 では [[OOoBasic/Dialog/TabControl]] で説...
タブコンテナに com.sun.star.awt.UnoMultiPageModel サービ...
Sub CreateTab2
dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
model = dlg.getModel()
' タブコンテナを作成
tab_model = model.createInstance("com.sun.star.awt.Uno...
With tab_model
.PositionX = 0
.PositionY = 0
.Width = 150
.Height = 150
End With
model.insertByName("tab", tab_model)
tab = dlg.getControl("tab")
page_model1 = AddTabPage(tab, "page1", "Page 1")
page_model2 = AddTabPage(tab, "page2", "Page 2")
btn_model = page_model1.createInstance("com.sun.star.a...
With btn_model
.PositionX = 10
.PositionY = 10
.Width = 30
.Height = 15
.Label = "btn 1"
End With
page_model1.insertByName("btn", btn_model)
dlg.execute()
dlg.dispose()
End Sub
' ページの作成
Function AddTabPage(tab, name, title)
Dim args As New com.sun.star.beans.NamedValue
args.Name = "Title"
args.Value = title
tab_model = tab.getModel()
page_model = tab_model.createInstance("com.sun.star.aw...
tab_model.insertByName(name, page_model)
n = UBound(tab_model.getElementNames())
tab.setTabProps(n+1, Array(args))
AddTabPage = page_model
End Function
うまく切り替えれば OOo 3.4 と LO 3.4 の両方でタブを利用で...
** xdl ファイル [#o40ab29f]
ダイアログの xdl ファイルでタブコントロールを作成するには...
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD Offi...
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog...
dlg:id="Dialog1" dlg:left="96" dlg:top="30" dlg:width="1...
<dlg:bulletinboard>
<dlg:button dlg:id="CommandButton1" dlg:tab-index="0" d...
<!-- dlg:value is number of tab pages. -->
<dlg:multipage dlg:id="Multipage" dlg:tab-index="1" dlg...
<dlg:bulletinboard>
<dlg:page dlg:id="Multipage1" dlg:tab-index="2" dlg:l...
<dlg:bulletinboard>
<dlg:button dlg:id="Button1" dlg:tab-index="0" dlg:...
</dlg:bulletinboard>
</dlg:page>
<dlg:page dlg:id="Multipage2" dlg:tab-index="3" dlg:l...
<dlg:bulletinboard>
<dlg:button dlg:id="Button2" dlg:tab-index="0" dlg:...
</dlg:bulletinboard>
</dlg:page>
</dlg:bulletinboard>
</dlg:multipage>
</dlg:bulletinboard>
</dlg:window>
Page:
