VB.NETで最近プログラムを作り始めました。
テキストボックスより255色の色を入力するように作ったのですが、0以下と256以上の数値を入力するとエラーが出てしまいます。
入力者が256以上の数値及び0以下の数値を入力した時に、256以上の場合255色に、0以下の場合0に強制的に数値を変更させて、エラーが出ないようにする方法を教えて下さい。
作成したプログラムは以下の通りです。(ラジオボタンで塗りつぶす場所を変更しています)
Dim grph As System.Drawing.Graphics = Me.CreateGraphics
Dim fillbrush As New SolidBrush(Color.FromArgb(R, G, B))
Dim drawpen As New Pen(Color.Blue, 3)
If RButMimi.Checked Then
grph.FillRectangle(fillbrush, 耳B1, 耳B2, 耳3, 耳4)
grph.FillRectangle(fillbrush, 耳A1, 耳A2, 耳3, 耳4)
ElseIf RButMe.Checked Then
grph.FillRectangle(fillbrush, 目A1, 目A2, 目3, 目4)
grph.FillRectangle(fillbrush, 目B1, 目B2, 目3, 目4)
ElseIf RButKao.Checked Then
grph.FillRectangle(fillbrush, 縦, 横, 横幅, 縦幅)
End If
VB.NETで最近プログラムを作り始めました。
テキストボックスより255色の色を入力するように作ったのですが、0以下と256以上の数値を入力するとエラーが出てしまいます。
入力者が256以上の数値及び0以下の数値を入力した時に、256以上の場合255色に、0以下の場合0に強制的に数値を変更させて、エラーが出ないようにする方法を教えて下さい。
作成したプログラムは以下の通りです。(ラジオボタンで塗りつぶす場所を変更しています)
Dim grph As System.Drawing.Graphics = Me.CreateGraphics
Dim fillbrush As New SolidBrush(Color.FromArgb(R, G, B))
Dim drawpen As New Pen(Color.Blue, 3)
If RButMimi.Checked Then
grph.FillRectangle(fillbrush, 耳B1, 耳B2, 耳3, 耳4)
grph.FillRectangle(fillbrush, 耳A1, 耳A2, 耳3, 耳4)
ElseIf RButMe.Checked Then
grph.FillRectangle(fillbrush, 目A1, 目A2, 目3, 目4)
grph.FillRectangle(fillbrush, 目B1, 目B2, 目3, 目4)
ElseIf RButKao.Checked Then
grph.FillRectangle(fillbrush, 縦, 横, 横幅, 縦幅)
End If
VB6で作成したEXEが、Win2000では問題ないのですが、Win98だと
「ActiveXが作成できません」とエラーになってしまいます。
解決方法はあるでしょうか?
コード
Dim dlg_CommonDialog As Object
Set dlg_CommonDialog = CreateObject("MSCOMDLG.COMMONDIALOG")
よろしくお願いします。