SolidWorks机械工程师网——最大的SolidWorks学习平台

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

Option Explicit
' 定义用户类型，以减少＃if VBA7语句的数量，但不能消除他们...
Private Type LongPtr_T
#If VBA7 Then
    Value As LongPtr
    ' Compare automatically resized LongPtr to fixed size Long and LongLong
#Else
    Value As Long
#End If
End Type
' Win32 数据类型. Different signatures for different versions of VBA
Private Type BROWSEINFO
#If VBA7 Then
    hWndOwner       As LongPtr
    pIDLRoot        As LongPtr
    pszDisplayName  As Long
    lpszTitle       As String
    ulFlags         As Long
    lpfnCallback    As LongPtr
    lParam          As Long
    iImage          As Long
#Else
    hWndOwner As Long
    pIDLRoot        As Long
    pszDisplayName  As Long
    lpszTitle       As String
    ulFlags         As Long
    lpfnCallback    As Long
    lParam          As Long
    iImage          As Long
#End If
End Type
Private Const MAX_PATH = 260
'Directories only
Private Const BIF_RETURNONLYFSDIRS = &H1&
'Windows 2000 (Shell32.dll 5.0) extended dialog
Private Const BIF_NEWDIALOGSTYLE = &H40
' show edit box
Private Const BIF_EDITBOX = &H10&
Private Const WM_USER = &H400
Private Const BFFM_INITIALIZED = 1
Private Const BFFM_SELCHANGED = 2
Private Const BFFM_SETSTATUSTEXTA = (WM_USER + 100)
Private Const BFFM_SETSELECTIONA = (WM_USER + 102)
Private Const BFFM_SETEXPANDED = (WM_USER + 16)
Private m_sDefaultFolder As String
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Private Const SWP_NOZORDER = 4
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
' Win32 API declarations. Different signatures for different versions of VBA.
' Note the mandatory use of PtrSafe keyword in VBA7.
#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
    Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As LongPtr, ByVal lpBuffer As String) As Long
    Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As LongPtr)
    Private Declare PtrSafe Function SetWindowPos Lib "USER32" (ByVal hWnd As LongPtr, _
                                           ByVal hWndInsertAfter As LongPtr, _
                                           ByVal x As Long, _
                                           ByVal y As Long, _
                                           ByVal cx As Long, _
                                           ByVal cy As Long, _
                                           ByVal wFlags As Long) As Long
    Private Declare PtrSafe Function GetWindowRect Lib "user32.dll" (ByVal hWnd As LongPtr, lpRect As RECT) As Long
#Else
    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 Declare Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
    Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long)
    Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
                                           ByVal hWndInsertAfter As Long, _
                                           ByVal x As Long, _
                                           ByVal y As Long, _
                                           ByVal cx As Long, _
                                           ByVal cy As Long, _
                                           ByVal wFlags As Long) As Long
    Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long
#End If
Private lastKnownPosition As RECT
Private lockLastKnownPosition As Boolean

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

         3.类型声明符与声明对象不符，，改改改  在left 前加  VBA. （见图片 VBA）

 保存到相册

 保存到相册

 保存到相册

 保存到相册

要我用内存截图 法

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册

 保存到相册