Материал из 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