Forum społeczności użytkowników OpenOffice i LibreOffice

Kod: Zaznacz cały

Dim oTree As Object
Sub ShowDialog_qH
	DummyTxt="c:\input.txt"
	f1 = FreeFile()
	Open DummyTxt for Input as #f1

	Dim libStandard
   	Dim libDialog
   	DialogLibraries.loadLibrary("Standard")
   	libStandard = DialogLibraries.getByName("Standard")
   	libDialog = libStandard.getByName("queryHint_Dialog")
   	dlgQH = CreateUnoDialog(libDialog)

   	oTree = dlgQH.getControl("drzewo")
   	oTreeModel = oTree.Model

	oMutableTreeDataModel = createUnoService("com.sun.star.awt.tree.MutableTreeDataModel")
	oRootNode = oMutableTreeDataModel.createNode("ALL", true)
	oMutableTreeDataModel.setRoot(oRootNode)

	Dim oChildNode
	Do while NOT EOF(f1)
		Line Input #f1, s
		if InStr(s, "# ") = 1 then
		   	oChildNode = oMutableTreeDataModel.createNode(Mid(s, 3, 100), true)
		   	oRootNode.appendChild(oChildNode)
	   	elseif InStr(s, "## ") = 1 then
            Dim oSubChildNode
            oSubChildNode = oMutableTreeDataModel.createNode(Mid(s, 4, 100), false)
            oChildNode.appendChild(oSubChildNode)
		end if            
	Loop
	Close #f1

	oTreeModel.DataModel = oMutableTreeDataModel
   	oTree.DefaultExpandedGraphicURL = FOLDER_OPEN
   	oTree.DefaultCollapsedGraphicURL = FOLDER_CLOSED 
   dlgQH.execute
End Sub 'ShowDialog_qH

Sub Cos_sie_stalo
	Dim oSel
	oSel = oTree.getSelectedText()
	MsgBox oSel
End Sub

Kod: Zaznacz cały

oSel = oTree.getSelection().getDisplayValue()
msgbox(oSel)