吧务
level 13
字体不是由画刷和笔完成的吗?你设置这两个就行了。。
2013年09月02日 09点09分
2
你直接把Image保存成PNG就可以了。。
2013年09月02日 09点09分
回复 《顾名思义》 :Image控件好像没有句柄- -
2013年09月03日 00点09分
回复 噌谷七刹 :
![[汗]](/static/emoticons/u6c57.png)
我说的是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