怎样把图片框范围内的可见内容(包括在其上的标签)都保存下来?

Question

谢谢。

Answer 1

只能借助别一个PICTURBOX。
'如PICTURE1中有标签。则借助PICTURE2完成该功能Option ExplicitPrivate Sub Command1_Click()
        Dim Ctr As Control
        Picture2.AutoRedraw = True
        
        Picture2.Width = Picture1.Width
        Picture2.Height = Picture1.Height
        
        Picture2.Picture = Picture1.Picture
        
        For Each Ctr In Me.Controls
            If UCase$(TypeName(Ctr)) = "LABEL" Then
                Picture2.ForeColor = Ctr.ForeColor
                Picture2.FontSize = Ctr.FontSize
                Picture2.Font.Name = Ctr.Font.Name
                Picture2.Font.Bold = Ctr.Font.Bold
                Picture2.CurrentX = Ctr.Left + 15
                Picture2.CurrentY = Ctr.Top + 15
                Picture2.Print Ctr.Caption
            End If
        Next
        SavePicture Picture2.Image, "C:\KK.BMP"
End Sub