![\"\"](\"https:\/\/www.wsisp.com\/helps\/wp-content\/uploads\/2026\/08\/20260805070037-6a72df95f0459.gif\")
<\/p>\n\u665a\u95f4\u6b63\u5728\u505a\u4e00\u4e2a\u5b8c\u6574\u7684CSDN\u5408\u96c6，\u9488\u5bf9\u5bf9\u8bdd\u6846#32770，\u4e13\u95e8\u6559\u5b66\u5982\u4f55\u5b8c\u5584\u5404\u9879\u529f\u80fd\u3001\u5982\u4f55\u4f18\u5316\u4f7f\u7528\u4f53\u9a8c\u7b49\u5185\u5bb9，\u8ba9\u5927\u5bb6\u5728\u5199\u81ea\u5df1\u7684\u7a97\u53e3\u9879\u76ee\u65f6\u80fd\u591f\u6709\u6240\u501f\u9274\u3002<\/p>\n
<\/p>\n
\u9f20\u6807\u5de6\u952e\u6309\u4e0b\u65f6\u51fa\u73b0\u9192\u76ee\u6807\u8bb0，\u677e\u5f00\u65f6\u6807\u8bb0\u6d88\u5931\u3002<\/span><\/span><\/p>\n \u8fd9\u4e2a\u529f\u80fd\u7684\u672c\u8d28\u662f\u5728\u5bf9\u8bdd\u6846\u7a97\u53e3\u4e0a\u753b\u5706\u548c\u64e6\u9664，\u64cd\u4f5c\u65b9\u6cd5\u662f：\u5728\u9f20\u6807\u5de6\u952e\u6309\u4e0b\u65f6\u753b\u4e00\u4e2a\u5706，\u53c8\u5728\u5de6\u952e\u677e\u5f00\u65f6\u64e6\u9664\u5706\u3002\u4ec5\u4ec5\u77e5\u9053\u5728\u4ec0\u4e48\u65f6\u95f4\u5e72\u4ec0\u4e48\u4e8b\u8fd8\u4e0d\u591f，\u56e0\u4e3a\u6211\u4eec\u8fd8\u4e0d\u6e05\u695a\u600e\u4e48\u5728\u5bf9\u8bdd\u6846\u7a97\u53e3\u4e0a\u8fdb\u884c\u7ed8\u5236\u64cd\u4f5c\u3002<\/p>\n \u6211\u4eec\u5148\u6765\u4e86\u89e3\u4e00\u4e2a\u53eb\u505ahdc\u7ed8\u5236\u73af\u5883\u7684\u5de5\u5177，\u4f60\u53ef\u4ee5\u628a\u5b83\u7406\u89e3\u4e3a\u201c\u753b\u677f\u201d\u3002<\/p>\n \u5176\u5b9e，\u7a97\u53e3\u672c\u8eab\u5c31\u50cf\u662f\u4e00\u4e2a\u753b\u677f，\u53ea\u4e0d\u8fc7\u5c4f\u5e55\u4e0a\u7684\u7a97\u53e3\u5f88\u591a，\u753b\u677f\u4e5f\u5c31\u5f88\u591a\u3002\u4e0e\u753b\u677f\u914d\u5957\u7684\u6709\u5f88\u591a\u753b\u753b\u5de5\u5177，\u6bd4\u5982\u753b\u7b14\u3001\u753b\u5237\u548c\u6a61\u76ae\u64e6\u7b49\u3002\u5728\u753b\u677f\u4e0a\u753b\u753b，\u4e5f\u5c31\u662f\u5728hdc\u7ed8\u5236\u73af\u5883\u4e2d\u8fdb\u884c\u7ed8\u5236，\u7ed8\u5236\u7684\u987a\u5e8f\u662f： \u63a5\u4e0b\u6765，\u6211\u4eec\u6309\u7167\u8fd9\u4e2a\u753b\u753b\u987a\u5e8f\u6765\u9010\u6b65\u8bb2\u89e3：<\/p>\n \u6211\u4eec\u4f7f\u7528GetDC\u51fd\u6570\u83b7\u53d6\u5bf9\u8bdd\u6846\u7a97\u53e3\u7684hdc\u7ed8\u5236\u73af\u5883：<\/p>\n '\u83b7\u53d6\u5bf9\u8bdd\u6846\u7ed8\u5236\u73af\u5883 \u753b\u753b\u5de5\u5177\u9700\u8981\u7528\u6237\u5148\u521b\u5efa\u518d\u62ff\u8d77\u3002\u6211\u4eec\u5148\u4f7f\u7528CreatePen\u51fd\u6570\u521b\u5efa\u4e00\u4e2a1\u50cf\u7d20\u5bbd\u7684\u5b9e\u7ebf\u753b\u7b14，\u7136\u540e\u4f7f\u7528SelectObject\u51fd\u6570\u5728Ud.DialogHdc\u7ed8\u5236\u73af\u5883\u4e2d\u62ff\u8d77\u8fd9\u4e2a\u753b\u7b14\u3002\u63a5\u7740，\u6211\u4eec\u518d\u4f7f\u7528GetStockObject\u51fd\u6570\u83b7\u53d6\u7cfb\u7edf\u7a7a\u753b\u5237，\u7136\u540e\u4e5f\u5728Ud.DialogHdc\u7ed8\u5236\u73af\u5883\u4e2d\u62ff\u8d77\u8fd9\u4e2a\u753b\u5237\u3002<\/p>\n '\u521b\u5efa\u5e76\u62ff\u8d77\u753b\u7b14 \u201c\u62ff\u8d77\u201d\u64cd\u4f5c\u672c\u8eab\u662f\u5206\u4e24\u6b65，\u5148\u653e\u4e0b\u73b0\u6709\u7684\u5de5\u5177，\u518d\u62ff\u8d77\u65b0\u7684\u5de5\u5177\u3002\u5728\u4ee3\u7801\u4e2d\u8fd9\u6837\u7406\u89e3，SelectObject\u51fd\u6570\u5728\u62ff\u8d77Ud.Temp(0)\u4e4b\u524d\u4f1a\u5148\u653e\u4e0bUd.Temp(1)\u3002<\/p>\n \u6211\u4eec\u5728\u8fd9\u91cc\u662f\u62e6\u622a\u7684WM_LBUTTONDOWN\u6d88\u606f，\u8fd9\u4e2a\u6d88\u606f\u5728\u53d1\u9001\u65f6\u53c2\u6570lParam\u5e26\u6709\u5750\u6807\u4fe1\u606f，\u6211\u4eec\u53ea\u9700\u8981\u5c06\u5176\u63d0\u53d6\u51fa\u6765\u5c31\u884c：<\/p>\n '\u4ecelParam\u4f4e\u4f4d\u83b7\u53d6\u9f20\u6807x\u5750\u6807 \u6211\u4eec\u6765\u4f7f\u7528Ellipse\u51fd\u6570\u8fdb\u884c\u753b\u5706，\u5b83\u7684\u53c2\u6570\u8981\u6c42\u6211\u4eec\u77e5\u9053\u4e24\u4e2a\u5750\u6807，\u4e00\u4e2a\u662f\u5de6\u4e0a\u89d2\u5750\u6807，\u53e6\u4e00\u4e2a\u662f\u53f3\u4e0b\u89d2\u5750\u6807\u3002\u7528\u8fd9\u4e24\u4e2a\u5750\u6807\u56f4\u6210\u4e00\u4e2a\u77e9\u5f62，\u4ee5\u77e9\u5f62\u4e2d\u70b9\u4e3a\u5706\u5fc3\u7684\u5185\u5207\u5706\u5c31\u662fEllipse\u51fd\u6570\u753b\u51fa\u7684\u5706\u3002<\/p>\n '\u7ed8\u5236\u5706（\u6709\u8fb9\u6846\u3001\u65e0\u80cc\u666f） \u8fd9\u91cc\u8981\u7528InvalidateRect\u51fd\u6570\u6307\u5b9a\u4e00\u4e2a\u5373\u5c06\u8981\u91cd\u7ed8\u7684\u77e9\u5f62\u533a\u57df\u3002<\/p>\n '\u91cd\u7ed8\u64e6\u9664\u4e4b\u524d\u7684\u9192\u76ee\u6807\u8bb0 \u5728\u753b\u753b\u7ed3\u675f\u4e4b\u540e，\u7531\u4e8e\u4e0d\u518d\u9700\u8981\u4f7f\u7528\u8fd9\u4e2a1\u50cf\u7d20\u5bbd\u7684\u5b9e\u7ebf\u753b\u7b14Ud.Temp(0)\u548c\u7a7a\u753b\u5237Ud.Temp(2)\u4e86，\u6211\u4eec\u5c31\u8981\u653e\u4e0b\u5b83\u4eec，\u91cd\u65b0\u62ff\u8d77\u4e4b\u524d\u7684\u5de5\u5177，\u6bd4\u5982\u91cd\u65b0\u62ff\u8d77\u4e4b\u524d\u7684\u753b\u7b14Ud.Temp(1)，\u4ee5\u53ca\u91cd\u65b0\u62ff\u8d77\u6a21\u524d\u7684\u753b\u5237Ud.Temp(3)\u3002\u4ee5\u6b64，\u8ba9\u5bf9\u8bdd\u6846\u7a97\u53e3\u7684\u7ed8\u5236\u73af\u5883\u5728\u7528\u6237\u7ed8\u5236\u5b8c\u4e4b\u540e\u59cb\u7ec8\u4fdd\u6301\u539f\u59cb\u6a21\u6837\u3002<\/p>\n '\u9009\u4e2d\u4e4b\u524d\u7684\u753b\u7b14\u548c\u753b\u5237 \u6b64\u5916，\u6211\u4eec\u8fd8\u9700\u8981\u628a\u4e0d\u9700\u8981\u7684\u753b\u7b14\u9500\u6bc1\u6389，\u91ca\u653e\u5185\u5b58\u3002\u800c\u4f7f\u7528GetStockObject\u51fd\u6570\u83b7\u53d6\u7684\u5bf9\u8c61\u53e5\u67c4，\u4e0d\u9700\u8981\u624b\u52a8\u9500\u6bc1\u3002<\/p>\n '\u9500\u6bc1\u4e34\u65f6\u753b\u7b14 \u5728\u6240\u6709\u6b65\u9aa4\u90fd\u7ed3\u675f\u4e4b\u540e，\u6211\u4eec\u9700\u8981\u628a\u5f53\u524d\u5728\u7528\u7684\u753b\u677f\u653e\u56de\u53bb，\u4e5f\u5c31\u662f\u91ca\u653ehdc\u7ed8\u5236\u73af\u5883\u3002<\/p>\n '\u91ca\u653e\u7ed8\u5236\u73af\u5883 \u5efa\u8bae\u5927\u5bb6\u5728\u4e86\u89e3\u5b9e\u73b0\u539f\u7406\u4e4b\u540e，\u4eb2\u81ea\u52a8\u624b\u7f16\u5199\u4ee3\u7801\u5b9e\u64cd，\u8fd9\u6837\u624d\u80fd\u63d0\u5347\u81ea\u8eab\u80fd\u529b\u3002<\/span><\/span><\/p>\n \u4f60\u53ea\u9700\u8981\u590d\u5236\u4ee3\u7801\u5230\u4e00\u4e2a\u65b0\u6a21\u5757\u4e2d\u5c31\u80fd\u8fd0\u884c：<\/p>\n '\u665a\u95f4\u6709\u96e8\u4f34\u4eba\u7720202608011619 #If VBA7 And Win64 Then #If VBA7 And Win64 Then Private Const SW_SHOW = 5 Public Sub CreateUserDialog() #If VBA7 And Win64 Then \u5173\u4e8e#32770\u5bf9\u8bdd\u6846\u7a97\u53e3\u7684\u4e13\u9879\u5f00\u53d1\u8ba1\u5212<\/span><\/p>\n","protected":false},"excerpt":{"rendered":" 1. \u6548\u679c\u6f14\u793a3. \u5b9e\u73b0\u8fc7\u7a0b<\/h2>\n
\n \u5148\u627e\u5230\u753b\u677f，\u62ff\u8d77\u9700\u8981\u7684\u753b\u753b\u5de5\u5177，\u753b\u753b，\u62ff\u8d77\u539f\u6765\u7684\u753b\u753b\u5de5\u5177，\u653e\u56de\u753b\u677f\u3002<\/span><\/span><\/p>\n3.1 \u5148\u627e\u5230\u753b\u677f<\/h3>\n
\nUd.DialogHdc = GetDC(Ud.Dialog) <\/p>\n3.2 \u62ff\u8d77\u9700\u8981\u7684\u753b\u753b\u5de5\u5177<\/h3>\n
\nUd.Temp(0) = CreatePen(PS_SOLID, 1, RGB(0, 0, 0))
\nUd.Temp(1) = SelectObject(Ud.DialogHdc, Ud.Temp(0))
\n'\u521b\u5efa\u5e76\u62ff\u8d77\u7a7a\u753b\u5237
\nUd.Temp(2) = GetStockObject(NULL_BRUSH)
\nUd.Temp(3) = SelectObject(Ud.DialogHdc, Ud.Temp(2)) <\/p>\n3.3 \u753b\u753b<\/h3>\n
\n
\nUd.DiglogClick.x = CLng(lParam) And &HFFFF&
\n'\u4ecelParam\u9ad8\u4f4d\u83b7\u53d6\u9f20\u6807y\u5750\u6807
\nUd.DiglogClick.y = (CLng(lParam) And &HFFFF0000) \/ &H10000 <\/p>\n\n
\nEllipse Ud.DialogHdc, Ud.DiglogClick.x – 10, Ud.DiglogClick.y – 10, Ud.DiglogClick.x + 10, Ud.DiglogClick.y + 10 <\/p>\n\n
\nDim lprc As RECT
\nlprc.Left = Ud.DiglogClick.x – 10
\nlprc.Top = Ud.DiglogClick.y – 10
\nlprc.Right = Ud.DiglogClick.x + 10
\nlprc.Bottom = Ud.DiglogClick.y + 10
\nInvalidateRect Ud.Dialog, lprc, True <\/p>\n3.4 \u62ff\u8d77\u539f\u6765\u7684\u753b\u753b\u5de5\u5177<\/h3>\n
\nSelectObject Ud.DialogHdc, Ud.Temp(1)
\nSelectObject Ud.DialogHdc, Ud.Temp(3) <\/p>\n
\nDeleteObject Ud.Temp(0) <\/p>\n3.5 \u653e\u56de\u753b\u677f<\/h3>\n
\nReleaseDC Ud.Dialog, Ud.DialogHdc <\/p>\n4. \u5b8c\u6574\u6e90\u7801<\/h2>\n
\n
\n'\u539f\u521b\u4ee3\u7801，\u8f6c\u8f7d\u6216\u4e8c\u521b\u8bf7\u6807\u660e\u6765\u6e90
\n#If VBA7 And Win64 Then
\n Private Declare PtrSafe Function IsWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
\n Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
\n Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
\n Private Declare PtrSafe Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal HwndParent As LongPtr, ByVal hMenu As LongPtr, ByVal Hinstance As LongPtr, lpParam As Any) As LongPtr
\n Private Declare PtrSafe Function SetWindowLongA Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
\n Private Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
\n Private Declare PtrSafe Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As LongPtr, ByVal msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
\n Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
\n Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
\n Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long
\n Private Declare PtrSafe Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As LongPtr
\n Private Declare PtrSafe Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As LongPtr
\n Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hdc As LongPtr, ByVal hObject As LongPtr) As LongPtr
\n Private Declare PtrSafe Function Ellipse Lib "gdi32" (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
\n Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long
\n Private Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT, ByVal bErase As Long) As Long
\n#Else
\n Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
\n Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
\n Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
\n Private Declare Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal HwndParent As Long, ByVal hMenu As Long, ByVal Hinstance As Long, lpParam As Any) As Long
\n Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
\n Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
\n Private Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
\n Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
\n Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
\n Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
\n Private Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
\n Private Declare Function GetStockObject Lib "gdi32" Alias "GetStockObject" (ByVal nIndex As Long) As Long
\n Private Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long
\n Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
\n Private Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long
\n Private Declare Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
\n#End If<\/p>\n
\n Private Type POINTAPI
\n x As Long
\n y As Long
\n End Type
\n Private Type RECT
\n Left As Long
\n Top As Long
\n Right As Long
\n Bottom As Long
\n End Type
\n#Else
\n Private Type POINTAPI
\n x As Long
\n y As Long
\n End Type
\n Private Type RECT
\n Left As Long
\n Top As Long
\n Right As Long
\n Bottom As Long
\n End Type
\n#End If<\/p>\n
\n Private Const Nuptr As LongPtr = 0
\n Private Ud As UserDialogType
\n Private Type UserDialogType
\n Dialog As LongPtr
\n DialogProc As LongPtr
\n DialogHdc As LongPtr
\n DiglogClick As POINTAPI
\n Editor As LongPtr
\n EditorState As LongPtr
\n Temp(3) As LongPtr
\n End Type
\n#Else
\n Private Const Nuptr As Long = 0
\n Private Ud As UserDialogType
\n Private Type UserDialogType
\n Dialog As Long
\n DialogProc As Long
\n DialogHdc As Long
\n DiglogClick As POINTAPI
\n Editor As Long
\n EditorState As Long
\n Temp(3) As Long
\n End Type
\n#End If<\/p>\n
\nPrivate Const SW_HIDE = 0
\nPrivate Const WS_VISIBLE = &H10000000
\nPrivate Const WS_POPUP = &H80000000
\nPrivate Const WS_SYSMENU = &H80000
\nPrivate Const WS_CAPTION = &HC00000
\nPrivate Const WS_EX_DLGMODALFRAME = &H1
\nPrivate Const GWL_WNDPROC = -4
\nPrivate Const WM_CLOSE = &H10
\nPrivate Const WM_DESTROY = &H2
\nPrivate Const WM_LBUTTONDOWN = &H201
\nPrivate Const WM_LBUTTONUP = &H202
\nPrivate Const PS_SOLID = 0
\nPrivate Const NULL_BRUSH = 5<\/p>\n
\n '\u5bf9\u8bdd\u6846\u7a97\u53e3\u82e5\u5df2\u5b58\u5728\u5219\u76f4\u63a5\u663e\u793a
\n If IsWindow(Ud.Dialog) Then ShowWindow Ud.Dialog, SW_SHOW: Exit Sub
\n '\u83b7\u53d6\u7f16\u8f91\u5668\u53e5\u67c4\u5e76\u9690\u85cf
\n Ud.Editor = FindWindowA("wndclass_desked_gsk", vbNullString)
\n Ud.EditorState = ShowWindow(Ud.Editor, SW_HIDE)
\n '\u6307\u5b9a\u5bf9\u8bdd\u6846\u521d\u59cb\u6837\u5f0f
\n Dim StyleS&: StyleS = WS_VISIBLE Or WS_POPUP Or WS_SYSMENU Or WS_CAPTION
\n Dim StyleE&: StyleE = WS_EX_DLGMODALFRAME
\n '\u521b\u5efa\u5bf9\u8bdd\u6846\u4e3b\u7a97\u53e3
\n Ud.Dialog = CreateWindowExA(StyleE, "#32770", "UserDialog", StyleS, 15, 50, 300, 200, Nuptr, Nuptr, Nuptr, Nuptr)
\n '\u83b7\u53d6\u5bf9\u8bdd\u6846\u7ed8\u5236\u73af\u5883
\n Ud.DialogHdc = GetDC(Ud.Dialog)
\n '\u8bbe\u7f6e\u5bf9\u8bdd\u6846\u5b50\u7c7b\u5316
\n Ud.DialogProc = SetWindowLongA(Ud.Dialog, GWL_WNDPROC, AddressOf WindowProcUdDialog)
\n '\u8bbe\u7f6e\u7126\u70b9
\n SetFocus Ud.Dialog
\nEnd Sub<\/p>\n
\n Private Function WindowProcUdDialog(ByVal hwnd As LongPtr, ByVal msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
\n#Else
\n Private Function WindowProcUdDialog(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
\n#End If
\n Select Case msg
\n '\u7a97\u53e3\u5373\u5c06\u5173\u95ed\u65f6
\n Case WM_CLOSE
\n '\u91ca\u653e\u7ed8\u5236\u73af\u5883
\n ReleaseDC Ud.Dialog, Ud.DialogHdc
\n '\u9500\u6bc1\u7a97\u53e3
\n DestroyWindow Ud.Dialog
\n '\u7528\u6237\u5df2\u5904\u7406
\n WindowProcUdDialog = Nuptr
\n Exit Function
\n '\u7a97\u53e3\u9500\u6bc1\u540e
\n Case WM_DESTROY
\n '\u53d6\u6d88\u5b50\u7c7b\u5316
\n SetWindowLongA Ud.Dialog, GWL_WNDPROC, Ud.DialogProc
\n '\u8fd8\u539f\u7f16\u8f91\u5668\u7684\u663e\u793a\u72b6\u6001
\n If Ud.EditorState Then ShowWindow Ud.Editor, SW_SHOW
\n '\u6e05\u7406\u5185\u5b58
\n Dim EmptyUd As UserDialogType: Ud = EmptyUd
\n '\u7528\u6237\u5df2\u5904\u7406
\n WindowProcUdDialog = Nuptr
\n Exit Function
\n '\u9f20\u6807\u5de6\u952e\u6309\u4e0b\u65f6
\n Case WM_LBUTTONDOWN
\n '\u4ecelParam\u4f4e\u4f4d\u83b7\u53d6\u9f20\u6807x\u5750\u6807
\n Ud.DiglogClick.x = CLng(lParam) And &HFFFF&
\n '\u4ecelParam\u9ad8\u4f4d\u83b7\u53d6\u9f20\u6807y\u5750\u6807
\n Ud.DiglogClick.y = (CLng(lParam) And &HFFFF0000) \/ &H10000
\n '\u521b\u5efa\u5e76\u62ff\u8d77\u753b\u7b14
\n Ud.Temp(0) = CreatePen(PS_SOLID, 1, RGB(0, 0, 0))
\n Ud.Temp(1) = SelectObject(Ud.DialogHdc, Ud.Temp(0))
\n '\u521b\u5efa\u5e76\u62ff\u8d77\u7a7a\u753b\u5237
\n Ud.Temp(2) = GetStockObject(NULL_BRUSH)
\n Ud.Temp(3) = SelectObject(Ud.DialogHdc, Ud.Temp(2))
\n '\u7ed8\u5236\u5706（\u6709\u8fb9\u6846\u3001\u65e0\u80cc\u666f）
\n Ellipse Ud.DialogHdc, Ud.DiglogClick.x – 10, Ud.DiglogClick.y – 10, Ud.DiglogClick.x + 10, Ud.DiglogClick.y + 10
\n '\u9009\u4e2d\u4e4b\u524d\u7684\u753b\u7b14\u548c\u753b\u5237
\n SelectObject Ud.DialogHdc, Ud.Temp(1)
\n SelectObject Ud.DialogHdc, Ud.Temp(3)
\n '\u9500\u6bc1\u4e34\u65f6\u753b\u7b14
\n DeleteObject Ud.Temp(0)
\n Case WM_LBUTTONUP
\n '\u91cd\u7ed8\u64e6\u9664\u4e4b\u524d\u7684\u9192\u76ee\u6807\u8bb0
\n Dim lprc As RECT
\n lprc.Left = Ud.DiglogClick.x – 10
\n lprc.Top = Ud.DiglogClick.y – 10
\n lprc.Right = Ud.DiglogClick.x + 10
\n lprc.Bottom = Ud.DiglogClick.y + 10
\n InvalidateRect Ud.Dialog, lprc, True
\n End Select
\n '\u8c03\u7528\u9ed8\u8ba4\u901a\u77e5\u5904\u7406
\n WindowProcUdDialog = CallWindowProcA(Ud.DialogProc, hwnd, msg, wParam, lParam)
\nEnd Function <\/p>\n\u00a05. \u76f8\u5173\u5408\u96c6<\/h2>\n
\n\u665a\u95f4\u6b63\u5728\u505a\u4e00\u4e2a\u5b8c\u6574\u7684CSDN\u5408\u96c6，\u9488\u5bf9\u5bf9\u8bdd\u6846#32770，\u4e13\u95e8\u6559\u5b66\u5982\u4f55\u5b8c\u5584\u5404\u9879\u529f\u80fd\u3001\u5982\u4f55\u4f18\u5316\u4f7f\u7528\u4f53\u9a8c\u7b49\u5185\u5bb9，\u8ba9\u5927\u5bb6\u5728\u5199\u81ea\u5df1\u7684\u7a97\u53e3\u9879\u76ee\u65f6\u80fd\u591f\u6709\u6240\u501f\u9274\u3002 2. \u529f\u80fd\u4ecb\u7ecd \u9f20\u6807\u5de6\u952e\u6309\u4e0b\u65f6\u51fa\u73b0\u9192\u76ee\u6807\u8bb0，\u677e\u5f00\u65f6\u6807\u8bb0\u6d88\u5931\u3002 3. \u5b9e\u73b0\u8fc7\u7a0b \u8fd9\u4e2a\u529f\u80fd\u7684\u672c\u8d28\u662f\u5728\u5bf9\u8bdd\u6846\u7a97\u53e3\u4e0a\u753b\u5706\u548c\u64e6\u9664，\u64cd\u4f5c\u65b9\u6cd5\u662f：\u5728\u9f20\u6807\u5de6\u952e\u6309\u4e0b\u65f6\u753b\u4e00\u4e2a\u5706，\u53c8\u5728\u5de6\u952e\u677e\u5f00\u65f6\u64e6\u9664\u5706\u3002\u4ec5\u4ec5\u77e5\u9053\u5728\u4ec0\u4e48\u65f6\u95f4\u5e72\u4ec0\u4e48\u4e8b\u8fd8\u4e0d\u591f&<\/p>\n","protected":false},"author":2,"featured_media":90580,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[10314,10187,10315,6817,128],"topic":[],"class_list":["post-90581","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-server","tag-10314","tag-codingplan","tag-subclass","tag-vba","tag-api"],"yoast_head":"\n