LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****
Sub Main

End Sub


Sub openForm(oEvent AS OBJECT)
  stTag = oEvent.Source.Model.Tag
  ThisDatabaseDocument.FormDocuments.getByName(stTag).open
End Sub

SUB FB_Parameter
 DIM oSettings AS OBJECT
 oSettings = ThisComponent.DataSource.Settings
 oSettings.ParameterNameSubstitution = True
END SUB

SUB Link_oeffnen
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld AS OBJECT
DIM oShell AS OBJECT
DIM stFeld AS STRING
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm =oDrawpage.Forms.getByName("ArtPflanzen").getByName("Art_Pflanzen")
oFeld = oForm.getByName("Tabellensteuerelement 1").getByName("fn_Name")
stFeld = oFeld.Text
IF stFeld = "" THEN
EXIT SUB
END IF
IF InStr(stFeld,"@") THEN
stFeld = "mailto:"+stFeld
ELSE
stFeld = convertToUrl(stFeld)
END IF
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
oShell.execute(stFeld,,0)
END SUB

REM  *****  BASIC  *****

Sub URLButton_Approve(oEv)
    openURL(oEv, False)
End Sub

Sub FileButton_Approve(oEv)
    openURL(oEv, True)
End Sub

Sub openURL(oEv, bConvertToURL)
    oModel = oEv.Source.getModel()
    oModel.ButtonType = com.sun.star.form.FormButtonType.URL
    oForm = oModel.getParent()
    oColumn = oForm.Columns.getByName(oModel.Tag)
    if bConvertToURL then
        sURL = convertToUrl(oColumn.getString())
    else
        sURL = oColumn.getString()
    endif
    oModel.TargetURL = sURL
End Sub