xchart.vb

chart图片,统计,网上下来的源代码

				If (uChartType And XC_LINE) = XC_LINE Then
					'draw the lines
					If uDataType = DT_NEG Then
						yTemp = y2
					ElseIf uDataType = DT_POS Then 
						yTemp = y1
					Else
						yTemp = IIf((oChartItem.Value > 0), y1, y2)
					End If
					xTemp = x1 + (uColWidth / 2)
					If (X > 0) Then
						
					End If
					xPrev = xTemp
					yPrev = yTemp
				End If
				
				If uAxisXOn Then
					.ForeColor = System.Drawing.ColorTranslator.FromOle(uXAxisItemsColor)
					.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints - 1)
					'UPGRADE_WARNING: 未能解析对象 varLabel 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
					varLabel = Split(oChartItem.XAxisDescription, vbCrLf)
					xTemp = (((x2 - x1) / 2) + x1) / VB6.TwipsPerPixelX
					'UPGRADE_ISSUE: UserControl 方法 UserControl.TextHeight 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
					xTemp = xTemp - (((.TextHeight("A")) / VB6.TwipsPerPixelX) * (UBound(varLabel))) / 2
					For intIdx = UBound(varLabel) To 0 Step -1
						'UPGRADE_ISSUE: UserControl 方法 UserControl.TextWidth 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
						yTemp = (VB6.PixelsToTwipsY(VB6.PixelsToTwipsY(.ClientRectangle.Height)) - uBottomMargin + .TextWidth(varLabel(intIdx)) / 2) / VB6.TwipsPerPixelY + 5
						'UPGRADE_WARNING: 未能解析对象 varLabel() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
						'UPGRADE_ISSUE: UserControl 属性 UserControl.hDC 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
						PrintRotText(.hDC, varLabel(intIdx), xTemp, yTemp, 270)
						'UPGRADE_ISSUE: UserControl 方法 UserControl.TextHeight 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
						xTemp = xTemp + .TextHeight("A") / VB6.TwipsPerPixelX
					Next 
					xTemp = (((x2 - x1) / 2) + x1) / VB6.TwipsPerPixelX
					yTemp = (VB6.PixelsToTwipsY(VB6.PixelsToTwipsY(.ClientRectangle.Height)) - uBottomMargin) + VB6.TwipsPerPixelX
					'UPGRADE_ISSUE: UserControl 方法 UserControl.Line 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
					MyBase.Line (xTemp * VB6.TwipsPerPixelX, yTemp) - (xTemp * VB6.TwipsPerPixelX, yTemp + 2 * VB6.TwipsPerPixelX), uMajorGridColor
					.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints + 1)
				End If
				
				
				If uColorBars = True Then
					CurrentColor = CurrentColor + 1
					If CurrentColor >= 15 Then CurrentColor = 0
				End If
			Next X
			
			If Len(uXAxisLabel) Then
				.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints - 1)
				'UPGRADE_ISSUE: UserControl 方法 UserControl.TextHeight 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				'UPGRADE_ISSUE: UserControl 属性 UserControl.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				.CurrentY = VB6.PixelsToTwipsY(VB6.PixelsToTwipsY(.ClientRectangle.Height)) - .TextHeight(uXAxisLabel) * 1.5
				'UPGRADE_ISSUE: UserControl 方法 UserControl.TextWidth 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				'UPGRADE_ISSUE: UserControl 属性 UserControl.CurrentX 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				.CurrentX = xMiddle - (.TextWidth(uXAxisLabel) / 2)
				.ForeColor = System.Drawing.ColorTranslator.FromOle(uXAxisLabelColor)
				'UPGRADE_ISSUE: UserControl 方法 UserControl.Print 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				MyBase.Print(uXAxisLabel)
				.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints + 1)
			End If
			
			If Len(uYAxisLabel) > 0 Then
				.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints - 1)
				.ForeColor = System.Drawing.ColorTranslator.FromOle(uYAxisLabelColor)
				'UPGRADE_ISSUE: UserControl 方法 UserControl.TextHeight 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				'UPGRADE_ISSUE: UserControl 属性 UserControl.hDC 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
				PrintRotText(.hDC, uYAxisLabel, .TextHeight(uYAxisLabel) / VB6.TwipsPerPixelX, VB6.PixelsToTwipsY(VB6.PixelsToTwipsY(.ClientRectangle.Height)) / 2 / VB6.TwipsPerPixelY, 90)
				.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints + 1)
			End If
			
			If bDisplayLegend = True Then
				If uSelectable And uSelectedColumn > -1 Then
					
					
					
					If (uSelectedColumn + 1) > perScreen Then
					End If
				End If
			End If
		End With
		
	End Sub
	
	
	
	Private Sub ClearLegendItems() '6
		
		Dim X As Short
		
		On Error Resume Next 'we are expecting an error for item 1
		
		If bLegendAdded Then
			bLegendAdded = False
			
			
		End If
		
	End Sub
	
	
	
	'UPGRADE_ISSUE: VBRUN.PropertyBag 类型 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"”
	'UPGRADE_WARNING: 不支持 UserControl 事件 ReadProperties。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="92F3B58C-F772-4151-BE90-09F4A232AEAD"”
	Private Sub UserControl_ReadProperties(ByRef PropBag As Object) '4
		
		On Error Resume Next
		
		With PropBag
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uTopMargin = .ReadProperty("uTopMargin", 55)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uBottomMargin = .ReadProperty("uBottomMargin", 55)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uLeftMargin = .ReadProperty("uLeftMargin", 55)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uRightMargin = .ReadProperty("uRightMargin", 55)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uContentBorder = .ReadProperty("uContentBorder", True)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uSelectable = .ReadProperty("uSelectable", False)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uHotTracking = .ReadProperty("uHotTracking", False)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uSelectedColumn = .ReadProperty("uSelectedColumn", -1)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uChartTitle = .ReadProperty("uChartTitle", MyBase.Name)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uChartSubTitle = .ReadProperty("uChartSubTitle", uChartSubTitle)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uAxisYOn = .ReadProperty("uAxisXOn", uAxisXOn)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uAxisXOn = .ReadProperty("uAxisYOn", uAxisYOn)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uColorBars = .ReadProperty("uColorBars", False)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uIntersectMajor = .ReadProperty("uIntersectMajor", 10)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uIntersectMinor = .ReadProperty("uIntersectMinor", 2)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uMaxYValue = .ReadProperty("uMaxYValue", 100)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uDisplayDescript = .ReadProperty("uDisplayDescript", False)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uXAxisLabel = .ReadProperty("uXAxisLabel", uXAxisLabel)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uYAxisLabel = .ReadProperty("uYAxisLabel", uYAxisLabel)
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			MyBase.BackColor = System.Drawing.ColorTranslator.FromOle(.ReadProperty("BackColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White)))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			MyBase.ForeColor = System.Drawing.ColorTranslator.FromOle(.ReadProperty("ForeColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black)))
			'----------------------------------------------------
			'added by M. Costa on 21/06/2002
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uMinYValue = .ReadProperty("MinY")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uBarColor = .ReadProperty("BarColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uSelectedBarColor = .ReadProperty("SelectedBarColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Cyan))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uMajorGridColor = .ReadProperty("MajorGridColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uInfoBackColor = .ReadProperty("InfoBackColor")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uInfoForeColor = .ReadProperty("InfoForeColor")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uXAxisLabelColor = .ReadProperty("XAxisLabelColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uYAxisLabelColor = .ReadProperty("YAxisLabelColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uXAxisItemsColor = .ReadProperty("XAxisItemsColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uYAxisItemsColor = .ReadProperty("YAxisItemsColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uChartTitleColor = .ReadProperty("ChartTitleColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uChartSubTitleColor = .ReadProperty("ChartSubTitleColor", System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black))
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uChartType = .ReadProperty("ChartType")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uMenuItems = .ReadProperty("MenuItems")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uCustomMenuItems = .ReadProperty("CustomMenuItems")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uInfoItems = .ReadProperty("InfoItems")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			'UPGRADE_WARNING: 未能解析对象 PropBag.ReadProperty() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			uSaveAsCaption = .ReadProperty("SaveAsCaption")
			'UPGRADE_ISSUE: PropertyBag 方法 PropBag.ReadProperty 未升级。 单击以获得更多