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 公共属性
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