分享
 
 
 

vb.net实现一个自定义类数组的排序

王朝c#·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

今天下午做东西时碰到这样的问题: 把公司所有员工的业绩(回访数量,收费情况)用一个柱型图表示出来,要求:A:Y轴表示公司的所有员工且业绩为0的员工不显示出来,X轴表示业绩数量(回访数量+收费情况);B:按要求对柱图实现升序或着降序 按以上要求所得思路为:首先建立一个类(也可以通过结构来实现),类中包含的属性(或字段)为员工ID属性(或字段),员工回访数量属性(或字段),员工收费情况属性(或字段),员工业绩属性等等。(为了能利用Array中的sort需要实现一个接口,会在原码中说明)接着通过一个table来通过颜色或着图片表现出来。下面是实现的原码:Public Class Wordload

Implements IComparable'一定要实现这个接口,才能利用下面的:Array.Sort

Public pay As Integer '维护数量

Public go_back As Integer '回访数量

Public name As String '用户名称

Public total_ As Integer '维护数量+回访数量'以下是想通过那个属性(或字段),来进行排序

Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo

Dim other As wordload = CType(obj, wordload)

Return total_.CompareTo(other.total_)

End Function Public Sub New(ByVal pay_value As Integer, ByVal go_back_value As Integer, ByVal name_value As String)

pay = pay_value

name = name_value

go_back = go_back_value

total_ = pay + go_back

End Sub

End Class Public Sub creat_test(ByVal myarr() As wordload, ByVal mytable As System.Web.UI.WebControls.Table)

Array.Sort(myarr)'说明利用Array进行排序

Dim rows_num As Integer = myarr.Length + 1 '说明:人员做为y轴,即人员的个数做为行数,其中为了写表头,要加一行,所以表的总行数为,人员个数+1

Dim total_comm_num As Integer = myarr(myarr.Length - 1).total_ '说明:列数为工作量加1,因为人员的名字要占一列

Dim pay_width As Integer '定义维护宽度

Dim go_back_width As Integer '定义回访宽度

Dim myimage As HtmlControls.HtmlImage

Dim myspan As HtmlControls.HtmlGenericControl Dim begin_myrow As New Web.UI.WebControls.TableRow

Dim mycell1 As New UI.WebControls.TableCell

Dim mycol1 As New Color

mycell1.Text = "员工"

mycell1.BackColor = mycol1.Green

mycell1.Style.Add("BACKGROUND-COLOR", "#949294")

mycell1.Style.Add("FONT-WEIGHT", "bold")

mycell1.Style.Add("FONT-SIZE", "18pt")

mycell1.Style.Add("COLOR", "#ffffff")

mycell1.Width = WebControls.Unit.Pixel(60)

begin_myrow.Cells.Add(mycell1)

begin_myrow.Width = Unit.Pixel(700)

For b As Integer = 0 To 7 '写第一行的列

Dim mycol As New Color

If b = 0 Then

Dim mycell As New UI.WebControls.TableCell

'mycell.BackColor = mycol.LightGreen

begin_myrow.Cells.Add(mycell)

Else

myspan = New HtmlControls.HtmlGenericControl

myspan.InnerText = ((total_comm_num * (b - 1) / 7) \ 1).ToString

myspan.Style.Add("WIDTH", "80px") 'WIDTH: 100px;

myspan.Style.Add("HEIGHT", "40px") ' HEIGHT: 100px;: bold; FONT-SIZE: 18pt;COLOR: #ffffff;

myspan.Style.Add("BACKGROUND-COLOR", "#949294")

myspan.Style.Add("FONT-WEIGHT", "bold")

myspan.Style.Add("FONT-SIZE", "18pt")

myspan.Style.Add("COLOR", "#ffffff")

begin_myrow.Cells(1).Controls.Add(myspan)

End If

Next

mytable.Rows.Add(begin_myrow)

For i As Integer = 0 To rows_num - 2

pay_width = (500 * myarr(i).pay / total_comm_num) \ 1 '给维护宽度进行赋值

go_back_width = (500 * myarr(i).go_back / total_comm_num) \ 1 '给回访宽度进行赋值

Dim myrow As New Web.UI.WebControls.TableRow

myrow.Width = Unit.Pixel(700)

Dim j As Integer

'以下循环是添加维护情况

For j = 0 To pay_width

If j = 0 Then '在第一列要写进用户的名称

Dim mycell As New UI.WebControls.TableCell

mycell.Text = myarr(i).name

mycell.Width = WebControls.Unit.Pixel(60)

Dim mycol As New Color

mycell.BorderColor = mycol.DeepPink

myrow.Cells.Add(mycell)

Dim mycell2 As New UI.WebControls.TableCell

myrow.Cells.Add(mycell2)

Else '在第二列添加图片信息

myspan = New HtmlControls.HtmlGenericControl

myimage = New HtmlControls.HtmlImage

myimage.Src = "Images/navbar.gif" '要显示的中间图片

myspan.Controls.Add(myimage)

myrow.Cells(1).Controls.Add(myspan)

End If

Next

'以下循环是添加回访情况

For j = 0 To go_back_width

myspan = New HtmlControls.HtmlGenericControl

myimage = New HtmlControls.HtmlImage

myimage.Src = "Images/navbar2.gif" '要显示的中间图片

myspan.Controls.Add(myimage)

myrow.Cells(1).Controls.Add(myspan)

Next

mytable.Rows.Add(myrow)

Next

mytable.Width = Unit.Pixel(700)

End Sub后记:以上代码在win2000+vs.net 中运行通过,由于是刚刚测试完成,代码有点乱(变量名称也是随意的,有点不能代表意思!)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有