|
加一个picture控件 一个Text控件 一个按扭控件 名字默认 先把你要加载的文字加到Text控件之中控件高度调整恰当使文字容纳并显示完全并且把Text控件和Picture控件宽度大小调整一样!!!如果不一样那么图象就有可能放大或缩小(如果不需要这样你可以在下面的代码中自行修改) 如果想要其他花样 可以修改Text控件的文字属性 比如FontName等等 如果想要多花样可以加入RichTextBox控件(代码只要把text的改成RichTextBox的即可)这样就可以显示RTF文件了 加入以下代码到窗体: Private Declare Function ReleaseDC Lib user (ByVal hwnd As Long ByVal hdc As Long) As Long Private Declare Function GetDC Lib user (ByVal hwnd As Long) As Long Private Declare Function StretchBlt Lib gdi (ByVal hdc As Long ByVal x As Long ByVal y As Long ByVal nWidth As Long ByVal nHeight As Long ByVal hSrcDC As Long ByVal xSrc As Long ByVal ySrc As Long ByVal nSrcWidth As Long ByVal nSrcHeight As Long ByVal dwRop As Long) As Long Private Const SRCCOPY = &HCC Private Sub Command_Click() Dim i As Long Dim wText As Long Dim hText As Long Dim w As Long Dim h As Long Dim hdcText As Long PictureAutoRedraw = True PictureCls wText = TextWidth hText = TextHeight w = PictureWidth h = PictureHeight hdcText = GetDC(Texthwnd) i = StretchBlt(Picturehdc w h hdcText wText hText vbSrcCopy) PictureRefresh SavePicture PictureImage D:\bmp ReleaseDC TexthwndhdcText End Sub |
