با سلام
من با دستوراتى که در زیر میبیند یک متن رو تبدیل به عکس کردم ولى یه مشکلى که هست اینه که که این عکسِ کوچیکى که تولیدش میکنم وقتى zoom میکنى روش کاملا مشکى نیست یعنیi تک بیتى نیست بلکه از یه طیف رنگ تشکیل شده ، چى کار باید بکنم که pixel ها فقط سفید یا مشکى باشه ، لطفا عکس و کدِ رو ببینید.
با تشکر.
من با دستوراتى که در زیر میبیند یک متن رو تبدیل به عکس کردم ولى یه مشکلى که هست اینه که که این عکسِ کوچیکى که تولیدش میکنم وقتى 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)
