RDLC报告中的“反转或翻转文本”
|
好的，我学到了更多知识，并改写了我的问题。我需要将RDLC报告上的文本翻转或翻转180度（因此显示为上下颠倒）。我有一些自定义的VB代码，该代码接受文本，将其转换为位图，然后将画布翻转180度。这样的效果使文本看起来有点..抖动...或模糊。它不再是一种尖锐的字体。我遇到的问题是我正在使用特殊的TTF条形码字体，该字体创建了扫描仪可以读取的内容。当我翻转条形码字体时，由于条形码行之间的距离太近且扫描仪无法读取，因此模糊性不好。这是代码：
Function LoadImage(ByVal sImageText as String, iRotationAngle as Integer, ByVal sFontName as String, iFontSize as Integer)
Dim bmpImage As New Drawing.Bitmap(1, 1)
Dim iWidth As Integer = 0
Dim iHeight As Integer = 0
\'// Create the Font object for the image text drawing.
Dim MyFont As New Drawing.Font(sFontName, iFontSize) \', System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
\'// Create a graphics object to measure the text\'s width and height.
Dim MyGraphics As Drawing.Graphics = Drawing.Graphics.FromImage(bmpImage)
\'// This is where the bitmap size is determined.
iWidth = MyGraphics.MeasureString(sImageText, MyFont).Width
iHeight = MyGraphics.MeasureString(sImageText, MyFont).Height
\'// Create the bmpImage again with the correct size for the text and font.
bmpImage = New Drawing.Bitmap(bmpImage, New Drawing.Size(iWidth, iHeight))
\'// Add the colors to the new bitmap.
MyGraphics = Drawing.Graphics.FromImage(bmpImage)
MyGraphics.Clear(Drawing.Color.White)
MyGraphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
MyGraphics.TranslateTransform(iWidth,iHeight)
MyGraphics.RotateTransform(iRotationAngle)
MyGraphics.DrawString(sImageText, MyFont, New Drawing.SolidBrush(Drawing.Color.Black), 0, 0)
MyGraphics.Flush()
Dim stream As IO.MemoryStream = New IO.MemoryStream
Dim bitmapBytes As Byte()
\'Create bitmap
bmpImage.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)
bitmapBytes = stream.ToArray
stream.Close()
bmpImage.Dispose()
Return bitmapBytes
End Function
没有找到相关结果
已邀请:
0 个回复