v4.2
プロパティページのレイアウトを微調整するために、このメソッドを使用します。高さの値のみを指定して横方向に帯状のブランク領域を作成するのが最も基本的な使用法です。同じ行の一部である他のコントロールの横の位置を制御するためにも使用できます。
PPGItem PPGLayout.AddSpacer( Int32 in_opt_width, Int32 in_opt_Height ); |
oReturn = PPGLayout.AddSpacer( [Width], [Height] ); |
パラメータ | タイプ | 説明 |
---|---|---|
Width | Long |
空間の幅(ピクセル)同じ行に他のコントロールが存在する場合ののみこの値を指定する必要があります。
デフォルト値: 0 |
Height | Long |
テキストの高さ。指定しない場合、空間は標準のコントロールの高さになります(22 ピクセル)。 デフォルト値: 0 |
dim oNewPset, oLayout, oParam, oItem set oNewPset = ActiveSceneRoot.AddProperty( "CustomProperty", false, "SpacerDemo" ) 'We put this parameter between each static so it is clear how much space each is using call oNewPset.AddParameter2( "spacer", siDouble ) set oLayout = oNewPset.PPGLayout oLayout.AddStaticText "This is a demo of the PPGLayout.AddSpacer" _ & vbCrLf & "Space starts now......." oLayout.AddSpacer , 70 oLayout.AddStaticText "....Space ends" 'Just a one line gap in the text (can be achieved also 'with extra vbCrLf directly in the text) oLayout.AddSpacer oLayout.AddStaticText "Demo of spacers within a row:" oLayout.AddRow 'There is an intentional gap before and after Button 1 oLayout.AddSpacer 25 oLayout.AddButton "Btn1", "Button 1" oLayout.AddSpacer 75 oLayout.AddButton "Btn2", "Button 2" oLayout.AddButton "Btn3", "Button 3" oLayout.EndRow InspectObj oNewPSet |