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 LongPrivate Sub Command1_Click() BitBlt Picture1.hDC, 0, 0, Me.Width, Me.Height, Me.hDC, 0, 0, vbSrcCopy End SubPrivate Sub Command2_Click() Picture1.Picture = LoadPicture End Sub控件都有,但没有标题栏
BitBlt Picture1.hDC, 0, 0, Me.Width, Me.Height, Me.hDC, 0, 0, vbSrcCopy
End SubPrivate Sub Command2_Click()
Picture1.Picture = LoadPicture
End Sub控件都有,但没有标题栏