با سلام

من با دستوراتى كه در زير ميبيند يك متن رو تبديل به عكس كردم ولى يه مشكلى كه هست اينه كه كه اين عكسِ كوچيكى كه تولیدش ميكنم وقتى zoom ميكنى روش كاملا مشكى نيست یعنیi تك بيتى نيست بلكه از يه طیف رنگ تشكيل شده ، چى كار بايد بكنم كه pixel ها فقط سفيد يا مشكى باشه ، لطفا عكس و كدِ رو ببينيد.

با تشكر.



کد:
    Dim Text As String = TextBox1.Text 'tayin mikonad ke ma neveshte mikhahim
    Dim FontColor As Color = Color.Black 'range neveshteye ax
    Dim BackColor As Color = Color.White 'range bg ax
    Dim FontName As String = "tahoma" 'font ax
    Dim FontSize As Integer = andaze(1) 'size fonte ax
    Dim Height As Integer = 8 'arze ax be pixel
    Dim Width As Integer = 32 'toole ax be pixel
    Dim objBitmap As New Bitmap(Width, Height) 'moteghayerist ke sizash width o height ast
    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, y(1))
    Dim objBrushForeColor As New SolidBrush(FontColor)
    Dim objBrushBackColor As New SolidBrush(BackColor)

    objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
    objGraphics.DrawString(Text, objFont, objBrushForeColor, objPoint)
    objBitmap.Save(Application.StartupPath & "\step1" & ".bmp", ImageFormat.Bmp)