请问能否将GDI+生成的字体保存为带通道的图片
vb吧
全部回复
仅看楼主
level 5
噌谷七刹 楼主
我用GDI+在一个透明的窗口上实现了部分字体特效的功能,但是想将其作为字幕使用
但是问题又随之而来,如何将这个透明窗口连同字体一同生成一个带通道的PNG或者BMP的图像并保存?
2013年09月02日 08点09分 1
吧务
level 13
字体不是由画刷和笔完成的吗?你设置这两个就行了。。
2013年09月02日 09点09分 2
你直接把Image保存成PNG就可以了。。
2013年09月02日 09点09分
回复 《顾名思义》 :Image控件好像没有句柄- -
2013年09月03日 00点09分
回复 噌谷七刹 :[汗]我说的是GDI+的Image
2013年09月03日 03点09分
回复 噌谷七刹 :你这是做视频内挂字幕?
2013年09月03日 03点09分
level 5
噌谷七刹 楼主
InitGDIPlus
Dim Bitmap As Long
Form1.AutoRedraw = True
Form1.Picture = LoadPicture("")
Picture1.AutoRedraw = True
GdipCreateFromHDC Me.hDC, Graphics
CreateBitmapWithGraphics Bitmap, Graphics, 756, 520
GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias
GdipCreateFontFamilyFromName StrPtr("黑体"), 0, fontFam
GdipCreateStringFormat 0, 0, strFormat
GdipSetStringFormatAlign strFormat, StringAlignmentNear
GdipCreateSolidFill &HFFDEDEDE, Brush
GdipCreatePen1 &HFF222222, 1, UnitPixel, Pen
rclayout.Left = 10
rclayout.Top = 10
rclayout.Right = 2000
rclayout.Bottom = 150
GdipCreatePath FillModeAlternate, strPath
GdipAddPathStringI strPath, StrPtr("可控字幕条长度可达十四个字"), -1, fontFam, FontStyle.FontStyleBold, 30, rclayout, strFormat
GdipFillPath Graphics, Brush, strPath
GdipDrawPath Graphics, Pen, strPath
GdipDrawImageRect Graphics, Bitmap, 0, 0, 756, 520
SaveImageToPNG Bitmap, "C:\1.png"
GdipDisposeImage Bitmap
可以了,感谢^_^
2013年09月03日 08点09分 3
1