在VB6.0里面,我要在PICTURE控件的图像上面,加入一段文字,怎么办?
然后,把图像保存下来。
Dim dc   As Long
dc = GetDC(Picture1.hwnd)
Dim r   As RECT
GetWindowRect Picture1.hwnd, r
MyScreenToClient Picture1.hwnd, r
DrawText dc, " 12313213213213213213213213213213131dddddddddddddsdfsdfsdfsfsdfddddd", Len(" 12313213213213213213213213213213131dddddddddddddsdfsdfsdfsfsdfddddd"), r, DT_LEFT Or DT_WORDBREAK
ReleaseDC Picture1.hwnd, dc
SavePicture Picture1.Picture, App.Path & "\456789.jpg"
但是,这样的话,没有保存图像里面的文字啊,请高手帮忙。