none
[VB6]在 Mschart 上使用圓鉼圖時Row的數值標籤怎麼會無法顯示.... RRS feed

  • 一般討論

  • VB版本 VB6 SP6

    作業系統 Windows XP Sp2

    MsChart 元件資訊:

    Mschart20.ocx

    Microsoft Chart Control(SP4) (OLEDB)

     

    我在使用MsChart 遇上了2個問題,是不是我的程式碼有做錯,請問有人幫幫我嗎。拜託了!!謝謝。

    問題(一)

    圓餅圖輸入資料數據如下

          C1        C2    C3
    R1 30500 1020 17860
    R2 37140 0        0

    使用此段程式碼顯示數值標題,並且按資料方格的資料列讀取數列的資料

    MSChart1.Plot.DataSeriesInRow = True

    For xCount = 1 To MSChart1.RowCount
       With MSChart1.Plot.SeriesCollection(xCount).DataPoints(-1).DataPointLabel
          .LocationType = VtChLabelLocationTypeAbovePoint
          .Component = VtChLabelComponentPercent
          .ValueFormat = "#####0.00" '設定資料點格式
          .PercentFormat = "0.0%"
       End With
    Next xCount

    再上述的資料數據情況下會無法顯示數據百分比,但如果將資料數據修該成下列資料數據,又能正常顯示數據百分比。

            C1     C2    C3
    R1 30500 1020 17860
    R2 37140 2040 36110

    問題(二)

    我使用此段程式碼想用來顯示軸的標籤,但使用EditCopy方法時,

    僅X軸標籤設定有作用,其他如 y 軸、次 y 軸的設定都會無效。

    ps.設定的屬性有 X、Y、Z 軸的AxisTitle.Text設定是有效的

     

    Private Sub Command1_Click()
       '將立體圖表所有軸的軸標題設定為可見的。
       Dim axisID As VtChAxisId
       For axisID = VtChAxisIdX To VtChAxisIdZ
          With MSChart1.Plot.Axis(axisID, 1)
             '設定文字的水平對齊模式。
             .AxisTitle.TextLayout.HorzAlignment = VtHorizontalAlignmentLeft
             '設定文字的方向。
             .AxisTitle.TextLayout.Orientation = VtOrientationDown
             '設定文字的垂直對齊模式。
             .AxisTitle.TextLayout.VertAlignment = VtVerticalAlignmentBottom
             '設定一個決定文字是否換列的值。
             .AxisTitle.TextLayout.WordWrap = False
             '設定軸標題文字的字型大小
             .AxisTitle.VtFont.Size = 20
             '設定顯示軸標題
             .AxisTitle.Visible = True
             '設定顯示軸標題文字
             Select Case axisID
                Case 0
                   .AxisTitle.Text = "X Axis Title"
                Case 1
                    .AxisTitle.Text = "Y Axis Title"
                Case 2
                   .AxisTitle.Text = "2nd Y Axis Title"
                Case 3
                   .AxisTitle.Text = "Z Axis Title"
             End Select

          End With
       Next

       '將目前圖表的圖片複製到剪貼簿中
       MSChart1.EditCopy
      
    End Sub

     怎麼會這樣呢....HELP ME >"<

    2006年9月12日 上午 05:41

所有回覆

  • 嗯...請問有人能夠幫我看看問題二的問題嗎...

    我不知道是我的程式碼有錯誤還是說MSCHART元件本身就有這個問題呢?

    2006年9月13日 上午 10:40