OpenOffice.org Basicでガントチャート
OpenOffice.org Basicを使ってガントチャート作成用マクロ ガントチャートforOOoを開発する手順を紹介していきます。
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
プロパティ編集ダイアログ その4

各コントロールの値をプロパティデータに戻すgetValues関数を作成します。

Private Sub getValues
    
    With Properties(Id)
        ._SheetName = txtSheetName.Text
        ._BeginDate = txtBeginDate.Text
        ._DrawRows = txtDrawRows.Text
        
        ._ChartBarWeight = scbChartBarWeight.Value + 1
        ._ChartBarPlanPos = scbChartBarPlanPos.Value
        ._ChartBarActPos = scbChartBarActPos.Value
        ._ProgressLineWeight = scbProgressLineWeight.Value + 1
        ._MileStoneWeight = scbMileStoneWeight.Value + 1
        
        ._ChartBarPlanLineColor = _
            imgChartBarPlanLineColor.getModel().BackgroundColor
        ._ChartBarPlanFillColor = _
            imgChartBarPlanFillColor.getModel().BackgroundColor
        ._ChartBarActLineColor = _
            imgChartBarActLineColor.getModel().BackgroundColor
        ._ChartBarActFillColor = _
            imgChartBarActFillColor.getModel().BackgroundColor
        ._ChartHolidayColor = _
            imgChartHolidayColor.getModel().BackgroundColor
        ._ProgressLineColor = _
            imgProgressLineColor.getModel().BackgroundColor
        
        ._DrawProgressLine = State2Bool(chkDrawProgressLine)
        ._PrintAllItems = State2Bool(chkPrintAllItems)
        ._PrintNotCompletedItem = State2Bool(chkPrintNotCompleted)
        ._InsertSpaceBetweenCategory = _
            State2Bool(chkInsertSpaceBetweenCategory)
        ._PrintLabel = State2Bool(chkPrintLabel)
        ._CalculateStatus = State2Bool(chkCalculateStatus)
        ._CalculateTimesWithoutHoliday = _
            State2Bool(chkCalculateTimesWithoutHoliday)
        ._UseOptionalNote = State2Bool(chkUseOptionalNote)
        
        ._CellUnit = cmbCellUnit.getSelectedItemPos
        ._ChartBarType = cmbChartBarType.getSelectedItemPos
        ._CategorizeType = lstCategorizeType.getSelectedItemPos
        
    End With
    
End Sub

ここで使用しているState2BoolはチェックボックスのStatusデータをTrue/Falseの値に変換する関数で、mdlMain内にて以前定義したものです。

スポンサーサイト

テーマ:OpenOffice.org - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
http://shinob.blog42.fc2.com/tb.php/109-10991713
この記事にトラックバックする(FC2ブログユーザー)
この記事へのトラックバック
COPYRIGHT(C) 2004 POWERD BY FC2 ALLRIGHT RESERVED.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。