ソフト開発塾　ＶＣでＯＣＸにボタンを貼り付ける。

前のページで、メンバー変数m_bnoを作成しましたね。

同じように、ボタンクラスの変数を２つ作成します。

メンバー変数の追加

ワークスペースは、こんな感じになっていると思います。

クラスウィザードで、ＷＮ＿ＣＲＥＡＴＥの時の関数を追加します。

その、コードを修正しましょう。

int CAXSMPCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct) { if (COleControl::OnCreate(lpCreateStruct) == -1) return -1; // TODO: この位置に固有の作成用コードを追加してください return 0; }	変更前
int CAXSMPCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct) { if (COleControl::OnCreate(lpCreateStruct) == -1) return -1; // TODO: この位置に固有の作成用コードを追加してください m_bt1 = new CButton(); m_bt1->Create("ボタン1",BS_PUSHBUTTON | WS_VISIBLE,CRect(0,0,99,99),this,IDC_BUTTON1); m_bt2 = new CButton(); m_bt2->Create("ぼたん2",BS_PUSHBUTTON | WS_VISIBLE,CRect(100,0,199,99),this,IDC_BUTTON2); return 0; }	修正後

これで、ボタンが、表示されます。
メニューの「ツール」−＞「ActiveXコントロールテストコンテナ」で、テストしてみましょう。

ActiveXコントロールテストコンテナ

メニューの「編集」−＞「コントロールの挿入」

エリアが小さい場合、広げましょう。

ボタンが、二つ表示していますね。

ボタンが押されたら、その下に円を書くには、ＯｎＤｒａｗを修正します。

void CAXSMPCtrl::OnDraw( CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) { // TODO: 以下のコードを描画用のコードに置き換えてください pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH))); pdc->Ellipse(rcBounds); }	変更前
void CAXSMPCtrl::OnDraw( CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) { // TODO: 以下のコードを描画用のコードに置き換えてください pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH))); // pdc->Ellipse(rcBounds); // 修正個所 if(m_bno == 1){ pdc->Ellipse(0,100,99,199); }else if(m_bno == 2){ pdc->Ellipse(100,100,199,199); }else{ pdc->Ellipse(rcBounds); } }	変更後

こんなことを、すれば、ＯＣＸでボタンができます。

ＶＣって、大変ですね。

やはり、操作系はＶＢで行って、計算をＶＣが楽ですね。

　

トップページ ソフト開発塾 前のページへ戻る

参考にした方は、広告ページも訪れてください。よろしくお願いします。