我在form1里操作,按下按钮,就把form2整个窗口变图片保存到text5的位置。text5就是那个路径、
而文件名就用form2里的 label1的名字
谢谢
求个码,我是新手希望好理解的,谢谢各位
我在form1里操作,按下按钮,就把form2整个窗口变图片保存到text5的位置。text5就是那个路径、
而文件名就用form2里的 label1的名字
谢谢
求个码,我是新手希望好理解的,谢谢各位
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
Private Sub Command1_Click()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
SavePicture Me.Image, text5.Text & "\" & labe1.Caption & ".bmp"
End Sub