查看: 68  |  回复: 0
  VB6 的一些常量
楼主
发表于 2024年12月2日 16:42

'ColorConstants’ 的成员:

vbBlack
vbBlue
vbCyan
vbGreen
vbMagenta
vbRed
vbWhite
vbYellow

'Constants’的成员:

vbBack
vbCr
vbCrLf
vbFormFeed
vbLf
vbNewLine
vbNullChar
vbNullString
vb0bjectError
vbTab
vbVerticalTab

'TreeRelationshipConstants’的成员:


tvwChild
tvwFirst
tvwLast
tvwNext
tvwPrevious

'ListSortOrderConstants’的成员:

lvwAscending
lvwAutoLeft
lvwAutomatio
lvwAutoTop
lvwColunnCenter
lvwColumnLeft
lvwColumnRight
lvwDescending
lvwIcon
lvwList
lvwManual
lvwNone
lvwPartial
lvwReport
lvwSmallIcon
lvwSubItem
lvwTag
lvwText
lvwWhole

ext_:

ext cm AfterStartup
ext_cm_CommandLine
ext_cm_External
ext_cm_Startup
ext_dm_HostShutdown
ext_dm_UserClosed

vbext_cm_AfterStartup
vbext_cm_External
vbext_cm_Startup

wbext_ct_ActiveXDesigner
vbext_ct_ClassModule
vbext_ct_Container
vbext_ct_Doc0bject
vbext_ct_Light
vbext_ct_MSForm
vbext_ct_PropPage
vbext_ct_RelatedDocument
vbext_ct_ResFile
vbext_ct_Standard
vbext_ct_StdModule
vbext_ct_UserControl
vbext_ct_VBForm
vbext_ct_VBMDIForm

vbext_cv_FullModuleVi ew
vbext_ov_ProcedureView

vbext_dm_HostShutdown
vbext_dm_MDI
vbext_dm_SDI
vbext_dm_UserClosed

vbext_Friend

vbext_ft_Binary
vbext_ft_Class
vbext_ft_Designers
vbext_ft_Doc0bject
vbext_ft_Exe
vbext_ft_Form
vbext_ft_Frx
vbext_ft_GroupProject
vbext_ft_Module
vbext_ft_Project
vbext_ft_PropertyPage
vbext_ft_Res
vbext_ft_UserControl

vbext_mt_Const
vbext_mt_Event
vbext_mt_Method
vbext_mt_Property
vbext_mt_Variable

vbext_pk_Get
vbext_pk_Let
vbext_pk_Proc
vbext_pk_Set
vbext_Private

vbext_psm_0leServer
vbext_psm_StandAlone

vbext_pt_ActiveXControl
vbext_pt_ActiveXDl1
vbext_pt_ActiveXExe
vbext_pt_StandardExe

vbext_Public
vbext_rk_Project
vbext_rk_TypeLib
vbext_so_None
vbext_so_SubMain

vbext_vm_Break
vbext_vm_Design
vbext_vm_Run

vbext_ws_Maximize
vbext_ws_Minimize
vbext_ws_Normal

vbext_wt_Browser
vbext_wt_CodeWindow
vbext_wt_ColorPalette
vbext_wt_Designer
vbext_wt_Find
vbext_wt_FindReplace
vbext_wt_Immediate
vbext_wt_LinkedWindowFrame
vbext_wt_Locals
vbext_wt_MainWindow
vbext_wt_Preview
vbext_wt_ProjectWindow
vbext_wt_PropertyWindow
vbext_wt_Toolbox
vbext_wt_ToolWindow
vbext_wt_Watch


1楼
发表于 2024年12月14日 16:30

一个子程序:

Private Function ModuleExt(Modtype As Long) As String
    Select Case Modtype
        Case vbext_ct_StdModule: ModuleExt = ".bas"    '1 standard module.
        Case vbext_ct_ClassModule: ModuleExt = ".cls"    '2 class module.
        Case vbext_ct_MSForm: ModuleExt = ".frm"    '3 form.
        Case vbext_ct_ResFile: ModuleExt = ".res"    '4 standard resource file.
        Case vbext_ct_VBForm: ModuleExt = ".frm"    '5 Visual Basic form.
        Case vbext_ct_VBMDIForm: ModuleExt = ".frm"    '6 The component is an MDI form.
        Case vbext_ct_PropPage: ModuleExt = ".pag"    '7 property page.
        Case vbext_ct_UserControl: ModuleExt = ".ctl"    '8 user control.
        Case vbext_ct_DocObject: ModuleExt = ".dob"    '9 RelatedDocument.
        Case vbext_ct_ActiveXDesigner: ModuleExt = ".dsr"    '11 ActiveX designer.
    End Select
End Function


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com