أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

إن المستعرض الذي تستخدمه غير معتمد

إنك تحتاج إلى تحديث المستعرض لاستخدام الموقع.

التحديث إلى أحدث إصدار من Internet Explorer

كيفية استخدام مكون ويب التخطيط مع Visual Basic

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية235885
إخلاء مسؤولية من محتوى قديم في قاعدة المعارف
عن تقديم الدعم التقني لهاو لذلك تظهر هذه المقالة كما هي و لن يتم تحديثها Microsoft تمت كتابة هذه المقالة بخصوص منتجات توقفت
الموجز
يقدم هذا المقال نظرة عامة حول كيفية استخدام مخطط Office Web Component على نموذج Visual Basic إلى تمثيل البيانات المرتبطة. وبشكل أكثر دقة، التعليمات البرمجية في هذه المقالة يوضح حسب المثال كيفية القيام بما يلي:
  • استخدام بيانات صفيف مخطط.
  • استخدام مجموعة سجلات ADO بيانات التخطيط.
  • استخدام بيانات جدول البيانات للتخطيط.
  • إنشاء عدة تخطيطات في chartspace مفرد.
  • إنشاء التخطيطات تركيبة. - و -

  • تنسيق مكونات تخطيط آخر مثل محاور ، datalabels ، سلسلة ، plotareas والمزيد.
معلومات أخرى

الخطوات التالية لإنشاء نموذج

  1. بدء تشغيل مشروع EXE قياسي جديد في Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  2. انقر فوق "المكونات" من القائمة المشروع. حدد 9.0 ويب مكونات من Microsoft Office ثم انقر فوق موافق.
  3. إضافة عناصر التحكم التالية إلى النموذج مع الخصائص المشار إليها:

    نوعاسمالتسمية التوضيحية
    ChartSpaceChartSpace1-
    DataSourceControlDataSourceControl1-
    CommandButtonCommand1استخدم صفائف
    CommandButtonCommand2استخدام مجموعة سجلات ADO
    CommandButtonCommand3استخدام جدول البيانات


    ملاحظة: حجم عنصر التحكم ChartSpace على النموذج الخاص بك بحيث يمكن أن تشغل قدر من النموذج ممكن مع استمرار السماح لعناصر تحكم أخرى في النموذج.
  4. قم بإضافة التعليمات البرمجية التالية إلى الوحدة النمطية Form1:
    Private Sub Command1_Click()    'Create arrays for the x-values and the y-values    Dim xValues As Variant, yValues1 As Variant, yValues2 As Variant    xValues = Array("Beverages", "Condiments", "Confections", _                    "Dairy Products", "Grains & Cereals", _                    "Meat & Poultry", "Produce", "Seafood")    yValues1 = Array(104737, 50952, 78128, 117797, 52902, 80160, 47491, _                     62435)    yValues2 = Array(20000, 15000, 36000, 56000, 40000, 18000, 20000, _                     33000)        'Create a new chart    Dim oChart As WCChart    ChartSpace1.Clear    ChartSpace1.Refresh    Set oChart = ChartSpace1.Charts.Add        'Add a title to the chart    oChart.HasTitle = True    oChart.Title.Caption = "Sales Per Category"        'Add a series to the chart with the x-values and y-values    'from the arrays and set the series type to a column chart    Dim oSeries As WCSeries    Set oSeries = oChart.SeriesCollection.Add    With oSeries        .Caption = "1995"        .SetData chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues1        .Type = chChartTypeColumnClustered    End With        'Add another series to the chart with the x-values and y-values    'from the arrays and set the series type to a line chart    Set oSeries = oChart.SeriesCollection.Add    With oSeries        .Caption = "1996"        .SetData chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues2        .Type = chChartTypeLineMarkers    End With        'Add a value axis to the right of the chart for the second series    oChart.Axes.Add oChart.Axes(chAxisPositionLeft).Scaling, _        chAxisPositionRight, chValueAxis    'Format the Value Axes    oChart.Axes(chAxisPositionLeft).NumberFormat = "$#,##0"    oChart.Axes(chAxisPositionRight).NumberFormat = "0"    oChart.Axes(chAxisPositionLeft).MajorUnit = 20000    oChart.Axes(chAxisPositionRight).MajorUnit = 20000        'Show the legend at the bottom of the chart    oChart.HasLegend = True    oChart.Legend.Position = chLegendPositionBottomEnd SubPrivate Sub Command2_Click()    'Set up the DataSourceControl for the Chartspace    Dim rsd As RecordsetDef    DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"    Set rsd = DataSourceControl1.RecordsetDefs.AddNew( _             "Select * from [Category Sales for 1995]", 3)    With ChartSpace1        .Clear        .Refresh        .DataSource = DataSourceControl1        .DataMember = rsd.Name    End With         'This Chartspace will contain 2 charts. Make the layout so that the    'charts are positioned horizontally    ChartSpace1.ChartLayout = chChartLayoutHorizontal        'Create a new bar chart from the query    Dim oBarChart As WCChart    Set oBarChart = ChartSpace1.Charts.Add    With oBarChart        .Type = chChartTypeBarClustered        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData chDimValues, 0, 1      'Values are second field            'Format the value axis for the bar chart so that it        'shows values in thousands (i.e., 45000 displays as 45) and        'in increments of 25000. Remove the gridlines        With .Axes(chAxisPositionBottom)            .NumberFormat = "0,"            .MajorUnit = 25000            .HasMajorGridlines = False        End With                'Change the color of the series and the plot area        .SeriesCollection(0).Interior.Color = RGB(150, 0, 150)        .PlotArea.Interior.Color = RGB(240, 240, 10)    End With        'Create a new exploded pie chart from the query    Dim oPieChart As WCChart    Set oPieChart = ChartSpace1.Charts.Add    With oPieChart        .Type = chChartTypePie        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData chDimValues, 0, 1      'Values are second field        .SeriesCollection(0).Explosion = 20                'Add a legend to the bottom of the pie chart        .HasLegend = True        .Legend.Position = chLegendPositionBottom                'Add a title to the chart        .HasTitle = True        .Title.Caption = "Sales by Category for 1995"        .Title.Font.Bold = True        .Title.Font.Size = 11                'Make the chart width 50% the size of the bar chart's width        .WidthRatio = 50                'Show data labels on the slices as percentages        With .SeriesCollection(0).DataLabelsCollection.Add            .HasValue = False            .HasPercentage = True            .Font.Size = 8            .Interior.Color = RGB(255, 255, 255)        End With            End With    End SubPrivate Sub Command3_Click()   'Dynamically add a spreadsheet control to the form   Dim oSheet As Spreadsheet   Me.Controls.Add "OWC.Spreadsheet", "Sheet"   Set oSheet = Me!Sheet      'Fill the Sheet with data   With oSheet        .Range("A1:A10").Formula = "=Row()"        .Range("B1:B10").Formula = "=A1^2"        .Range("A12").Formula = "=Max(A1:A10)"        .Range("B12").Formula = "=Max(B1:B10)"   End With      'Create an xy-scatter chart using the data in the spreadsheet   Dim oChart As WCChart   With ChartSpace1        .Clear        .Refresh        .DataSource = oSheet.object        Set oChart = .Charts.Add        oChart.Type = chChartTypeScatterSmoothLineMarkers        oChart.SetData chDimXValues, 0, "a1:a10"        oChart.SetData chDimYValues, 0, "b1:b10"   End With      With oChart        'Display the Axes Titles and        'set the major units for the axes        With .Axes(chAxisPositionBottom)            .HasTitle = True            .Title.Caption = "X"            .Title.Font.Size = 8            .MajorUnit = 1        End With        With .Axes(chAxisPositionLeft)            .HasTitle = True            .Title.Caption = "X Squared"            .Title.Font.Size = 8            .MajorUnit = 10        End With                'Set the maximum and minimum axis values        .Scalings(chDimXValues).Maximum = oSheet.Range("A12").Value        .Scalings(chDimXValues).Minimum = 1        .Scalings(chDimYValues).Maximum = oSheet.Range("B12").Value                'Change the marker and line styles for the series        With .SeriesCollection(0)            .Marker.Style = chMarkerStyleDot            .Marker.Size = 6            .Line.Weight = 1            .Line.Color = RGB(255, 0, 0)        End With   End With      'Remove the spreadsheet   Me.Controls.Remove "Sheet"   End Sub					
    ملاحظة: قد يلزم تعديل سلسلة الاتصال في الحدث Command2_Click بحيث بشكل صحيح يشير إلى مسار NWIND.MDB يتم تثبيت الدليل Visual Basic بشكل افتراضي:
       DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"					
  5. انقر فوق خصائص من القائمة المشروع. حدد علامة التبويب إجراء إلغاء تحديد إزالة المعلومات حول "عناصر تحكم ActiveX غير المستخدمة" ثم انقر فوق موافق.
  6. اضغط المفتاح F5 لتشغيل البرنامج.
  7. انقر فوق الزر استخدام صفائف. يتم إنشاء مخطط مختلط ذو محورين للقيمة. يستخدم التخطيط بيانات من الصفائف.
  8. انقر فوق الزر استخدام مجموعة سجلات ADO. يتم إنشاء المخططين في Chartspace; تخطيط شريط أو مخطط دائري مجزأ مع تسميات البيانات. يستخدم Chartspace DataSourceControl البيانات الخاصة به ثم DataSourceControl مراجع قاعدة بيانات Access خلال اتصال ADO.
  9. انقر فوق الزر استخدام جدول البيانات. يتم إنشاء مخطط مبعثر يستخدم عنصر تحكم جدول بيانات مع الصيغ في الخلايا البيانات الخاصة به. يتم بشكل حيوي إضافة عنصر تحكم جدول البيانات وإزالتها في وقت التشغيل.
مساحة التخطيط owc المخططات graphing الرسم البياني

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 235885 - آخر مراجعة: 07/13/2004 14:56:20 - المراجعة: 1.1

  • Microsoft Office Chart Component 9.0, run time
  • kbmt kbhowto KB235885 KbMtar
تعليقات
mp;t=">/body>p;did=1&t=">