To:mustudent(小生--蚕豆<恒久忍耐>)
Sub SaveINPicture(ByRef oPic As PictureBox, ByRef oPic2 As PictureBox, ByVal strPicFile As String)
调用上面这个函数,怎么样传入参数,(就是call SaveINPicture()的后面的参数怎样写)我是新手,这个以前还没有用过,能给指点一下吗?
給你代碼
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PAINT As Long = &HF&
Private Const WM_PRINT As Long = &H317
Private Const PRF_CHILDREN As Long = &H10&
Private Const PRF_CLIENT As Long = &H4&
Private Const PRF_OWNED As Long = &H20&
'保存 PictureBox 中的内容为图片(包括控件)
Sub SaveINPicture(ByRef oPic As PictureBox, ByRef oPic2 As PictureBox, ByVal strPicFile As String)
Dim rv As Long