eShop-MIS供应商信息的查询与图形化显示-长沙民政职业技术学院.ppt

eShop-MIS供应商信息的查询与图形化显示 长沙民政职业技术学院 本单元知识点 主要内容 8.1、任务描述、分析与实现 8.2、坐标系统 8.3、颜色系统 8.4、Graphics对象 8.5、拓展实践——简单绘图软件的实现 8.1、任务描述与实现 在供应商信息管理系统中，要示提供按省份的查询功能，并以条形图的方式显示每个省份供应商的数量，以扇形图的方式显示各省份供应商所占的比例 实现任务的主要思路 主要实现环节（数据准备） 0、系统原来的供应商省份信息保存在AArea()数组中，为了测试方便，先用随机函数Rnd随机生成数据 随机生成供应商地区信息数据 Function GenData() As String() Dim i, k As Integer For i = 0 To MAX_NUMS - 1 k = Rnd() * (MAX_AREAS - 1) AArea(i) = Area(k) Next Return Me.AArea End Function 1、添加一个数组，记录各省份供应商的数量 Private ANumsByArea(MAX_AREAS) As Integer 2、供应商所分布的省份 的数组 Private Area() As String = {湖南, 湖北, 河南, 河北} 3、定义常量，供应商共分布在4个 省份 Const MAX_AREAS As Integer = 4 主要实现环节（定义过程） 4、设计一个过程来统计各省供应商的数量 按地区统计每个省份供应商人数，并记录在AnumsByArea数组中 Function GetSuppliersByArea() As Integer() Dim i, j As Integer For i = 0 To MAX_NUMS-1 For j = 0 To MAX_AREAS-1 If Me.AArea(i) = Me.Area(j) Then Me.ANumsByArea(j) += 1 End If Next Next Return Me.ANumsByArea End Function 主要实现环节（条形图的实现） 主要实现环节——扇形图的实现（一） 主要实现环节——扇形图的实现（二） 主要实现环节——扇形图的实现（三） 8.2、坐标系统 Visual Basic 的坐标系统是指在屏幕（screen）、窗体(form)、容器(container)上定义的表示图形对象位置的平面二维格线，一般采用二元组（x, y）的形式定位。其中x 值是沿 x 轴点的位置，最左端是缺省位置 0。y 值是沿 y 轴点的位置，最上端是缺省位置 0。窗体的坐标系统的图示 8.3、颜色系统 Visual Basic使用固定的颜色系统，每种颜色都由一个Long型整数表示。主要有4种方式可以用于指定颜色值： RGB函数。 QBColor函数。 Visual Basic的Color对象中的内部颜色函数。 输入Long型整数颜色值。 QBColor函数 QBColor函数能够选择Microsoft Quick Basic的16种颜色中的一种. RGB函数 Color结构 Color是一个表示颜色的数据结构，位于System.Drawing名称空间下面，提供了很多获取系统颜色的属性与方法 用整数直接设置颜色 常用的绘图类 PictureBox 控件 与ImageList控件 PictureBox一个图片框控件，位于System.Windows.Forms的名称空间内，通常使用 PictureBox 来显示位图、元文件、图标、JPEG、GIF 或 PNG 文件中的图形。 PictureBox的常见属性与方法 ImageList控件是一个图片集管理器，支持bmp、gif、jpg等图像格式。其属性Images用于保存多幅图片以备其他控件使用，其他控件可以通过ImageList控件的索引号和关键字引用ImageList控件中的每个图片。ImageList控件在运行期间是不可见的，因此添加一个ImageList控件时，它不会出现在窗体上，而是出现在窗体的下方。 ImageList控件的一些常见属性和方法 8.4 Graphics 对象 在Visual Basic.NET中，提供了在控件上绘制图形的两种方法： 1）