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

最後に各種リスナー用の動作を設定します。

スクロールバーで青を調整する時の動作は、

Private Sub scbBlue_Changed
    setColors
End Sub

となり、この関数を呼び出すために

Private Sub dlgSelectColorAdjustmentListener_adjustmentValueChanged(oEvent)
    scbBlue_Changed
End Sub
Private Sub dlgSelectColorAdjustmentListener_disposing(): End Sub

とします。AdjustmentListenerには「adjustmentValueChanged」と「disposing」の2つを作成する必要があります。

次に、サンプル色をクリックした時にimgSelectedの背景色を変更する処理は下記となります。

Private Sub imgPalette_mousePressed(oEvent As Object)

    imgSelected.getModel().BackgroundColor = _
        oEvent.Source.getModel().BackgroundColor
    
End Sub

これを呼び出すためのマウスリスナーを設定すると

Sub dlgSelectColorMouseListener_mousePressed(oEvent As Object)
    imgPalette_mousePressed(oEvent)
End Sub
Sub dlgSelectColorMouseListener_disposing(): End Sub
Sub dlgSelectColorMouseListener_mouseReleased(oEvent): End Sub
Sub dlgSelectColorMouseListener_mouseEntered(oEvent): End Sub
Sub dlgSelectColorMouseListener_mouseExited(oEvent): End Sub

となります。MouseListenerは、「mousePressed」「disposing」「mouseReleased」「mouseEntered」「mouseExited」を作成する必要があります。

最後に各ボタンの動作を設定します。
全てのボタンを押してダイアログを終了するのですが、btnOKなら特にすることはなく、btnCancelならばimgBaseの背景色をimgSelectedに写し、btnNoColorならば背景色無しを意味する-1を設定してダイアログを閉じます。

Private Sub dlgSelectColorActionListener_actionPerformed(oEvent)
    Select Case oEvent.Source.getModel.Name
        Case "btnOK"
            
        Case "btnCancel"
            imgSelected.getModel.BackgroundColor = _
                imgBase.getModel.BackgroundColor
        Case "btnNoColor"
            imgSelected.getModel.BackgroundColor = -1
    End Select
    oDialog.endExecute
End Sub
Private Sub dlgSelectColorActionListener_disposing(): End Sub

このダイアログは色々なところで活躍します。今後、工程の設定や環境設定で利用していきたいと思います。

スポンサーサイト

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

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