グラフ (MSChart) コントロールでのパターンに色を変更する方法

先頭へ戻る

ステップ バイ ステップの例

1. Visual Basic での新しい標準 EXE プロジェクトを作成します。 デフォルトで Form1 が作成されます。
2. [コンポーネント] ダイアログ ボックスを表示するプロジェクト メニューの [からのコンポーネントを選択します。
3. Visual Basic 5. 0 でグラフ コントロール」を選択します。 中の Visual Basic 6. 0 では、選択「グラフ コントロール 6. 0 (OLE DB):」
4. Form1 にグラフ コントロールと、コマンド ボタンのインスタンスを配置します。
5. Form1 の [全般] の宣言セクションに次コードを挿入:

        Private Sub Command1_Click()
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldDownDiagonal
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255
   
        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldHorizontal
        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255
   
        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldUpDiagonal
        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255
   
        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldVertical
        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255
        End Sub
   					

6. プロジェクトを実行し、[Command1] をクリックし、グラフ今すぐ使用モノクロのパターンの色の代わりにします。

先頭へ戻る