1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="form_component_CommandButton" script:language="StarBasic"> 4 5 6'************************************************************************* 7' 8' Licensed to the Apache Software Foundation (ASF) under one 9' or more contributor license agreements. See the NOTICE file 10' distributed with this work for additional information 11' regarding copyright ownership. The ASF licenses this file 12' to you under the Apache License, Version 2.0 (the 13' "License"); you may not use this file except in compliance 14' with the License. You may obtain a copy of the License at 15' 16' http://www.apache.org/licenses/LICENSE-2.0 17' 18' Unless required by applicable law or agreed to in writing, 19' software distributed under the License is distributed on an 20' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21' KIND, either express or implied. See the License for the 22' specific language governing permissions and limitations 23' under the License. 24' 25'************************************************************************* 26 27 28 29 30 31' Be sure that all variables are dimensioned: 32option explicit 33 34 35 36Sub RunTest() 37 38'************************************************************************* 39' SERVICE: 40' com.sun.star.form.component.CommandButton 41'************************************************************************* 42On Error Goto ErrHndl 43 44 Dim bOK As Boolean 45 Dim n as Integer 46 47 Test.StartMethod("ButtonType") 48 bOK = true 49 Dim ButtonTypes(4) as Variant 50 ButtonTypes(0) = com.sun.star.form.FormButtonType.PUSH 51 ButtonTypes(1) = com.sun.star.form.FormButtonType.SUBMIT 52 ButtonTypes(2) = com.sun.star.form.FormButtonType.URL 53 ButtonTypes(3) = com.sun.star.form.FormButtonType.RESET 54 55 for n = 0 to ubound(ButtonTypes())-1 56 oObj.setPropertyValue("ButtonType", _ 57 createUnoValue("byte", ButtonTypes(n))) 58 bOK = bOK AND (oObj.getPropertyValue("ButtonType") = ButtonTypes(n)) 59 next 60 61 Test.MethodTested("ButtonType", bOK) 62 63 PropertyTester.TestProperty("TargetFrame") 64 65 PropertyTester.TestProperty("TargetURL") 66 67Exit Sub 68ErrHndl: 69 Test.Exception() 70 bOK = false 71 resume next 72End Sub 73</script:module> 74