- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 生成进度图 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169200)
-- 发布时间：2021/6/7 8:37:00
-- 生成进度图
foxtable能生成这样的图表码？红色部分是完成占比
此主题相关图片如下：snap1.jpg
-- 发布时间：2021/6/7 9:06:00
--
可以使用绘图板绘制，类似：http://www.foxtable.com/webhelp/topics/1493.htm
如果使用图表，参考：
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Area \'图表类型改为Area
Chart.SeriesList.Clear() \'清除图表原来的图系
For n As Integer = 0 To 1
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 11 \'图系包括10个数据点
If n =0 Then
Series.FillColor = Color.red
Else
Series.FillColor = Color.blue
End If
For i As Integer = 0 To 10 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
If i<=4 AndAlso n=0
Series.Y(i) = 2
End If
If n=1 AndAlso i>=4
Series.Y(i) = 2
End If
Chart.AxisX.SetValueLabel(i, i * 10 & "%")
Next
Next
Chart.AxisX.AnnoWithLabels = True
-- 发布时间：2021/6/7 14:33:00
--
窗口个文本框TextBox1，TextBox1显示完成率的值（0%-100%），改变文本框的值如何体现在图表上？
-- 发布时间：2021/6/7 15:07:00
--
dim d as integer = val(TextBox1.text) * 10
……
For i As Integer = 0 To 10 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
If i<=d AndAlso n=0
Series.Y(i) = 2
End If
If n=1 AndAlso i>=d
Series.Y(i) = 2
End If
Chart.AxisX.SetValueLabel(i, i * 10 & "%")
Next
-- 发布时间：2021/6/7 15:35:00
--
没做出来，上传附件。几点需求：
1、文本框完成率有小数；（0.0%）2、左边纵坐标数字不要；3、图示填充整个图形。（上方不要空行）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2021/6/7 16:02:00
--
1、只能显示为整数，小数要改为100格
2、参考：http://www.foxtable.com/webhelp/topics/1020.htm，这个好像有bug，下次更新看看
-- 发布时间：2021/7/17 5:17:00
--
关于用进度条实线问题转到专题
[此贴子已经被作者于2021/7/17 6:42:46编辑过]