Vb.Net使用GDI+进行绘图的程序

选择字号：超大标准 发布时间：2008-9-11 10:44:17 | 作者：admin | 0个评论 | 人浏览

Imports System.Drawing
Imports System.Drawing.Imaging
Public Class GDIImageChart
Inherits SchoolJwSoft

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Sql2008()
        End If
        Dim T As String
        T = SkyReplaceBad(Request.QueryString("t"))
        If T = "1" Then
            ShowOneIMages()
        Else
            ShowMIMages()
        End If
    End Sub
    Public Function DrowDirectionVerticalFont() As StringFormat
        Dim drawFormat As StringFormat
        drawFormat = New StringFormat
        drawFormat.FormatFlags = StringFormatFlags.DirectionVertical
        DrowDirectionVerticalFont = drawFormat
    End Function
    Public Function ShowMIMages()
        '#################################################
        '背景上高度，下文字占用高度
        '背景上颜色，背景下颜色
        '文字1颜色和大小，文字2颜色和大小
        '矩形的填充色和线条色矩形的宽度和间隔
        '#################################################
        Dim SkyBgTopH, SkyBgFootH As Integer
        Dim SkyBgTopColor, SkyBgFootColor As String
        Dim Font1Size, Font2Size As Integer
        Dim Font1Color, Font2Color As String
        Dim rectangleFillColor, rectangleDrawColor As String
        Dim rectangleWidth, rectangleSpace, rectangleAll, rectangleOther As Integer
        '##############################################################
        Dim MyChartConfig(), Sconfig As String
        Sconfig = Session("MyChartConfig")
        If Sconfig Is Nothing Or Sconfig = "" Then
            Sconfig = MyChartConfigString
        End If
        MyChartConfig = Sconfig.Split(MyChartSplit)
        SkyBgTopH = MyChartConfig(1)
        SkyBgFootH = MyChartConfig(2)
        SkyBgTopColor = MyChartConfig(3)
        SkyBgFootColor = MyChartConfig(4)
        Font1Size = MyChartConfig(5)
        Font2Size = MyChartConfig(6)
        Font1Color = MyChartConfig(7)
        Font2Color = MyChartConfig(8)
        rectangleFillColor = MyChartConfig(9)
        rectangleDrawColor = MyChartConfig(10)
        rectangleWidth = MyChartConfig(11)
        rectangleSpace = MyChartConfig(12)
        '###############################################################
        rectangleOther = 10
        rectangleAll = rectangleWidth + rectangleSpace
        '#################################################
        Dim objBitmap As Bitmap
        Dim objGraphics As Graphics
        Dim decmaxData As Decimal
        Dim strBackColor As String
        Dim strForeColor As String
        Dim ObjBackColor, ObjFont1, ObjFont2, ObjJP, ObjJPFill As Color
        Dim decMultiplier As Decimal
        Dim intWidth As Integer
        Dim intHeight As Integer
        Dim arrChartData() As String
        Dim arrName() As String
        Dim intDataIndex As Integer
        Dim intDataItem As Integer
        Dim objBrush As SolidBrush
        Dim MoveN As Integer
        MoveN = SkyBgFootH
        '############################################################################
        decmaxData = 1
        '############################################################################
        arrChartData = Session("MyChartNumber")
        arrName = Session("MyChartString")
        Dim MyChartSNumName As String
        Dim MyChartSNum As Integer
        MyChartSNumName = Session("MyChartSNumName")
        MyChartSNum = CInt(Session("MyChartSNum"))
        Dim I, J As Integer
        Dim Maxd As Single = 1
        Dim ZIndex As Integer
        Try
            ZIndex = UBound(arrChartData)
        Catch ex As Exception
            ZIndex = -1
        End Try

        Dim STmpSNum() As String
        For I = 0 To ZIndex
            STmpSNum = arrChartData(I).Split(MyChartSplit)
            For J = 0 To UBound(STmpSNum)
                Maxd = CSng(STmpSNum(J))
                If Maxd > decmaxData Then
                    decmaxData = Maxd
                End If
            Next

        Next
        '############################################################################
        decMultiplier = SkyBgTopH / decmaxData
        '#############################################################################
        ObjBackColor = ColorTranslator.FromHtml(SkyBgTopColor)

        ObjFont1 = ColorTranslator.FromHtml(Font1Color)
        ObjFont2 = ColorTranslator.FromHtml(Font2Color)
        ObjJP = ColorTranslator.FromHtml(rectangleDrawColor)

        '#############################################################################
        'arrChartData = SkyReplaceBad(request.QueryString.GetValues("d")
        'arrName = SkyReplaceBad(request.QueryString.GetValues("n")
        '#############################################################################
        intWidth = (arrChartData.Length * rectangleAll) * MyChartSNum + rectangleOther + 150 '+ (arrChartData.Length - 1) * rectangleAll + 200 '多几倍的位置

        intHeight = (decmaxData * decMultiplier) + rectangleSpace + MoveN
        '#############################################################################
        Dim drawFormat As StringFormat = DrowDirectionVerticalFont() '文字格式
        If ZIndex >= 0 Then
            objBitmap = New Bitmap(intWidth, intHeight)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(ObjBackColor)

'底部背景颜色
objGraphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml(SkyBgFootColor)), 0, intHeight - MoveN, intWidth, MoveN)

            Dim objFont As New Font("Arial", Font1Size)
            Dim Brush1 As New SolidBrush(ObjFont1)
            Dim Brush2 As New SolidBrush(ObjFont2)
            Dim Pen As New Pen(ObjJP, 1)
            Dim SLAd, SLAd1 As Integer
            Dim STmpSInfo As String
            For intDataIndex = 0 To arrChartData.Length - 1
                STmpSNum = arrChartData(intDataIndex).Split(MyChartSplit)
                SLAd = (intDataIndex) * rectangleAll * MyChartSNum
                For I = 1 To MyChartSNum
                    STmpSInfo = STmpSNum(I - 1)
                    intDataItem = CSng(STmpSInfo) * decMultiplier
                    SLAd1 = SLAd + rectangleAll * (I - 1) ' + rectangleSpace
                    ObjJPFill = ColorTranslator.FromHtml(MyChartConfigColor(I))
                    objBrush = New SolidBrush(ObjJPFill)
                    '################################################################################################################################
                    objGraphics.FillRectangle(objBrush, SLAd1, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                    objGraphics.DrawRectangle(Pen, SLAd1, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                    objGraphics.DrawString(STmpSInfo, objFont, Brush1, SLAd1, intHeight - intDataItem - MoveN)
                Next

                '################################################################################################################################
                'objGraphics.FillRectangle(objBrush, (intDataIndex * 25) + 5, intHeight - intDataItem, 20, intHeight)
                '################################################################################################################################
                '##开始绘制文字颜色1和文字颜色2
                objGraphics.DrawString(arrName(intDataIndex), objFont, Brush2, SLAd, intHeight - MoveN + rectangleOther, drawFormat)
                '################################################################################################################################
                'objGraphics.DrawString(Session("A"), New Font("宋体", 9, FontStyle.Bold), New SolidBrush(Color.White), New PointF(160, 50))
            Next

            Dim ImgW As Integer = 50
            Dim ImgH As Integer = 20
            SLAd = (arrChartData.Length) * rectangleAll * MyChartSNum + 10
            Dim MyCName() As String
            MyCName = MyChartSNumName.Split(MyChartSplit)
            For I = 1 To MyChartSNum
                STmpSInfo = MyCName(I - 1)

                SLAd1 = ImgH * I
                ObjJPFill = ColorTranslator.FromHtml(MyChartConfigColor(I))
                objBrush = New SolidBrush(ObjJPFill)
                '################################################################################################################################
                objGraphics.FillRectangle(objBrush, SLAd, SLAd1, ImgW, ImgH - 5)
                objGraphics.DrawRectangle(Pen, SLAd, SLAd1, ImgW, ImgH - 5)
                objGraphics.DrawString(STmpSInfo, objFont, Brush1, SLAd + ImgW + 5, SLAd1)
            Next
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        Else
            objBitmap = New Bitmap(200, 30)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(Color.White)
            objGraphics.DrawString("对不起,系统暂时无数据!", New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Black), New PointF(10, 10))
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        End If
    End Function
    Public Function ShowOneIMages()
        'htm = htm&(Session("A"))

        '#################################################
        '背景上高度，下文字占用高度
        '背景上颜色，背景下颜色
        '文字1颜色和大小，文字2颜色和大小
        '矩形的填充色和线条色矩形的宽度和间隔
        '#################################################
        Dim SkyBgTopH, SkyBgFootH As Integer
        Dim SkyBgTopColor, SkyBgFootColor As String
        Dim Font1Size, Font2Size As Integer
        Dim Font1Color, Font2Color As String
        Dim rectangleFillColor, rectangleDrawColor As String
        Dim rectangleWidth, rectangleSpace, rectangleAll, rectangleOther As Integer
        '##############################################################
        Dim MyChartConfig(), Sconfig As String
        Sconfig = Session("MyChartConfig")
        If Sconfig Is Nothing Or Sconfig = "" Then
            Sconfig = MyChartConfigString
        End If
        MyChartConfig = Sconfig.Split(MyChartSplit)
        SkyBgTopH = MyChartConfig(1)
        SkyBgFootH = MyChartConfig(2)
        SkyBgTopColor = MyChartConfig(3)
        SkyBgFootColor = MyChartConfig(4)
        Font1Size = MyChartConfig(5)
        Font2Size = MyChartConfig(6)
        Font1Color = MyChartConfig(7)
        Font2Color = MyChartConfig(8)
        rectangleFillColor = MyChartConfig(9)
        rectangleDrawColor = MyChartConfig(10)
        rectangleWidth = MyChartConfig(11)
        rectangleSpace = MyChartConfig(12)
        'htm = htm&(Sconfig)
        'SkyBgTopH = 600
        'SkyBgFootH = 60
        'SkyBgTopColor = "orange"
        'SkyBgFootColor = "#EEEEEE"
        'Font1Size = 8
        'Font2Size = 8
        'Font1Color = "#000000"
        'Font2Color = "#000000"
        'rectangleFillColor = "#FF0000"
        'rectangleDrawColor = "#FFFFFF"
        'rectangleWidth = 20
        'rectangleSpace = 10
        '###############################################################
        rectangleOther = 10
        rectangleAll = rectangleWidth + rectangleSpace
        '#################################################
        Dim objBitmap As Bitmap
        Dim objGraphics As Graphics
        Dim decmaxData As Decimal
        Dim strBackColor As String
        Dim strForeColor As String
        Dim ObjBackColor, ObjFont1, ObjFont2, ObjJP, ObjJPFill As Color
        Dim decMultiplier As Decimal
        Dim intWidth As Integer
        Dim intHeight As Integer
        Dim arrChartData() As String
        Dim arrName() As String
        Dim intDataIndex As Integer
        Dim intDataItem As Integer
        Dim objBrush As SolidBrush
        Dim MoveN As Integer
        MoveN = SkyBgFootH
        '#################################################
        decmaxData = 1
        '############################################################################
        arrChartData = Session("MyChartNumber")
        arrName = Session("MyChartString")
        Dim I As Integer
        Dim Maxd As Single = 1
        Dim ZIndex As Integer
        Try
            ZIndex = UBound(arrChartData)
        Catch ex As Exception
            ZIndex = -1
        End Try

        For I = 0 To ZIndex
            Maxd = CSng(arrChartData(I))
            If Maxd > decmaxData Then
                decmaxData = Maxd
            End If
        Next
        '############################################################################
        decMultiplier = SkyBgTopH / decmaxData
        '#############################################################################
        ObjBackColor = ColorTranslator.FromHtml(SkyBgTopColor)
        ObjJPFill = ColorTranslator.FromHtml(rectangleFillColor)
        ObjFont1 = ColorTranslator.FromHtml(Font1Color)
        ObjFont2 = ColorTranslator.FromHtml(Font2Color)
        ObjJP = ColorTranslator.FromHtml(rectangleDrawColor)
        objBrush = New SolidBrush(ObjJPFill)
        '#############################################################################
        'arrChartData = SkyReplaceBad(request.QueryString.GetValues("d")
        'arrName = SkyReplaceBad(request.QueryString.GetValues("n")
        '#############################################################################
        intWidth = (arrChartData.Length * rectangleAll) + rectangleOther
        intHeight = (decmaxData * decMultiplier) + rectangleSpace + MoveN
        '#############################################################################
        Dim drawFormat As StringFormat = DrowDirectionVerticalFont() '文字格式
        If ZIndex >= 0 Then
            objBitmap = New Bitmap(intWidth, intHeight)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(ObjBackColor)

'底部背景颜色
objGraphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml(SkyBgFootColor)), 0, intHeight - MoveN, intWidth, MoveN)

            Dim objFont As New Font("Arial", Font1Size)
            Dim Brush1 As New SolidBrush(ObjFont1)
            Dim Brush2 As New SolidBrush(ObjFont2)
            Dim Pen As New Pen(ObjJP, 1)
            For intDataIndex = 0 To arrChartData.Length - 1
                intDataItem = arrChartData(intDataIndex) * decMultiplier
                '################################################################################################################################
                '矩形颜色和边框
                objGraphics.FillRectangle(objBrush, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                objGraphics.DrawRectangle(Pen, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                '################################################################################################################################
                'objGraphics.FillRectangle(objBrush, (intDataIndex * 25) + 5, intHeight - intDataItem, 20, intHeight)
                '################################################################################################################################
                '##开始绘制文字颜色1和文字颜色2
                objGraphics.DrawString(arrChartData(intDataIndex), objFont, Brush1, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN)
                objGraphics.DrawString(arrName(intDataIndex), objFont, Brush2, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - MoveN + rectangleOther, drawFormat)
                '################################################################################################################################
                'objGraphics.DrawString(Session("A"), New Font("宋体", 9, FontStyle.Bold), New SolidBrush(Color.White), New PointF(160, 50))

            Next
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        Else
            objBitmap = New Bitmap(200, 30)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(Color.White)
            objGraphics.DrawString("对不起,系统暂时无数据!", New Font("宋体", 9, FontStyle.Regular), New SolidBrush(Color.Black), New PointF(10, 10))
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        End If
    End Function
End Class

Public Function ShowIMGInfo(ByVal MyChartConfig As String, ByVal MyChartString() As String, ByVal MyChartNumber() As String)
        Session("MyChartNumber") = MyChartNumber
        Session("MyChartString") = MyChartString
        Session("MyChartConfig") = "File!600!60!orange!#EEEEEE!8!8!#000000!#000000!#FF0000!#FFFFFF!20!10"
        Session("MyChartConfig") = MyChartConfig
        imgChartImage.ImageUrl = "GDIImageChart.aspx?t=1&0451sky=" + Now.ToString.Replace(":", "").Replace("-", "").Replace(" ", "")
    End Function
    Public Function ShowIMGInfoM(ByVal MyChartConfig As String, ByVal MyChartString() As String, ByVal MyChartNumber() As String, ByVal MyChartSNum As Integer, ByVal MyChartSNumName As String)
        Session("MyChartNumber") = MyChartNumber
        Session("MyChartString") = MyChartString
        Session("MyChartConfig") = "File!600!60!orange!#EEEEEE!8!8!#000000!#000000!#FF0000!#FFFFFF!20!10"
        Session("MyChartConfig") = MyChartConfig
        Session("MyChartSNum") = MyChartSNum
        Session("MyChartSNumName") = MyChartSNumName
        imgChartImage.ImageUrl = "GDIImageChart.aspx?t=2&0451sky=" + Now.ToString.Replace(":", "").Replace("-", "").Replace(" ", "")
    End Function

标签：

Vb.Net使用GDI+进行绘图的程序

猜你喜欢

发表评论