Public Class DrawParam
Public Shared MaxPart As Short = 10
Public Width As Integer
Public Height As Integer
Public BackColor As Color
Public Parts As New ArrayList(MaxPart)
End Class
Public Class Part
Public Percent As Short
Public ForeColor As Color
Public Text As String
Public Sub New(ByVal per As String, ByVal col As String, ByVal word As String)
Percent = Short.Parse(per)
If Percent > 100 Or Percent < 0 Then
Throw New ArgumentException("Percent is Range form 1 to 99.")
End If
ForeColor = Color.FromName(col)
Text = word
End Sub
End Class
Public Class ImagePage
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
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
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
Dim param As DrawParam
Private Function ParseParam() As DrawParam
Dim result As New DrawParam()
result.Height = Me.Request.QueryString.Item("HT")
result.Width = Me.Request.QueryString.Item("WH")
Dim count As Short = Me.Request.QueryString.Item("CT")
If count > 10 Then
Throw New ArgumentException("Not Support!")
End If
Dim i As Short
For i = 1 To count
Dim p As New Part(Me.Request.QueryString.Item("PP" + i.ToString()), _
Me.Request.QueryString.Item("PC" + i.ToString()), _
Me.Request.QueryString.Item("PT" + i.ToString()))
result.Parts.Add(p)
Next
result.BackColor = Color.FromName(Me.Request.QueryString.Item("BC"))