有偿制作，vb6里面能根据数据中的4个项目做“管制图”吗？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 有偿制作，vb6里面能根据数据中的4个项目做“管制图”吗？

标题：有偿制作，vb6里面能根据数据中的4个项目做“管制图”吗？

只看楼主

cuituo

等　级：论坛游民
威　望：2
帖　子：15
专家分：11
注　册：2008-6-21

第 11 楼

得分:4

回复 7楼风吹过b

vb中竖排文字只能转换成图片，旋转

2023-02-11 01:01

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

第 12 楼

得分:0

以下是引用牛掰在2023-2-10 12:25:58的发言：

版主可以分享给我吗？如果有费用的话请加我微信，谢谢

https://bbs.bccn.net/thread-511192-1-1.html

https://bbs.bccn.net/thread-511100-1-1.html

都看一下吧。

授人于鱼，不如授人于渔
早已停用QQ了

2023-02-11 13:14

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 13 楼

得分:0

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i

    For i = 1 To 15
        Values(i, 2) = Rnd * 100 '以下两个赋相同的值就行了。
        Values(i, 3) = Rnd(0) * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

心生万象，万象皆程序！
本人计算机知识网：http://bbs.为防伸手党，本站已停止会员注册。

2023-02-11 14:31

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 14 楼

得分:0

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i

    For i = 1 To 15
        Values(i, 1) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

心生万象，万象皆程序！
本人计算机知识网：http://bbs.为防伸手党，本站已停止会员注册。

2023-02-11 15:05

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 15 楼

得分:0

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i

    For i = 1 To 15

        Values(i, 3) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

心生万象，万象皆程序！
本人计算机知识网：http://bbs.为防伸手党，本站已停止会员注册。

2023-02-11 15:05

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 16 楼

得分:0

工程——部件——勾选Microsoft Chart Control 6.0（OLEBD）

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 2)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i

    For i = 1 To 15
        Values(i, 2) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

[此贴子已经被作者于2023-2-11 15:35编辑过]

心生万象，万象皆程序！
本人计算机知识网：http://bbs.为防伸手党，本站已停止会员注册。

2023-02-11 15:06

yuma

来　自：银河系
等　级：贵宾
威　望：33
帖　子：1883
专家分：2904
注　册：2009-12-22

第 17 楼

得分:0

楼主以前想要收我100元制作的图，现在给你免费做出来了。哪里能找到我这样对你好的人。