به انجمن خوش آمدید

نمایش نتایج: از شماره 1 تا 6 , از مجموع 6
  1. #1
    کاربر سایت
    امتیاز: 2,129 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %99.5
    دستاورد ها:
    1 year registered1000 Experience Points

    تاریخ عضویت
    Mar 2014
    نوشته ها
    4
    امتیاز : 2,129
    تشکر
    1
    تشکر شده 0 بار در 0 ارسال

    نمایش DataTable در MSChart

    با سلام ؛

    برای نمایش مقادیر نمودار در زیر آن (معادل Data Table در نمودار اکسل) در ابزار MSChart ، باید چکار کنم ؟

    با تشکر

  2. #2
    مدیر کل سایت
    امتیاز: 17,820 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %0
    دستاورد ها:
    Created Blog entryOverdriveTagger Second Class10000 Experience PointsVeteran

    تاریخ عضویت
    Oct 2013
    نوشته ها
    211
    امتیاز : 17,820
    تشکر
    21
    تشکر شده 132 بار در 98 ارسال
    کد:
        Dim Prices(1 To 20, 1 To 3) As Variant
        Dim I As Long
        Dim curI As Currency
    
        For I = 1 To 20
            'Prefix with space to make the values MSChart "string" values.  Anything
            'that resolves to a "number" will cause this to be a data series instead
            'of the X-axis label series:
            Prices(I, 1) = " " & CStr(I)
            curI = CCur(I)
            Prices(I, 2) = curI * 2
            Prices(I, 3) = curI * 1.5 + Int(curI / 10)
        Next
    
        With MSChart1
            .chartType = VtChChartType2dLine
            .RandomFill = False
            .ChartData = Prices
        End With
    اگه میخوای مثل عقاب باشی با عقاب پرواز کن ، کسی که با گنجیشک پرواز میکنه هیچ وقت مثل عقاب نمیشه

    مورتال سرور ارائه دهنده سرور های مجازی قدرتمند با امنیت بالا

    MortalServer.com

    YID : lvlortalkombat

    آدرس تلگرام:

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید



  3. کاربر مقابل از MortalKombat عزیز به خاطر این پست مفید تشکر کرده است:

    Javad-2010 (01-03-2017)

  4. #3
    کاربر سایت
    امتیاز: 2,129 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %99.5
    دستاورد ها:
    1 year registered1000 Experience Points

    تاریخ عضویت
    Mar 2014
    نوشته ها
    4
    امتیاز : 2,129
    تشکر
    1
    تشکر شده 0 بار در 0 ارسال
    منظور من به این صورت هست :

    نمودار VB6 :

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید



    نمودار مورد نظر من :

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید



    اون قسمتی که با رنگ زرد مشخص کردم ، میخوام به نمودار VB6 اضافه کنم (MSChart)

  5. #4
    مدیر کل سایت
    امتیاز: 17,820 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %0
    دستاورد ها:
    Created Blog entryOverdriveTagger Second Class10000 Experience PointsVeteran

    تاریخ عضویت
    Oct 2013
    نوشته ها
    211
    امتیاز : 17,820
    تشکر
    21
    تشکر شده 132 بار در 98 ارسال
    باید label هر سطر رو تغییر بدی به مقدار هر سطر مثلا:
    کد:
    Dim i As Integer
    With MSChart1
        .RowCount = 6
        .ColumnCount = 1
        .chartType = VtChChartType2dBar
        
        For i = 1 To 6
            .Column = 1
            .Row = i
            .RowLabel = i - 1
            .Data = i - 1
        Next
    End With
    اگه میخوای مثل عقاب باشی با عقاب پرواز کن ، کسی که با گنجیشک پرواز میکنه هیچ وقت مثل عقاب نمیشه

    مورتال سرور ارائه دهنده سرور های مجازی قدرتمند با امنیت بالا

    MortalServer.com

    YID : lvlortalkombat

    آدرس تلگرام:

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید



  6. #5
    کاربر سایت
    امتیاز: 2,129 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %99.5
    دستاورد ها:
    1 year registered1000 Experience Points

    تاریخ عضویت
    Mar 2014
    نوشته ها
    4
    امتیاز : 2,129
    تشکر
    1
    تشکر شده 0 بار در 0 ارسال
    نقل قول نوشته اصلی توسط MortalKombat نمایش پست ها
    باید label هر سطر رو تغییر بدی به مقدار هر سطر مثلا:
    کد:
    Dim i As Integer
    With MSChart1
        .RowCount = 6
        .ColumnCount = 1
        .chartType = VtChChartType2dBar
        
        For i = 1 To 6
            .Column = 1
            .Row = i
            .RowLabel = i - 1
            .Data = i - 1
        Next
    End With

    ضمن تشکر بابت پاسخ به سوال من ؛

    با این کار متن لیبل رو از دست میدم ، که نمیخوام این اتفاق بیافته ؛
    من هم Label رو میخوام و همچنین Data Table .

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید




    با سپاس

  7. #6
    مدیر کل سایت
    امتیاز: 17,820 ، سطح: 1
    پیشروی سطح: %99 ، امتیاز مورد نیاز برای رسیدن به سطح بعدی: 0
    فعالیت کل: %0
    دستاورد ها:
    Created Blog entryOverdriveTagger Second Class10000 Experience PointsVeteran

    تاریخ عضویت
    Oct 2013
    نوشته ها
    211
    امتیاز : 17,820
    تشکر
    21
    تشکر شده 132 بار در 98 ارسال
    فک نکنم بشه row جدید ایجاد کرد ولی میتونی اینجوری عمل کنی

    کد:
    Dim i As Integer
    With MSChart1
        .RowCount = 6
        .ColumnCount = 1
        .chartType = VtChChartType2dBar
        
        For i = 1 To 6
            .Column = 1
            .Row = i
            .RowLabel = i - 1 & "          Satr" & i
            .Data = i - 1
    
        Next
     
    End With
    اگه میخوای مثل عقاب باشی با عقاب پرواز کن ، کسی که با گنجیشک پرواز میکنه هیچ وقت مثل عقاب نمیشه

    مورتال سرور ارائه دهنده سرور های مجازی قدرتمند با امنیت بالا

    MortalServer.com

    YID : lvlortalkombat

    آدرس تلگرام:

    لینکها تنها برای اعضای سایت قابل مشاهده میباشد لطفا برای دیدن آن وارد سایت شده و یا ثبت نام کنید




 

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
Design By lvlortalkombat
اکنون ساعت 08:55 PM برپایه ساعت جهانی (GMT - گرینویچ) +3.5 می باشد.