各种对话框(总结) '''' ''''标准对话框(SmDialog) '''' Option Explicit ''''''''定义一个全局变量,用于保存字体的各种属性 Public Type SmFontAttr FontName As String ''''字体名 FontSize As Integer ''''字体大小 FontBod As Boolean ''''是否黑体 FontItalic As Boolean ''''是否斜体 FontUnderLine As Boolean ''''是否下划线 FontStrikeou As Boolean FontColor As Long WinHwnd As Long End Type Dim M_GetFont As SmFontAttr ''''''''**系统常量------------------------------------------ Private Const SWP_NOOWNERZORDER = &H200 Private Const SWP_HIDEWINDOW = &H80 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOREDRAW = &H8 Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_SHOWWINDOW = &H40 Private Const RESOURCETYPE_DISK = &H1 ''''网络驱动器 Private Const RESOURCETYPE_PRINT = &H2 ''''网络打印机 ''''/------------------------------------------------------------ Private Const NoError = 0 Private Const CSIDL_DESKTOP = &H0 Private Const CSIDL_PROGRAMS = &H2 Private Const CSIDL_CONTROLS = &H3 Private Const CSIDL_PRINTERS = &H4 Private Const CSIDL_PERSONAL = &H5 Private Const CSIDL_FAVORITES = &H6 Private Const CSIDL_STARTUP = &H7 Private Const CSIDL_RECENT = &H8 Private Const CSIDL_SENDTO = &H9 Private Const CSIDL_BITBUCKET = &HA Private Const CSIDL_STARTMENU = &HB Private Const CSIDL_DESKTOPDIRECTORY = &H10 Private Const CSIDL_DRIVES = &H11 Private Const CSIDL_NETWORK = &H12 Private Const CSIDL_NETHOOD = &H13 Private Const CSIDL_FONTS = &H14 Private Const CSIDL_TEMPLATES = &H15 Private Const LF_FACESIZE = 32 Private Const MAX_PATH = 260 Private Const CF_INITTOLOGFONTSTRUCT = &H40& Private Const CF_FIXEDPITCHONLY = &H4000& Private Const CF_EFFECTS = &H100& Private Const ITALIC_FONTTYPE = &H200 Private Const BOLD_FONTTYPE = &H100 Private Const CF_NOFACESEL = &H80000 Private Const CF_NOSCRIPTSEL = &H800000 Private Const CF_PRINTERFONTS = &H2 Private Const CF_SCALABLEONLY = &H20000 Private Const CF_SCREENFONTS = &H1 Private Const CF_SHOWHELP = &H4& Private Const CF_BOTH = (CF_SCREENFONTS Or CF_PRINTERFONTS) ''''/------------------------------------------ Private Type CHOOSECOLOR lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As String flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type ''''/----------------------------------------------------------- Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName As String * LF_FACESIZE End Type Private Type CHOOSEFONT lStructSize As Long hwndOwner As Long hdc As Long lpLogFont As Long iPointSize As Long flags As Long rgbColors As Long lCustData As Long lpfnHook As Long lpTemplateName As String hInstance As Long lpszStyle As String nFontType As Integer MISSING_ALIGNMENT As Integer nSizeMin As Long nSizeMax As Long End Type ''''/-------------- Private Type SHITEMID cb As Long abID() As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type ''''/------------------------------------------ Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
"SHGetPathFromIDListA" _ (ByVal Pidl As Long, ByVal pszPath As String) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _ (ByVal hwndOwner As Long, ByVal nFolder As Long, _ Pidl As ITEMIDLIST) As Long ''''/------------------------------------------ Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA"
(pOpenfilename As OPENFILENAME) As Long Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA"
(pOpenfilename As OPENFILENAME) As Long Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA"
(pChoosecolor As CHOOSECOLOR) As Long Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hWnd As Long,
ByVal dwType As Long) As Long Private Declare Function CHOOSEFONT Lib "comdlg32.dll" Alias "ChooseFontA"
(pChooseFont As CHOOSEFONT) As Long ''''/=======显示断开网络资源对话框============ Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _ (ByVal hWnd As Long, ByVal dwType As Long) As Long ''''/================================================================================ Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
"SHBrowseForFolderA" _ (lpBrowseInfo As BROWSEINFO) As Long Private Type BROWSEINFO hOwner As Long
[1] [2] [3] [4] 下一页 没有相关教程
|