Материал из Forumooo wiki
(Различия между версиями)
|
|
| Строка 1: |
Строка 1: |
| - | =(Тестовая статья для новой wiki)=
| |
| - | ==Как добавить интернет-ссылку в диалог Basic==
| |
| - | Образец кода на Basic.
| |
| | | | |
| - | Sub Dialog()
| |
| - | oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
| |
| - | A = CreateCtrWithProp("FixedHyperlink", MkRk(30,30,100,20), Array(), Array())
| |
| - | A.Text="кц.рф"
| |
| - | A.URL=<nowiki>"http://кц.рф"</nowiki>
| |
| - | oDlg.addControl("A1",A)
| |
| - | oDlg.Execute()
| |
| - | End Sub
| |
| - |
| |
| - | Function CreateCtrWithProp( CtrType, aPosSize, aPropNames, aPropValues )
| |
| - | Dim oCtr As Object, oCtrModel As Object
| |
| - | oCtr = createUnoService("com.sun.star.awt.UnoControl" & CtrType )
| |
| - | oCtrModel = createUnoService("com.sun.star.awt.UnoControl" & CtrType & "Model" )
| |
| - | oCtrModel.setPropertyValues( aPropNames, aPropValues )
| |
| - | With oCtr
| |
| - | .setModel(oCtrModel)
| |
| - | .setPosSize( aPosSize.X, aPosSize.Y, aPosSize.Width, aPosSize.Height, _
| |
| - | com.sun.star.awt.PosSize.POSSIZE )
| |
| - | End With
| |
| - | CreateCtrWithProp() = oCtr
| |
| - | End Function
| |
| - |
| |
| - | Function MkRk( nX As Long, nY As Long, nWidth As Long, nHeight As Long ) As com.sun.star.awt.Rectangle
| |
| - | Dim Rk As Object
| |
| - | Rk = createUnoStruct("com.sun.star.awt.Rectangle")
| |
| - | With Rk
| |
| - | .X = nX
| |
| - | .Y = nY
| |
| - | .Width = nWidth
| |
| - | .Height = nHeight
| |
| - | End With
| |
| - | MkRk() = Rk
| |
| - | End Function
| |
Версия 20:42, 18 октября 2010
