OWC11用在VB下输出统计图

Graph_Area.ctl 利用OWC11制作的用户控件

Graph_Area
Rem 公共属性
Private str_Graph_Name As String
Private long_Graph_Width As Long
Private long_Graph_Height As Long
Private str_Y_Name As String
Private int_Y_Min As Integer
Private int_Y_Max As Integer
Private int_Y_Maj As Integer
Private str_X_Name As String
Private int_X_Min As Integer
Private int_X_Max As Integer
Private int_X_Maj As Integer
Private array_X_Values() As Integer
Private str_C1_Name As String
Private array_C1_Values() As String
Private str_C1_Color As String
Private str_C2_Name As String
Private array_C2_values() As String
Private str_C2_Color As String

Rem 私有変数
Private str_X_Values As String
Private str_Line1_Values As String
Private str_Line2_Values As String

Rem 公共属性
Public Property Get()Property Get Graph_Name() As String
    Graph_Name = str_Graph_Name
End Property
Public Property Let()Property Let Graph_Name(ByVal value As String)
    str_Graph_Name = value
End Property
Public Property Get()Property Get Graph_Width() As Long
    Graph_Width = long_Graph_Width
End Property
Public Property Let()Property Let Graph_Width(ByVal value As Long)
    long_Graph_Width = value
End Property
Public Property Get()Property Get Graph_Height() As Long
    Graph_Height = long_Graph_Height
End Property
Public Property Let()Property Let Graph_Height(ByVal value As Long)
    long_Graph_Height = value
End Property
Public Property Get()Property Get Y_Name() As String
    Y_Name = str_Y_Name
End Property
Public Property Let()Property Let Y_Name(ByVal value As String)
    str_Y_Name = value
End Property
Public Property Get()Property Get Y_Min() As Integer
    Y_Min = int_Y_Min
End Property
Public Property Let()Property Let Y_Min(ByVal value As Integer)
    int_Y_Min = value
End Property
Public Property Get()Property Get Y_Max() As Integer
    Y_Max = int_Y_Max
End Property
Public Property Let()Property Let Y_Max(ByVal value As Integer)
    int_Y_Max = value
End Property
Public Property Get()Property Get Y_Maj() As Integer
    Y_Maj = int_Y_Maj
End Property
Public Property Let()Property Let Y_Maj(ByVal value As Integer)
    int_Y_Maj = value
End Property
Public Property Get()Property Get X_Name() As String
    X_Name = str_X_Name
End Property
Public Property Let()Property Let X_Name(ByVal value As String)
    str_X_Name = value
End Property
Public Property Get()Property Get X_Min() As Integer
    X_Min = int_X_Min
End Property
Public Property Let()Property Let X_Min(ByVal value As Integer)
    int_X_Min = value
End Property
Public Property Get()Property Get X_Max() As Integer
    X_Max = int_X_Max
End Property
Public Property Let()Property Let X_Max(ByVal value As Integer)
    int_X_Max = value
End Property
Public Property Get()Property Get X_Maj() As Integer
    X_Maj = int_X_Maj
End Property
Public Property Let()Property Let X_Maj(ByVal value As Integer)
    int_X_Maj = value
End Property
Public Property Get()Property Get C1_Name() As String
    C1_Name = str_C1_Name
End Property
Public Property Let()Property Let C1_Name(ByVal value As String)
    str_C1_Name = value
End Property
Public Property Get()Property Get C1_Values() As Variant
    C1_Values = array_C1_Values
End Property
Public Property Let()Property Let C1_Values(ByRef value As Variant)
    array_C1_Values = value
End Property
Public Property Get()Property Get C1_Color() As String
    C1_Color = str_C1_Color
End Property
Public Property Let()Property Let C1_Color(ByVal value As String)
    str_C1_Color = value
End Property
Public Property Get()Property Get C2_Name() As String
    C2_Name = str_C2_Name
End Property
Public Property Let()Property Let C2_Name(ByVal value As String)
    str_C2_Name = value
End Property
Public Property Get()Property Get C2_Values() As Variant
    C2_Values = array_C1_Values
End Property
Public Property Let()Property Let C2_Values(ByRef value As Variant)
    array_C2_values = value
End Property
Public Property Get()Property Get C2_Color() As String
    C2_Color = str_C2_Color
End Property
Public Property Let()Property Let C2_Color(ByVal value As String)
    str_C2_Color = value
End Property

Rem 初期化の関数
Private Sub UserControl_Initialize()Sub UserControl_Initialize()
ChartSpace1.Left = 0
ChartSpace1.Top = 0
ChartSpace1.Visible = False
'既定に設定
str_Graph_Name = "在庫状推移状況"
long_Graph_Width = 9975
long_Graph_Height = 6975
str_Y_Name = "台数"
int_Y_Min = 0
int_Y_Max = 350
int_Y_Maj = 50
str_X_Name = "ラウンド"
int_X_Min = 1
int_X_Max = 8
int_X_Maj = 1
str_C1_Name = "全体"
str_C1_Color = "#800040"
str_C2_Name = "AF"
str_C2_Color = "#8080FF"
End Sub

Rem 表示統計図の関数
Public Sub GraphShow()Sub GraphShow()

'データを用意します
Call Date_Prepare

Call ChartSpace1.Clear
ChartSpace1.Charts.Add (0)
ChartSpace1.AllowUISelection = False
ChartSpace1.DisplayScreenTips = False

Set objChart = ChartSpace1.Charts.Item(0)
 '凡例を表示すります
objChart.HasLegend = True
'見出しを設けます
objChart.HasTitle = True
'統計図の名称
objChart.Title.Caption = str_Graph_Name
'統計図の名称は太字表示すります
objChart.Title.Font.Bold = True
'背景の色
objChart.PlotArea.Interior.Color = "White"

'X軸を設けます
objChart.Axes(0).HasTitle = True
'X軸の名称
objChart.Axes(0).Title.Caption = str_X_Name
'X軸の名称、下線を添加します
'objChart.Axes(0).Title.Font.Underline = UnderlineStyleEnum.owcUnderlineStyleSingle

'Y軸を設けます
objChart.Axes(1).HasTitle = True
'Y軸の名称を設けます
objChart.Axes(1).Title.Caption = str_Y_Name
'Y軸の名称、下線を添加します
'objChart.Axes(1).Title.Font.Underline = UnderlineStyleEnum.owcUnderlineStyleSingle
'Y軸の最小値を設けます
objChart.Axes(1).Scaling.Maximum = int_Y_Max
'Y軸の最大値を設けます
objChart.Axes(1).Scaling.Minimum = int_Y_Min
'Y軸の目盛を設けます
objChart.Axes(1).MajorUnit = int_Y_Maj

'線1を添加します
Set line1 = objChart.SeriesCollection.Add(0)
'線1のタイプを設けます
line1.Type = ChartChartTypeEnum.chChartTypeArea
'線1の点のタイプを設けます
'line1.Marker.Style = ChartMarkerStyleEnum.chMarkerStyleCircle
'線1の色を設けます
'line1.Line.Color = "darkred"
'点の色を設けます
line1.Interior.Color = str_C1_Color
'線1の点のサイズを設けます
'line1.Marker.Size = line1_PointSize
'線1の名称を設けます
Call line1.SetData(ChartDimensionsEnum.chDimSeriesNames, ChartSpecialDataSourcesEnum.chDataLiteral, str_C1_Name)
'線1のX軸を設けます
Call line1.SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, str_X_Values)
'線1の値を設けます
Call line1.SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, str_Line1_Values)
'ラベルを表示すります
Call line1.DataLabelsCollection.Add
line1.DataLabelsCollection(0).HasValue = False

'線2を添加します
Set line2 = objChart.SeriesCollection.Add(1)
'線2のタイプを設けます
line2.Type = ChartChartTypeEnum.chChartTypeArea
'線2の点のタイプを設けます
'line1.Marker.Style = ChartMarkerStyleEnum.chMarkerStyleCircle
'線2の色を設けます
'line2.Line.Color = str_C2_Color
'点の色を設けます
line2.Interior.Color = str_C2_Color
'線2の点のサイズを設けます
'line1.Marker.Size = line1_PointSize
'線2の名称を設けます
Call line2.SetData(ChartDimensionsEnum.chDimSeriesNames, ChartSpecialDataSourcesEnum.chDataLiteral, str_C2_Name)
'線2のX軸を設けます
Call line2.SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, str_X_Values)
'線2の値を設けます
Call line2.SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, str_Line2_Values)
'ラベルを表示すります
Call line2.DataLabelsCollection.Add
line2.DataLabelsCollection(0).HasValue = False

Rem 統計図のサイズを設けます
ChartSpace1.Width = long_Graph_Width
ChartSpace1.Height = long_Graph_Height
UserControl.Width = long_Graph_Width
UserControl.Height = long_Graph_Height
ChartSpace1.Visible = True
End Sub

Rem データを用意する関数
Private Sub Date_Prepare()Sub Date_Prepare()
'故障許容
If int_Y_Min < 0 Then
    int_Y_Min = 0
End If
If int_Y_Maj <= 0 Then
    int_Y_Maj = 1
End If
If int_X_Maj < 1 Then
    int_X_Maj = 1
End If
'X軸の値を作ります
For i = int_X_Min To int_X_Max Step int_X_Maj
    If i = int_X_Min Then
        str_X_Values = int_X_Min
    Else
        str_X_Values = str_X_Values & "," & i
    End If
Next i
'線1の値を作ります
str_Line1_Values = Join(array_C1_Values, ",") & "," & "-100000"
'線2の値を作ります
str_Line2_Values = Join(array_C2_values, ",") & "," & "-100000"
End Sub

Form1.frm 示例文件后台代码

Form1
Dim Graph_Name As String
Dim Graph_Width As Long
Dim Graph_Height As Long
Dim Y_Name As String
Dim Y_Min As Integer
Dim Y_Max As Integer
Dim Y_Maj As Integer
Dim X_Name As String
Dim X_Min As Integer
Dim X_Max As Integer
Dim X_Maj As Integer
Dim array_X_Values() As Integer
Dim C1_Name As String
Dim array_C1_Values() As String
Dim str_C1_Color As String
Dim C2_Name As String
Dim array_C2_values() As String
Dim str_C2_Color As String


Private Sub Command1_Click()Sub Command1_Click()
Rem データを用意します
Graph_Name = Text_Graph_Name.Text
Graph_Width = Text_Graph_Width.Text
Graph_Height = Text_Graph_Height.Text
Y_Name = Text_Y_Name.Text
Y_Min = Text_Y_Min.Text
Y_Max = Text_Y_Max.Text
Y_Maj = Text_Y_Maj.Text
X_Name = Text_X_Name.Text
X_Min = Text_X_Min.Text
X_Max = Text_X_Max.Text
X_Maj = Text_X_Maj.Text
C1_Name = Text_C1_Name.Text
array_C1_Values = Split(Text_C1_Values.Text, ",")
str_C1_Color = Text_C1_Color.Text
C2_Name = Text_C2_Name.Text
array_C2_values = Split(Text_C2_Values.Text, ",")
str_C2_Color = Text_C2_Color.Text
Rem コンポーネントに値を代入すります
Graph1.Graph_Name = Graph_Name
Graph1.Graph_Width = Graph_Width
Graph1.Graph_Height = Graph_Height
Graph1.Y_Name = Y_Name
Graph1.Y_Min = Y_Min
Graph1.Y_Max = Y_Max
Graph1.Y_Maj = Y_Maj
Graph1.X_Name = X_Name
Graph1.X_Min = X_Min
Graph1.X_Max = X_Max
Graph1.X_Maj = X_Maj
Graph1.C1_Name = C1_Name
Graph1.C1_Values = array_C1_Values
Graph1.C1_Color = str_C1_Color
Graph1.C2_Name = C2_Name
Graph1.C2_Values = array_C2_values
Graph1.C2_Color = str_C2_Color
Rem 統計図を表示すります
Call Graph1.GraphShow
End Sub

GraphArea.xls OCX用户控件说明文档

GraphArea.xls
Graph_Area クラス                
    統計図を表しています。            
                
カスタムパブリック プロパティ：                

    属性名    タイプ    既定値    説明
    Graph_Name    String    在庫状推移状況    統計図の名称を取得または設定します。
    Graph_Width    Long    9975    統計図の幅を取得または設定します。
    Graph_Height    Long    6975    統計図の高さを取得または設定します。
    Y_Name    String    台数    Y軸の名称を取得または設定します。
    Y_Min    Integer    0    Y軸の最小値を取得または設定します。
    Y_Max    Integer    350    Y軸の最大値を取得または設定します。
    Y_Maj    Integer    50    Y軸の目盛を取得または設定します。
    X_Name    String    ラウンド    X軸の名称を取得または設定します。
    X_Min    Integer    1    X軸の最小値を取得または設定します。
    X_Max    Integer    8    X軸の最大値を取得または設定します。
    X_Maj    Integer    1    X軸の目盛を取得または設定します。    
    C1_Name    String    全体    系列１の名称を取得または設定します。    
    C1_Color    String    #800040    系列１の色を取得または設定します。    
    C1_Values    String配列    なし    系列１の値を取得または設定します。    
    C2_Name    String    AF    系列2の名称を取得または設定します。    
    C2_Color    String    #8080FF    系列2の色を取得または設定します。    
    C2_Values    String配列    なし    系列2の値を取得または設定します。    

カスタムパブリック メソッド：                    

    方法名    パラメーター    戻り値    機能    
    GraphShow    なし    なし    統計図を表示すります    

注意事項：                    
    ①コンポーネントファイル名は＜GraphArea.ocx＞です。（プログラムを配布する時、なくなってはいけません。）                
    ②支持を提供するファイル名は＜OWC11.DLL＞です。（プログラムを配布する時、なくなってはいけません。）                

转载于:https://www.cnblogs.com/hbbpb/archive/2007/08/16/858914.html