چرا عکس تولیدی من مشکی خالص نیست ؟!

[milad5843]

من با دستوراتى كه در پائين ميبيند يه نوشته توى textbox رو تبديل ميكنم به يه عكس كه روى hard save ميشه ، اما وقتى كه عكسِ و باز ميكنيد و حداكثر zoome ممكن رو انتخاب ميكنيد ميبيند كه طیف هاب عكس دقيقا مشکی نيست بلكه از انواعِ رنگ ها تشكيل شده، در صورتى كه من نياز به عكسى دارم كه كاملا مشكى باشه. چى كار بايد بكنم ؟

راستى يه راهش ميتونه اين باشه كه عكسِ توليدى تبديل بشه به يه عكسِ monocolour ، مثل كارى كه paint ميكنه، ولى به صورتِ اتوماتيك توسط برنامه من بايد انجام بشه. الان این عکس پایین 64 بیتی درست شده.
ممنون از همه.
نمونه كدِ و عكس رو ميتونيد ببينيد :



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEnd If

Dim Text As String = txtStr.Text
Dim FontColor As Color = Color.Red
Dim BackColor As Color = Color.White

Dim FontSize As Integer = 10
Dim Height As Integer = 20
Dim Width As Integer = 50
Dim objBitmap As New Bitmap(Width, Height)
Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)
Dim objColor As New Color
Dim objFont As New Font(FontName, FontSize)
Dim objPoint As New PointF(0, 0)
Dim objBrushForeColor As New SolidBrush(FontColor)
Dim objBrushBackColor As New SolidBrush(BackColor)
Static fileNo As Integer = 1

objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
objGraphics.DrawString(Text, objFont, objBrushForeColor, objPoint)

objBitmap.Save(Application.StartupPath & "\OutPut" & fileNo & ".bmp", ImageFormat.Bmp)
pic.Image = Image.FromFile(Application.StartupPath & "\OutPut" & fileNo & ".bmp")

fileNo += 1

End Sub


آدرس عکس :


http://great-bjt.persiangig.com/OutPut1.bmp