Time = 2022/01/27 10:09:31 AC2020VB5 All Controls InterFace Method / Property Lists ************************************************************************* [ AppEndIniSave ] Time = 2022/01/27 10:09:31 ************************************************************************* Function SaveIniActX_On_AppMainForm_QueryUnload(rAppMainForm As Object) As Boolean Sub ShowAboutBox() ************************************************************************* [ Concon ] Time = 2022/01/27 10:09:31 ************************************************************************* Event CurPathChange(ByVal rCurPath As String, wAutoShowIcons As Boolean) Event FirstShow(wUserSetPath As String) Event GetUserImgList(wImgList As Object) Event IconListChange(ByVal rModeIconFile As Boolean) Event IconListDblClick(ByVal rModeIconFile As Boolean, ByVal rCurListIndex As Long, ByVal rIconLabelStr As String, ByVal rFile As String, ByVal rIconIndexOrImgIndex As Long) Event IconListSelectChange(ByVal rModeIconFile As Boolean, ByVal rCurListIndex As Long, ByVal rIconLabelStr As String, ByVal rFile As String, ByVal rIconIndexOrImgIndex As Long) Event IconSampleBoxDblClick(ByVal rModeIconFile As Boolean, ByVal rCurListIndex As Long, ByVal rIconLabelStr As String, ByVal rFile As String, ByVal rIconIndexOrImgIndex As Long) Event MenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rFromList0FromSmp1 As Long, ByVal rSelectIndex1to4 As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event ModeChange(ByVal rNewModeIconFile As Boolean) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event Resize() Event UserListEvents(rOpCode As String, rPctBack As Object, rPctImge As Object, rPctSamp As Object, rSelBox As Object, rScrBar As Object, rIcoLabel As Object, rwListIndex As Long, rPixelX As Long, rPixelY As Long) Function FileFromIconLabel(rIconLabelStr As String, wIconIndex As Long) As String Function FileFromIconLabelCurrent(wIconIndex As Long) As String Function IconLabelCurrent() As String Function IconLabelFromFile(rFile As String, rIconIndex As Long) As String Function ImgIndexFromIconLabel(rImageLabelStr As String) As Long Function ImgIndexFromIconLabelCurrent() As Long Function OLEDropStrReadEx(rDropStr As String, wIconFileName As String, wIconIndex As Long) As Boolean Function PopMenuShow(rFromList0FromSmp1 As Long, Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function ReAddFolder(rFolder As String) As Boolean Function RefreshIconList() Function SetListIndex(Optional rIconLabelStr As String = "", Optional rFile As String = "", Optional rIconIndexOrImgIndex As Long = 0) As Long Function ShowAllIconListWindow() As Boolean Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BackStyle() As EnumConconBackStyle Property Let BackStyle(ByVal v As EnumConconBackStyle) Property Get BorderColor() As OLE_COLOR Property Let BorderColor(ByVal v As OLE_COLOR) Property Get BorderType() As EnumConconBorder Property Let BorderType(ByVal v As EnumConconBorder) Property Get BorderWidth() As EnumConconBorderWidth Property Let BorderWidth(ByVal v As EnumConconBorderWidth) Property Get Captions() As String Property Let Captions(ByVal v As String) Property Get CurListIndex(ByVal rModeIconFile As Boolean) As Long Property Let CurListIndex(ByVal rModeIconFile As Boolean, ByVal v As Long) Property Get Curpath() As String Property Let Curpath(ByVal v As String) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get Enableds() As String Property Let Enableds(ByVal v As String) Property Get EnabledShowAllIconListWindow() As Boolean Property Get FileBackColor() As OLE_COLOR Property Let FileBackColor(ByVal v As OLE_COLOR) Property Get FileForeColor() As OLE_COLOR Property Let FileForeColor(ByVal v As OLE_COLOR) Property Get FolderBackColor() As OLE_COLOR Property Let FolderBackColor(ByVal v As OLE_COLOR) Property Get FolderForeColor() As OLE_COLOR Property Let FolderForeColor(ByVal v As OLE_COLOR) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get LabelBackColor() As OLE_COLOR Property Let LabelBackColor(ByVal v As OLE_COLOR) Property Get LabelForeColor() As OLE_COLOR Property Let LabelForeColor(ByVal v As OLE_COLOR) Property Get ListCount(ByVal rModeIconFile As Boolean) As Long Property Get MenuMainUse() As Boolean Property Let MenuMainUse(ByVal v As Boolean) Property Get ModeIconFile() As Boolean Property Let ModeIconFile(ByVal v As Boolean) Property Get OldDrivesPath() As String Property Let OldDrivesPath(ByVal v As String) Property Get OLEDragEnabled() As Boolean Property Let OLEDragEnabled(ByVal v As Boolean) Property Get PartsCaption(ByVal rPartsID As EnumConconPartsID) As String Property Let PartsCaption(ByVal rPartsID As EnumConconPartsID, ByVal v As String) Property Get PartsEnabled(ByVal rPartsID As EnumConconPartsID) As Boolean Property Let PartsEnabled(ByVal rPartsID As EnumConconPartsID, ByVal v As Boolean) Property Get PartsSizeData(ByVal rPartsID As EnumConconPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0) As Boolean Property Let PartsSizeData(ByVal rPartsID As EnumConconPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0, v As Boolean) Property Get PartsVisible(ByVal rPartsID As EnumConconPartsID) As Boolean Property Let PartsVisible(ByVal rPartsID As EnumConconPartsID, ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get ReFolderBtnCaption() As String Property Let ReFolderBtnCaption(ByVal v As String) Property Get ReFolderBtnUse() As Boolean Property Let ReFolderBtnUse(ByVal v As Boolean) Property Get ReFolderFontColorData() As String Property Let ReFolderFontColorData(ByVal v As String) Property Get ReFolderItemsMax() As Long Property Let ReFolderItemsMax(ByVal v As Long) Property Get ReFolderListDataStr() As String Property Let ReFolderListDataStr(ByVal v As String) Property Get ReFolderWndLvwColSizeTwips() As String Property Let ReFolderWndLvwColSizeTwips(ByVal v As String) Property Get SelBoxBorderWidth() As Long Property Let SelBoxBorderWidth(ByVal v As Long) Property Get SelBoxOffColor() As OLE_COLOR Property Let SelBoxOffColor(ByVal v As OLE_COLOR) Property Get SelBoxOnColor() As OLE_COLOR Property Let SelBoxOnColor(ByVal v As OLE_COLOR) Property Get SizeAutoZoom() As Boolean Property Let SizeAutoZoom(ByVal v As Boolean) Property Get SizeDatas() As String Property Let SizeDatas(ByVal v As String) Property Get SizeZoomType() As EnumConconSizeZoomType Property Let SizeZoomType(ByVal v As EnumConconSizeZoomType) Property Get TipHelpUse() As Boolean Property Let TipHelpUse(ByVal v As Boolean) Property Get UseUserList() As Boolean Property Let UseUserList(ByVal v As Boolean) Property Get Visibles() As String Property Let Visibles(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Hatehate ] Time = 2022/01/27 10:09:31 ************************************************************************* Event DlgShowAfter(ByVal rReturnOK As Boolean, ByVal rAutoRunDone As Boolean, ByVal rSelectStr As String, rUserDataAry() As String, ByVal rDataListChanged As Boolean, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String) Event DlgShowBeFore(wUserDataAry() As String, wDefRetStrIfCansel As String, wShowXtwips As Single, wShowYtwips As Single) Event FirstShow() Event GiveListItemIconFileData(ByVal rCurItemIndex As Long, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String, ByRef wIcofile As String, ByRef wIcoIndex As Long) Event ListRBtnClickItem(ByVal rCurItemIndex As Long, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String, ByRef rwAllListDatas() As String, ByVal rColCountOrDataPich As Long, ByRef wChangedCode As Long) Event MenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rCurItemIndex As Long, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String, ByVal rSelectIndex1to4 As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String, rwAllListDatas() As String, ByVal rColCountOrDataPich As Long, wChangedCode As Long) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Function AddItemFolderOrFile(rFolderOrFile As String) As Boolean Function AddItemText(Optional rData0 As String = "", Optional rData1 As String = "", Optional rData2 As String = "", Optional rData3 As String = "") As Boolean Function AllStrDataRepStr(rOldChr As String, rNewChr As String) As Boolean Function DlgShow() Function DlgShowCustom(wAutoRunDone As Boolean, rUserDefStr_wRetSelectStr As String, rwUserDataAry() As String, wDataListChanged As Boolean, Optional wSelText0 As String, Optional wSelSub1 As String, Optional wSelSub2 As String, Optional wSelSub3 As String, Optional rShowXtwips As Single = -1, Optional rShowYtwips As Single = -1) As Boolean Function ListDataStrAddInUserAry(rAddTop As Boolean, wUserAry() As String, rPich As Long, rPathSep As String, rListItemsMax As Long, Optional rData0 As String = "", Optional rData1 As String = "", Optional rData2 As String = "", Optional rData3 As String = "") As Boolean Function ListDataStrTmpMake(rUserAry() As String) As String Property Get BtnDlgShowCaption() As String Property Let BtnDlgShowCaption(ByVal v As String) Property Get CaptionCanselBtn() As String Property Let CaptionCanselBtn(ByVal v As String) Property Get CaptionOkBtn() As String Property Let CaptionOkBtn(ByVal v As String) Property Get CurListMoveTop() As Boolean Property Let CurListMoveTop(ByVal v As Boolean) Property Get DataPich() As Long Property Let DataPich(ByVal v As Long) Property Get DlgCaption() As String Property Let DlgCaption(ByVal v As String) Property Get DlgShowPost() As EnumHateDlgShowPost Property Let DlgShowPost(ByVal v As EnumHateDlgShowPost) Property Get DriveListAdd() As Boolean Property Let DriveListAdd(ByVal v As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get ErrMsgBoxComent() As String Property Let ErrMsgBoxComent(ByVal v As String) Property Get ErrMsgBoxTitle() As String Property Let ErrMsgBoxTitle(ByVal v As String) Property Get FolderFileAutoRun() As Boolean Property Let FolderFileAutoRun(ByVal v As Boolean) Property Get FontColorData() As String Property Let FontColorData(ByVal v As String) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get ListColCount() As Long Property Let ListColCount(ByVal v As Long) Property Get ListDataStr() As String Property Let ListDataStr(ByVal v As String) Property Get ListDataStrByAry(rwAry() As String) As String Property Let ListDataStrByAry(rwAry() As String, tmp As String) Property Get ListItemsMax() As Long Property Let ListItemsMax(ByVal v As Long) Property Get ListType() As EnumHateDlgListType Property Let ListType(ByVal v As EnumHateDlgListType) Property Get ListViewHedText4() As String Property Let ListViewHedText4(ByVal v As String) Property Get ListViewHedText4StrsAry(rwAry() As String) As String Property Let ListViewHedText4StrsAry(rwAry() As String, tmp As String) Property Get PathSep() As String Property Let PathSep(ByVal v As String) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get UseIcon() As Boolean Property Let UseIcon(ByVal v As Boolean) Property Get UseListView() As Boolean Property Let UseListView(ByVal v As Boolean) Property Get UseOKCanButton() As Boolean Property Let UseOKCanButton(ByVal v As Boolean) Property Get UsePopPath() As Boolean Property Let UsePopPath(ByVal v As Boolean) Property Get UserExtraStrs() As String Property Let UserExtraStrs(ByVal v As String) Property Get UserExtraStrsAll(Optional s1 As String = vbLf, Optional s2 As String = vbLf, Optional s3 As String = vbLf, Optional s4 As String = vbLf, Optional s5 As String = vbLf, Optional s6 As String = vbLf, Optional s7 As String = vbLf, Optional s8 As String = vbLf, Optional s9 As String = vbLf, Optional s10 As String = vbLf) As String Property Let UserExtraStrsAll(Optional s1 As String = vbLf, Optional s2 As String = vbLf, Optional s3 As String = vbLf, Optional s4 As String = vbLf, Optional s5 As String = vbLf, Optional s6 As String = vbLf, Optional s7 As String = vbLf, Optional s8 As String = vbLf, Optional s9 As String = vbLf, Optional s10 As String = vbLf, tmp As String) Property Get UserExtraStrsObjExChg(Optional c1 As Object = Nothing, Optional c2 As Object = Nothing, Optional c3 As Object = Nothing, Optional c4 As Object = Nothing, Optional c5 As Object = Nothing, Optional c6 As Object = Nothing, Optional c7 As Object = Nothing, Optional c8 As Object = Nothing, Optional c9 As Object = Nothing, Optional c10 As Object = Nothing) As String Property Let UserExtraStrsObjExChg(Optional c1 As Object = Nothing, Optional c2 As Object = Nothing, Optional c3 As Object = Nothing, Optional c4 As Object = Nothing, Optional c5 As Object = Nothing, Optional c6 As Object = Nothing, Optional c7 As Object = Nothing, Optional c8 As Object = Nothing, Optional c9 As Object = Nothing, Optional c10 As Object = Nothing, tmp As String) Property Get WndLvwColSizeTwips() As String Property Let WndLvwColSizeTwips(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Huluhulu ] Time = 2022/01/27 10:09:31 ************************************************************************* Event CurFileChange(ByVal rCurPathFile As String, ByVal rCurPath As String, ByVal rCurFileTitle As String) Event CurPathChange(ByVal rCurPath As String) Event FileBoxDblClick(ByVal rCurPathFile As String, ByVal rCurPath As String, ByVal rCurFileTitle As String) Event FilePatternChange(ByVal rFilePattern As String, ByVal rFilePatternVB As String) Event FirstShow(wOldCurPathFile As String) Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event Resize() Function FilePatternAdd(ByVal rAddPattern As String, Optional rSetTop As Boolean = True) Function FilePatternCurDelete(Optional rYesNoMsgBoxShow As Boolean = True) Function FilePatternFindSet(ByVal rFindPattern As String, Optional rSetStdPatternIfNon As Boolean = True) Function FilePatternVB(ByVal rThisControlFilePattern As String, Optional ByVal rLCaseIsTrue As Boolean = True) As String Function ReAddFile(rFile As String) As Boolean Function ReAddFolder(rFolder As String) As Boolean Function ReAddFolderAndFile(rFileOrPath As String) As Boolean Function Refresh() Property Get Archive() As Boolean Property Let Archive(ByVal v As Boolean) Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BackStyle() As EnumHuluhuluBackStyle Property Let BackStyle(ByVal v As EnumHuluhuluBackStyle) Property Get BorderColor() As OLE_COLOR Property Let BorderColor(ByVal v As OLE_COLOR) Property Get BorderType() As EnumHuluhuluBorder Property Let BorderType(ByVal v As EnumHuluhuluBorder) Property Get BorderWidth() As EnumHuluhuluBorderWidth Property Let BorderWidth(ByVal v As EnumHuluhuluBorderWidth) Property Get Captions() As String Property Let Captions(ByVal v As String) Property Get CurFileTitle() As String Property Get Curpath() As String Property Let Curpath(ByVal v As String) Property Get CurPathFile() As String Property Let CurPathFile(ByVal v As String) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get Enableds() As String Property Let Enableds(ByVal v As String) Property Get FileBackColor() As OLE_COLOR Property Let FileBackColor(ByVal v As OLE_COLOR) Property Get FileForeColor() As OLE_COLOR Property Let FileForeColor(ByVal v As OLE_COLOR) Property Get FileList(Index As Long) As String Property Get FileListCount() As Long Property Get FileListIndex() As Long Property Get FilePattern() As String Property Let FilePattern(ByVal v As String) Property Get FilePatternDelBtnColor() As OLE_COLOR Property Let FilePatternDelBtnColor(ByVal v As OLE_COLOR) Property Get FilePatternListStr() As String Property Let FilePatternListStr(ByVal v As String) Property Get FolderBackColor() As OLE_COLOR Property Let FolderBackColor(ByVal v As OLE_COLOR) Property Get FolderForeColor() As OLE_COLOR Property Let FolderForeColor(ByVal v As OLE_COLOR) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get Hidden() As Boolean Property Let Hidden(ByVal v As Boolean) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get LabelBackColor() As OLE_COLOR Property Let LabelBackColor(ByVal v As OLE_COLOR) Property Get LabelDataType() As EnumHuluhuluLabelDataType Property Let LabelDataType(ByVal v As EnumHuluhuluLabelDataType) Property Get LabelForeColor() As OLE_COLOR Property Let LabelForeColor(ByVal v As OLE_COLOR) Property Get Normal() As Boolean Property Let Normal(ByVal v As Boolean) Property Get OldDrivesPath() As String Property Let OldDrivesPath(ByVal v As String) Property Get OLEDragEnabledFile() As Boolean Property Let OLEDragEnabledFile(ByVal v As Boolean) Property Get OLEDropEnabledFile() As Boolean Property Let OLEDropEnabledFile(ByVal v As Boolean) Property Get PartsCaption(ByVal rPartsID As EnumHuluhuluPartsID) As String Property Let PartsCaption(ByVal rPartsID As EnumHuluhuluPartsID, ByVal v As String) Property Get PartsEnabled(ByVal rPartsID As EnumHuluhuluPartsID) As Boolean Property Let PartsEnabled(ByVal rPartsID As EnumHuluhuluPartsID, ByVal v As Boolean) Property Get PartsSizeData(ByVal rPartsID As EnumHuluhuluPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0) As Boolean Property Let PartsSizeData(ByVal rPartsID As EnumHuluhuluPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0, v As Boolean) Property Get PartsVisible(ByVal rPartsID As EnumHuluhuluPartsID) As Boolean Property Let PartsVisible(ByVal rPartsID As EnumHuluhuluPartsID, ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get ReAddOnFileDBLClick() As Boolean Property Let ReAddOnFileDBLClick(ByVal v As Boolean) Property Get ReFileBtnCaption() As String Property Let ReFileBtnCaption(ByVal v As String) Property Get ReFileBtnUse() As Boolean Property Let ReFileBtnUse(ByVal v As Boolean) Property Get ReFileFontColorData() As String Property Let ReFileFontColorData(ByVal v As String) Property Get ReFileItemsMax() As Long Property Let ReFileItemsMax(ByVal v As Long) Property Get ReFileListDataStr() As String Property Let ReFileListDataStr(ByVal v As String) Property Get ReFileWndLvwColSizeTwips() As String Property Let ReFileWndLvwColSizeTwips(ByVal v As String) Property Get ReFolderBtnCaption() As String Property Let ReFolderBtnCaption(ByVal v As String) Property Get ReFolderBtnUse() As Boolean Property Let ReFolderBtnUse(ByVal v As Boolean) Property Get ReFolderFontColorData() As String Property Let ReFolderFontColorData(ByVal v As String) Property Get ReFolderItemsMax() As Long Property Let ReFolderItemsMax(ByVal v As Long) Property Get ReFolderListDataStr() As String Property Let ReFolderListDataStr(ByVal v As String) Property Get ReFolderWndLvwColSizeTwips() As String Property Let ReFolderWndLvwColSizeTwips(ByVal v As String) Property Get SizeAutoZoom() As Boolean Property Let SizeAutoZoom(ByVal v As Boolean) Property Get SizeDatas() As String Property Let SizeDatas(ByVal v As String) Property Get SizeZoomType() As EnumHuluhuluSizeZoomType Property Let SizeZoomType(ByVal v As EnumHuluhuluSizeZoomType) Property Get System() As Boolean Property Let System(ByVal v As Boolean) Property Get TipHelpUse() As Boolean Property Let TipHelpUse(ByVal v As Boolean) Property Get Visibles() As String Property Let Visibles(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Iroiro ] Time = 2022/01/27 10:09:31 ************************************************************************* Event ColorCellDblClick(ByVal rCurrentColor As Long) Event ColorInPutBtnClick(wColor As Long) Event ColorOutPutBtnClick(ByVal rCurrentColor As Long) Event CurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Event FirstShow() Event MenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, ByVal rReadCurrentColor As Long, wWriteCurrentColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event PanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Event PanelSizeChange() Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event UserColorPalletChange(ByVal rPallet As String) Event UserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Function ColorDataSYSTEM(rOp As Long, rSysColorStr As String, wStrAry() As String, Optional wStrAryLBound As Long, Optional wStrAryUBound As Long) As Long Function ColorStrCPP(rColorValOrIndex As Long) As String Function ColorStrExtra(rOpStr As String, Optional rColorValOrIndex As Long = &HFFFFFFFF) As String Function ColorStrHEX(rColorValOrIndex As Long) As String Function ColorStrHTML(rColorValOrIndex As Long) As String Function ColorStrLONG(rColorValOrIndex As Long) As String Function ColorStrRGB(rColorValOrIndex As Long, Optional r10 As Boolean = True, Optional rForeStr As String = "RGB(", Optional rChs As String = ",", Optional rBackStr As String = ")") As String Function ColorValueLONG(rColorValOrIndex As Long) As Long Function ColorValueRGB(rColorValOrIndex As Long, wRed As Long, wGreen As Long, wBlue As Long) As Boolean Function DlgShowHelp() Function DlgShowMenuVisibleSet() Function DlgShowUserPalletEdit() Function FormControlReSizeSet(op As Long, ObjForm As Object, ObjControl As Object, Optional rMinControlWD As Single = 1000, Optional rMinControlHT As Single = 1000, Optional rRightSpace As Single = 0, Optional rBottomSpace As Single = 0) Function HalfColorByEnabled(rEnabled As Boolean, rColorValOrIndex As Long) As Long Function PanelSizeByPixel(rSizeMode As Long, rwWidth As Long, rwHeight As Long, wAddX As Long, wAddY As Long, Optional wDX As Long, Optional wDY As Long, Optional wType As Long, Optional w01 As Long, Optional w02 As Long, Optional wSampleWDHT As Long) As Boolean Function PopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function SetCurrentColor(Optional rColorVal As Long = -1, Optional rColorStr As String = "", Optional X As Single = -1, Optional Y As Single = -1) Function UserColorPalletAddItems(rColorsStr As String) Function UserColorPalletDelDoubleItems() Function UserColorPalletDelItem(rIndex As Long) Function UserColorPalletDelSpace() Function UserColorPalletFindColor(rColorVal As Long) As Long Function UserColorPalletGetColor(rGetIndex As Long) As Long Function UserColorPalletReset() Function UserColorPalletSetColor(rSetIndex As Long, rColorVal As Long, rDoShift As Boolean) Property Get BaseCurColor() As OLE_COLOR Property Let BaseCurColor(ByVal v As OLE_COLOR) Property Get BorderByFocus() As EnumIroBorderByFocus Property Let BorderByFocus(ByVal v As EnumIroBorderByFocus) Property Get BorderColorFocusGot() As OLE_COLOR Property Let BorderColorFocusGot(ByVal v As OLE_COLOR) Property Get BorderColorFocusLost() As OLE_COLOR Property Let BorderColorFocusLost(ByVal v As OLE_COLOR) Property Get BorderType() As EnumIroBorder Property Let BorderType(ByVal v As EnumIroBorder) Property Get BorderWidth() As EnumIroBorderWidth Property Let BorderWidth(ByVal v As EnumIroBorderWidth) Property Get ColorDigit() As EnumIroColorDigit Property Let ColorDigit(ByVal v As EnumIroColorDigit) Property Get CurrentColor() As OLE_COLOR Property Let CurrentColor(ByVal v As OLE_COLOR) Property Get CurSysColorStr(ByVal rOpStr As String) As String Property Let CurSysColorStr(ByVal rOpStr As String, ByVal v As String) Property Get DataFontSize() As Single Property Let DataFontSize(ByVal v As Single) Property Get DlgShowEnabled() As Boolean Property Let DlgShowEnabled(ByVal v As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get FineCurColor() As OLE_COLOR Property Let FineCurColor(ByVal v As OLE_COLOR) Property Get Focus() As Boolean Property Get FrameWidth() As EnumIroFrameWidth Property Let FrameWidth(ByVal v As EnumIroFrameWidth) Property Get GradationMode() As EnumIroGradation Property Let GradationMode(ByVal v As EnumIroGradation) Property Get GradValue() As Long Property Let GradValue(ByVal v As Long) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get InPutBtnColor() As OLE_COLOR Property Let InPutBtnColor(ByVal v As OLE_COLOR) Property Get InPutBtnEnabled() As Boolean Property Let InPutBtnEnabled(ByVal v As Boolean) Property Get OLEDropEnabled() As Boolean Property Let OLEDropEnabled(ByVal v As Boolean) Property Get OutPutBtnColor() As OLE_COLOR Property Let OutPutBtnColor(ByVal v As OLE_COLOR) Property Get OutPutBtnEnabled() As Boolean Property Let OutPutBtnEnabled(ByVal v As Boolean) Property Get PanelBackColor() As OLE_COLOR Property Let PanelBackColor(ByVal v As OLE_COLOR) Property Get PanelMode() As EnumIroPanelMode Property Let PanelMode(ByVal v As EnumIroPanelMode) Property Get PartCurColor() As OLE_COLOR Property Let PartCurColor(ByVal v As OLE_COLOR) Property Get PopMenuSetDlgUse() As Boolean Property Let PopMenuSetDlgUse(ByVal v As Boolean) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PopMenuVisible(ByVal Index As EnumIroMenu) As Boolean Property Let PopMenuVisible(ByVal Index As EnumIroMenu, ByVal v As Boolean) Property Get PopMenuVisibleAll() As String Property Let PopMenuVisibleAll(ByVal v As String) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get SampleDataShow() As Boolean Property Let SampleDataShow(ByVal v As Boolean) Property Get SamplePost() As EnumIroSamplePost Property Let SamplePost(ByVal v As EnumIroSamplePost) Property Get SampleShow() As Boolean Property Let SampleShow(ByVal v As Boolean) Property Get SampleSize() As EnumIroSampleSize Property Let SampleSize(ByVal v As EnumIroSampleSize) Property Get SizeMode() As EnumIroSizeMode Property Let SizeMode(ByVal v As EnumIroSizeMode) Property Get SpuitBtnColor() As OLE_COLOR Property Let SpuitBtnColor(ByVal v As OLE_COLOR) Property Get SpuitBtnEnabled() As Boolean Property Let SpuitBtnEnabled(ByVal v As Boolean) Property Get SpuitMagnification() As EnumIroSpuitMagni Property Let SpuitMagnification(ByVal v As EnumIroSpuitMagni) Property Get UserColorPallet() As String Property Let UserColorPallet(ByVal v As String) Property Get UserCurSelIndex() As Long Property Let UserCurSelIndex(ByVal v As Long) Property Get WebCurColor() As OLE_COLOR Property Let WebCurColor(ByVal v As OLE_COLOR) Sub ShowAboutBox() ************************************************************************* [ IroMozi ] Time = 2022/01/27 10:09:31 ************************************************************************* Event ComFirstShow() Event ComModeChange(ByVal rComModeIroiro As Boolean) Event ComQueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event ComResize() Event IroColorCellDblClick(ByVal rCurrentColor As Long) Event IroColorInPutBtnClick(wColor As Long) Event IroColorOutPutBtnClick(ByVal rCurrentColor As Long) Event IroCurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Event IroMenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, ByVal rReadCurrentColor As Long, wWriteCurrentColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event IroOleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event IroOleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event IroPanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Event IroPanelSizeChange() Event IroUserColorPalletChange(ByVal rPallet As String) Event IroUserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Event MoziAnyPropertyChanged(ByVal rPropertyName As String) Event MoziCurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event MoziCurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event MoziFontListChange(ByVal rNewFontDataStrsAll As String) Event MoziMenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, rReadCurListFont As stdole.StdFont, rReadCurListFontColor As Long, wWriteAddFont As stdole.StdFont, wWriteAddFontColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event MoziOleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event MoziOleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event MoziPanelSlzeChange() Function IroColorDataSYSTEM(rOp As Long, rSysColorStr As String, wStrAry() As String, Optional wStrAryLBound As Long, Optional wStrAryUBound As Long) As Long Function IroColorStrCPP(rColorValOrIndex As Long) As String Function IroColorStrExtra(rOpStr As String, Optional rColorValOrIndex As Long = &HFFFFFFFF) As String Function IroColorStrHEX(rColorValOrIndex As Long) As String Function IroColorStrHTML(rColorValOrIndex As Long) As String Function IroColorStrLONG(rColorValOrIndex As Long) As String Function IroColorStrRGB(rColorValOrIndex As Long, Optional r10 As Boolean = True, Optional rForeStr As String = "RGB(", Optional rChs As String = ",", Optional rBackStr As String = ")") As String Function IroColorValueLONG(rColorValOrIndex As Long) As Long Function IroColorValueRGB(rColorValOrIndex As Long, wRed As Long, wGreen As Long, wBlue As Long) As Boolean Function IroDlgShowHelp() Function IroDlgShowMenuVisibleSet() Function IroDlgShowUserPalletEdit() Function IroFormControlReSizeSet(op As Long, ObjForm As Object, ObjControl As Object, Optional rMinControlWD As Single = 1000, Optional rMinControlHT As Single = 1000, Optional rRightSpace As Single = 0, Optional rBottomSpace As Single = 0) Function IroHalfColorByEnabled(rEnabled As Boolean, rColorValOrIndex As Long) As Long Function IroPanelSizeByPixel(rSizeMode As Long, rwWidth As Long, rwHeight As Long, wAddX As Long, wAddY As Long, Optional wDX As Long, Optional wDY As Long, Optional wType As Long, Optional w01 As Long, Optional w02 As Long, Optional wSampleWDHT As Long) As Boolean Function IroPopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function IroSetCurrentColor(Optional rColorVal As Long = -1, Optional rColorStr As String = "", Optional X As Single = -1, Optional Y As Single = -1) Function IroUserColorPalletAddItems(rColorsStr As String) Function IroUserColorPalletDelDoubleItems() Function IroUserColorPalletDelItem(rIndex As Long) Function IroUserColorPalletDelSpace() Function IroUserColorPalletFindColor(rColorVal As Long) As Long Function IroUserColorPalletGetColor(rGetIndex As Long) As Long Function IroUserColorPalletReset() Function IroUserColorPalletSetColor(rSetIndex As Long, rColorVal As Long, rDoShift As Boolean) Function MoziAddItemByFontObj(rFontObj As StdFont, Optional rFontColor As Long = vbBlack, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function MoziAddItemByFontProperty(Optional rFontName As String = "", Optional rFontSize As Single = 9, Optional rFontBold As Boolean = False, Optional rFontItalic As Boolean = False, Optional rFontUnderline As Boolean = False, Optional rFontStrikethrough As Boolean = False, Optional rFontColor As Long = 0, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function MoziCurListFontData(wFontObj As StdFont, Optional wFontColor As Long, Optional wFontName As String, Optional wFontSize As Single, Optional wFontBold As Boolean, Optional wFontItalic As Boolean, Optional wFontUnderline As Boolean, Optional wFontStrikethrough As Boolean) As Boolean Function MoziDblClickEventDo() As Boolean Function MoziDlgOptionShow() Function MoziFontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Function MoziFontListUpDown(op As Long, Optional wEnSet As Boolean, Optional wEnDel As Boolean, Optional wEnUp As Boolean, Optional wEnDown As Boolean) As Boolean Function MoziFontRandomMake(wFont As StdFont, wColor As Long, Optional rMaxSize As Single = 64) Function MoziHitListIndex(Optional X As Single = -100000, Optional Y As Single = -100000) As Long Function MoziPopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function MoziReMoveItem(Optional rRemoveIndex As Long = 0, Optional rRedraw As Boolean = True, Optional rShowMsgBox As Boolean = False) As Long Property Get ComBorderType() As Boolean Property Let ComBorderType(ByVal v As Boolean) Property Get ComChgBtnPostLeftTop() As EnumIroMoziBtnPost Property Let ComChgBtnPostLeftTop(ByVal v As EnumIroMoziBtnPost) Property Get ComChgBtnSizeTwips() As Long Property Let ComChgBtnSizeTwips(ByVal v As Long) Property Get ComChgBtnUse() As Boolean Property Let ComChgBtnUse(ByVal v As Boolean) Property Get ComDlgShowEnabled() As Boolean Property Let ComDlgShowEnabled(ByVal v As Boolean) Property Get ComEnabled() As Boolean Property Let ComEnabled(ByVal v As Boolean) Property Get ComIniDataUse() As Boolean Property Let ComIniDataUse(ByVal v As Boolean) Property Get ComModeIroiro() As Boolean Property Let ComModeIroiro(ByVal v As Boolean) Property Get ComOLEDropEnabled() As Boolean Property Let ComOLEDropEnabled(ByVal v As Boolean) Property Get ComPopMenuUse() As Boolean Property Let ComPopMenuUse(ByVal v As Boolean) Property Get IroBaseCurColor() As OLE_COLOR Property Let IroBaseCurColor(ByVal v As OLE_COLOR) Property Get IroBorderByFocus() As EnumIroBorderByFocus Property Let IroBorderByFocus(ByVal v As EnumIroBorderByFocus) Property Get IroBorderWidth() As EnumIroBorderWidth Property Let IroBorderWidth(ByVal v As EnumIroBorderWidth) Property Get IroColorDigit() As EnumIroColorDigit Property Let IroColorDigit(ByVal v As EnumIroColorDigit) Property Get IroCurrentColor() As OLE_COLOR Property Let IroCurrentColor(ByVal v As OLE_COLOR) Property Get IroCurSysColorStr(ByVal rOpStr As String) As String Property Let IroCurSysColorStr(ByVal rOpStr As String, ByVal v As String) Property Get IroDataFontSize() As Single Property Let IroDataFontSize(ByVal v As Single) Property Get IroFineCurColor() As OLE_COLOR Property Let IroFineCurColor(ByVal v As OLE_COLOR) Property Get IroFocus() As Boolean Property Get IroFrameWidth() As EnumIroFrameWidth Property Let IroFrameWidth(ByVal v As EnumIroFrameWidth) Property Get IroGradationMode() As EnumIroGradation Property Let IroGradationMode(ByVal v As EnumIroGradation) Property Get IroGradValue() As Long Property Let IroGradValue(ByVal v As Long) Property Get IroInPutBtnColor() As OLE_COLOR Property Let IroInPutBtnColor(ByVal v As OLE_COLOR) Property Get IroInPutBtnEnabled() As Boolean Property Let IroInPutBtnEnabled(ByVal v As Boolean) Property Get IroOutPutBtnColor() As OLE_COLOR Property Let IroOutPutBtnColor(ByVal v As OLE_COLOR) Property Get IroOutPutBtnEnabled() As Boolean Property Let IroOutPutBtnEnabled(ByVal v As Boolean) Property Get IroPanelBackColor() As OLE_COLOR Property Let IroPanelBackColor(ByVal v As OLE_COLOR) Property Get IroPanelMode() As EnumIroPanelMode Property Let IroPanelMode(ByVal v As EnumIroPanelMode) Property Get IroPartCurColor() As OLE_COLOR Property Let IroPartCurColor(ByVal v As OLE_COLOR) Property Get IroPopMenuSetDlgUse() As Boolean Property Let IroPopMenuSetDlgUse(ByVal v As Boolean) Property Get IroPopMenuVisible(ByVal Index As EnumIroMenu) As Boolean Property Let IroPopMenuVisible(ByVal Index As EnumIroMenu, ByVal v As Boolean) Property Get IroPopMenuVisibleAll() As String Property Let IroPopMenuVisibleAll(ByVal v As String) Property Get IroPropertysDataStr() As String Property Let IroPropertysDataStr(ByVal v As String) Property Get IroSampleDataShow() As Boolean Property Let IroSampleDataShow(ByVal v As Boolean) Property Get IroSamplePost() As EnumIroSamplePost Property Let IroSamplePost(ByVal v As EnumIroSamplePost) Property Get IroSampleShow() As Boolean Property Let IroSampleShow(ByVal v As Boolean) Property Get IroSampleSize() As EnumIroSampleSize Property Let IroSampleSize(ByVal v As EnumIroSampleSize) Property Get IroSizeMode() As EnumIroSizeMode Property Let IroSizeMode(ByVal v As EnumIroSizeMode) Property Get IroSpuitBtnColor() As OLE_COLOR Property Let IroSpuitBtnColor(ByVal v As OLE_COLOR) Property Get IroSpuitBtnEnabled() As Boolean Property Let IroSpuitBtnEnabled(ByVal v As Boolean) Property Get IroSpuitMagnification() As EnumIroSpuitMagni Property Let IroSpuitMagnification(ByVal v As EnumIroSpuitMagni) Property Get IroUserColorPallet() As String Property Let IroUserColorPallet(ByVal v As String) Property Get IroUserCurSelIndex() As Long Property Let IroUserCurSelIndex(ByVal v As Long) Property Get IroWebCurColor() As OLE_COLOR Property Let IroWebCurColor(ByVal v As OLE_COLOR) Property Get MoziBackColor() As OLE_COLOR Property Let MoziBackColor(ByVal v As OLE_COLOR) Property Get MoziColumnWidth() As Long Property Let MoziColumnWidth(ByVal v As Long) Property Get MoziColumnWidthDEFMax() As Long Property Get MoziColumnWidthDEFMin() As Long Property Get MoziCurListIndex() As Long Property Let MoziCurListIndex(ByVal v As Long) Property Get MoziCurrentListFont(Optional wFontColor As Long, Optional wCurListIndex As Long) As Font Property Get MoziFontDataLetter(ListIndex As Long) As String Property Get MoziFontDataStrsAll() As String Property Let MoziFontDataStrsAll(ByVal v As String) Property Get MoziFontDataTipUse() As Boolean Property Let MoziFontDataTipUse(ByVal v As Boolean) Property Get MoziFontSizeMaxDEF() As Single Property Get MoziFontSizeMinDEF() As Single Property Get MoziListCount() As Long Property Get MoziListCountIsFull() As Boolean Property Get MoziListCountMaxDEF() As Long Property Get MoziOLEDragEnabled() As Boolean Property Let MoziOLEDragEnabled(ByVal v As Boolean) Property Get MoziPropertysDataStr() As String Property Let MoziPropertysDataStr(ByVal v As String) Property Get MoziSampleLetter() As String Property Let MoziSampleLetter(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ MotoIroMozi ] Time = 2022/01/27 10:09:31 ************************************************************************* Event ComColorInPutModeChange(ByVal rForeColorInPutMode As Boolean) Event ComCurFontChange(ByVal rCurFont As StdFont, ByVal rChgProperty As String, ByVal rFontColor As Long) Event ComFirstShow() Event ComModeChange(ByVal rComModeIroiro As Boolean) Event ComQueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event ComResize() Event ComSampleColorChange(ByVal rOpCodeBack0Fore1 As Long, ByVal rColor As Long) Event IroColorCellDblClick(ByVal rCurrentColor As Long) Event IroCurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Event IroMenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, ByVal rReadCurrentColor As Long, wWriteCurrentColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event IroOleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event IroOleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event IroPanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Event IroUserColorPalletChange(ByVal rPallet As String) Event IroUserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Event MotoCurFontNameChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Event MotoCurFontSizeChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Event MotoOleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event MotoOleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event MoziAnyPropertyChanged(ByVal rPropertyName As String) Event MoziCurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event MoziCurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event MoziFontListChange(ByVal rNewFontDataStrsAll As String) Event MoziMenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, rReadCurListFont As stdole.StdFont, rReadCurListFontColor As Long, wWriteAddFont As stdole.StdFont, wWriteAddFontColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event MoziOleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event MoziOleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Function IroColorDataSYSTEM(rOp As Long, rSysColorStr As String, wStrAry() As String, Optional wStrAryLBound As Long, Optional wStrAryUBound As Long) As Long Function IroColorStrCPP(rColorValOrIndex As Long) As String Function IroColorStrExtra(rOpStr As String, Optional rColorValOrIndex As Long = &HFFFFFFFF) As String Function IroColorStrHEX(rColorValOrIndex As Long) As String Function IroColorStrHTML(rColorValOrIndex As Long) As String Function IroColorStrLONG(rColorValOrIndex As Long) As String Function IroColorStrRGB(rColorValOrIndex As Long, Optional r10 As Boolean = True, Optional rForeStr As String = "RGB(", Optional rChs As String = ",", Optional rBackStr As String = ")") As String Function IroColorValueLONG(rColorValOrIndex As Long) As Long Function IroColorValueRGB(rColorValOrIndex As Long, wRed As Long, wGreen As Long, wBlue As Long) As Boolean Function IroDlgShowHelp() Function IroDlgShowMenuVisibleSet() Function IroDlgShowUserPalletEdit() Function IroFormControlReSizeSet(op As Long, ObjForm As Object, ObjControl As Object, Optional rMinControlWD As Single = 1000, Optional rMinControlHT As Single = 1000, Optional rRightSpace As Single = 0, Optional rBottomSpace As Single = 0) Function IroHalfColorByEnabled(rEnabled As Boolean, rColorValOrIndex As Long) As Long Function IroPanelSizeByPixel(rSizeMode As Long, rwWidth As Long, rwHeight As Long, wAddX As Long, wAddY As Long, Optional wDX As Long, Optional wDY As Long, Optional wType As Long, Optional w01 As Long, Optional w02 As Long, Optional wSampleWDHT As Long) As Boolean Function IroPopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function IroSetCurrentColor(Optional rColorVal As Long = -1, Optional rColorStr As String = "", Optional X As Single = -1, Optional Y As Single = -1) Function IroUserColorPalletAddItems(rColorsStr As String) Function IroUserColorPalletDelDoubleItems() Function IroUserColorPalletDelItem(rIndex As Long) Function IroUserColorPalletDelSpace() Function IroUserColorPalletFindColor(rColorVal As Long) As Long Function IroUserColorPalletGetColor(rGetIndex As Long) As Long Function IroUserColorPalletReset() Function IroUserColorPalletSetColor(rSetIndex As Long, rColorVal As Long, rDoShift As Boolean) Function MotoFontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Function MoziAddItemByFontObj(rFontObj As StdFont, Optional rFontColor As Long = vbBlack, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function MoziAddItemByFontProperty(Optional rFontName As String = "", Optional rFontSize As Single = 9, Optional rFontBold As Boolean = False, Optional rFontItalic As Boolean = False, Optional rFontUnderline As Boolean = False, Optional rFontStrikethrough As Boolean = False, Optional rFontColor As Long = 0, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function MoziCurListFontData(wFontObj As StdFont, Optional wFontColor As Long, Optional wFontName As String, Optional wFontSize As Single, Optional wFontBold As Boolean, Optional wFontItalic As Boolean, Optional wFontUnderline As Boolean, Optional wFontStrikethrough As Boolean) As Boolean Function MoziDblClickEventDo() As Boolean Function MoziDlgOptionShow() Function MoziFontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Function MoziFontListUpDown(op As Long, Optional wEnSet As Boolean, Optional wEnDel As Boolean, Optional wEnUp As Boolean, Optional wEnDown As Boolean) As Boolean Function MoziFontRandomMake(wFont As StdFont, wColor As Long, Optional rMaxSize As Single = 64) Function MoziHitListIndex(Optional X As Single = -100000, Optional Y As Single = -100000) As Long Function MoziPopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function MoziReMoveItem(Optional rRemoveIndex As Long = 0, Optional rRedraw As Boolean = True, Optional rShowMsgBox As Boolean = False) As Long Property Get ComBackStyle() As EnumMozimotoBackStyle Property Let ComBackStyle(ByVal v As EnumMozimotoBackStyle) Property Get ComBorderColor() As OLE_COLOR Property Let ComBorderColor(ByVal v As OLE_COLOR) Property Get ComBorderType() As EnumMozimotoBorder Property Let ComBorderType(ByVal v As EnumMozimotoBorder) Property Get ComBorderWidth() As EnumMozimotoBorderWidth Property Let ComBorderWidth(ByVal v As EnumMozimotoBorderWidth) Property Get ComCaptions() As String Property Let ComCaptions(ByVal v As String) Property Get ComChgBtnUse() As Boolean Property Let ComChgBtnUse(ByVal v As Boolean) Property Get ComColorInpModeBackColorEnabled() As Boolean Property Let ComColorInpModeBackColorEnabled(ByVal v As Boolean) Property Get ComColorInpModeForeColor() As Boolean Property Let ComColorInpModeForeColor(ByVal v As Boolean) Property Get ComCurrentFont(Optional FontColor As Long) As Font Property Set ComCurrentFont(Optional FontColor As Long = -1, ByVal v As Font) Property Get ComDlgShowEnabled() As Boolean Property Let ComDlgShowEnabled(ByVal v As Boolean) Property Get ComEnabled() As Boolean Property Let ComEnabled(ByVal v As Boolean) Property Get ComEnableds() As String Property Let ComEnableds(ByVal v As String) Property Get ComFont() As Font Property Set ComFont(ByVal v As Font) Property Get ComForeColor() As OLE_COLOR Property Let ComForeColor(ByVal v As OLE_COLOR) Property Get ComIniDataUse() As Boolean Property Let ComIniDataUse(ByVal v As Boolean) Property Get ComModeIroiro() As Boolean Property Let ComModeIroiro(ByVal v As Boolean) Property Get ComOLEDropEnabled() As Boolean Property Let ComOLEDropEnabled(ByVal v As Boolean) Property Get ComPartsCaption(ByVal rPartsID As EnumMozimotoPartsID) As String Property Let ComPartsCaption(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As String) Property Get ComPartsEnabled(ByVal rPartsID As EnumMozimotoPartsID) As Boolean Property Let ComPartsEnabled(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As Boolean) Property Get ComPartsSizeData(ByVal rPartsID As EnumMozimotoPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0) As Boolean Property Let ComPartsSizeData(ByVal rPartsID As EnumMozimotoPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0, v As Boolean) Property Get ComPartsVisible(ByVal rPartsID As EnumMozimotoPartsID) As Boolean Property Let ComPartsVisible(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As Boolean) Property Get ComPopMenuUse() As Boolean Property Let ComPopMenuUse(ByVal v As Boolean) Property Get ComSampleBackColor() As OLE_COLOR Property Let ComSampleBackColor(ByVal v As OLE_COLOR) Property Get ComSampleForeColor() As OLE_COLOR Property Let ComSampleForeColor(ByVal v As OLE_COLOR) Property Get ComSampleLetter() As String Property Let ComSampleLetter(ByVal v As String) Property Get ComSampleLetterChkData(ByVal v As String) As String Property Get ComSizeAutoZoom() As Boolean Property Let ComSizeAutoZoom(ByVal v As Boolean) Property Get ComSizeDatas() As String Property Let ComSizeDatas(ByVal v As String) Property Get ComSizeZoomType() As EnumMozimotoSizeZoomType Property Let ComSizeZoomType(ByVal v As EnumMozimotoSizeZoomType) Property Get ComTipHelpUse() As Boolean Property Let ComTipHelpUse(ByVal v As Boolean) Property Get ComVisibles() As String Property Let ComVisibles(ByVal v As String) Property Get IroBaseCurColor() As OLE_COLOR Property Let IroBaseCurColor(ByVal v As OLE_COLOR) Property Get IroBorderByFocus() As EnumIroBorderByFocus Property Let IroBorderByFocus(ByVal v As EnumIroBorderByFocus) Property Get IroBorderWidth() As EnumIroBorderWidth Property Let IroBorderWidth(ByVal v As EnumIroBorderWidth) Property Get IroColorDigit() As EnumIroColorDigit Property Let IroColorDigit(ByVal v As EnumIroColorDigit) Property Get IroCurrentColor() As OLE_COLOR Property Let IroCurrentColor(ByVal v As OLE_COLOR) Property Get IroCurSysColorStr(ByVal rOpStr As String) As String Property Let IroCurSysColorStr(ByVal rOpStr As String, ByVal v As String) Property Get IroDataFontSize() As Single Property Let IroDataFontSize(ByVal v As Single) Property Get IroFineCurColor() As OLE_COLOR Property Let IroFineCurColor(ByVal v As OLE_COLOR) Property Get IroFocus() As Boolean Property Get IroFrameWidth() As EnumIroFrameWidth Property Let IroFrameWidth(ByVal v As EnumIroFrameWidth) Property Get IroGradationMode() As EnumIroGradation Property Let IroGradationMode(ByVal v As EnumIroGradation) Property Get IroGradValue() As Long Property Let IroGradValue(ByVal v As Long) Property Get IroPanelBackColor() As OLE_COLOR Property Let IroPanelBackColor(ByVal v As OLE_COLOR) Property Get IroPanelMode() As EnumIroPanelMode Property Let IroPanelMode(ByVal v As EnumIroPanelMode) Property Get IroPartCurColor() As OLE_COLOR Property Let IroPartCurColor(ByVal v As OLE_COLOR) Property Get IroPopMenuSetDlgUse() As Boolean Property Let IroPopMenuSetDlgUse(ByVal v As Boolean) Property Get IroPopMenuVisible(ByVal Index As EnumIroMenu) As Boolean Property Let IroPopMenuVisible(ByVal Index As EnumIroMenu, ByVal v As Boolean) Property Get IroPopMenuVisibleAll() As String Property Let IroPopMenuVisibleAll(ByVal v As String) Property Get IroPropertysDataStr() As String Property Let IroPropertysDataStr(ByVal v As String) Property Get IroSampleDataShow() As Boolean Property Let IroSampleDataShow(ByVal v As Boolean) Property Get IroSamplePost() As EnumIroSamplePost Property Let IroSamplePost(ByVal v As EnumIroSamplePost) Property Get IroSampleShow() As Boolean Property Let IroSampleShow(ByVal v As Boolean) Property Get IroSampleSize() As EnumIroSampleSize Property Let IroSampleSize(ByVal v As EnumIroSampleSize) Property Get IroSizeMode() As EnumIroSizeMode Property Let IroSizeMode(ByVal v As EnumIroSizeMode) Property Get IroSpuitBtnColor() As OLE_COLOR Property Let IroSpuitBtnColor(ByVal v As OLE_COLOR) Property Get IroSpuitBtnEnabled() As Boolean Property Let IroSpuitBtnEnabled(ByVal v As Boolean) Property Get IroSpuitMagnification() As EnumIroSpuitMagni Property Let IroSpuitMagnification(ByVal v As EnumIroSpuitMagni) Property Get IroUserColorPallet() As String Property Let IroUserColorPallet(ByVal v As String) Property Get IroUserCurSelIndex() As Long Property Let IroUserCurSelIndex(ByVal v As Long) Property Get IroWebCurColor() As OLE_COLOR Property Let IroWebCurColor(ByVal v As OLE_COLOR) Property Get MotoComboxBackColor() As OLE_COLOR Property Let MotoComboxBackColor(ByVal v As OLE_COLOR) Property Get MotoComboxForeColor() As OLE_COLOR Property Let MotoComboxForeColor(ByVal v As OLE_COLOR) Property Get MotoCurFontBold() As Boolean Property Let MotoCurFontBold(ByVal v As Boolean) Property Get MotoCurFontItalic() As Boolean Property Let MotoCurFontItalic(ByVal v As Boolean) Property Get MotoCurFontName() As String Property Let MotoCurFontName(ByVal v As String) Property Get MotoCurFontSize() As Single Property Let MotoCurFontSize(ByVal v As Single) Property Get MotoCurFontStrikethrough() As Boolean Property Let MotoCurFontStrikethrough(ByVal v As Boolean) Property Get MotoCurFontUnderline() As Boolean Property Let MotoCurFontUnderline(ByVal v As Boolean) Property Get MotoFontMakeSizeMax() As Single Property Let MotoFontMakeSizeMax(ByVal v As Single) Property Get MotoFontSizeMax() As Single Property Let MotoFontSizeMax(ByVal v As Single) Property Get MotoFontSizeMinDEF() As Single Property Get MotoPropertysDataStr() As String Property Let MotoPropertysDataStr(ByVal v As String) Property Get MoziBackColor() As OLE_COLOR Property Let MoziBackColor(ByVal v As OLE_COLOR) Property Get MoziColumnWidth() As Long Property Let MoziColumnWidth(ByVal v As Long) Property Get MoziColumnWidthDEFMax() As Long Property Get MoziColumnWidthDEFMin() As Long Property Get MoziCurListIndex() As Long Property Let MoziCurListIndex(ByVal v As Long) Property Get MoziCurrentListFont(Optional wFontColor As Long, Optional wCurListIndex As Long) As Font Property Get MoziFontDataLetter(ListIndex As Long) As String Property Get MoziFontDataStrsAll() As String Property Let MoziFontDataStrsAll(ByVal v As String) Property Get MoziFontDataTipUse() As Boolean Property Let MoziFontDataTipUse(ByVal v As Boolean) Property Get MoziFontSizeMaxDEF() As Single Property Get MoziFontSizeMinDEF() As Single Property Get MoziListCount() As Long Property Get MoziListCountIsFull() As Boolean Property Get MoziListCountMaxDEF() As Long Property Get MoziOLEDragEnabled() As Boolean Property Let MoziOLEDragEnabled(ByVal v As Boolean) Property Get MoziPropertysDataStr() As String Property Let MoziPropertysDataStr(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Mozimise ] Time = 2022/01/27 10:09:31 ************************************************************************* Event BtnGetClick(wCurListFont As StdFont, wFontColor As Long) Event BtnSetClick(ByVal rCurListFont As StdFont, ByVal rFontColor As Long) Event ComboxFontNameChange(ByVal rFontName As String, ByVal rFontSize As Single) Event ComboxFontSizeChange(ByVal rFontName As String, ByVal rFontSize As Single) Event CurListFontChange(rCurListFont As StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event FirstShow(wFont As StdFont) Event FontListChange(ByVal rNewFontDataStrsAll As String) Event ListCloseClick(ByVal rCurListFont As StdFont, ByVal rFontColor As Long) Event ModeChange(ByVal rModeFontListShow As Boolean) Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Function AddItemByFontObj(rFontObj As StdFont, Optional rFontColor As Long = vbBlack, Optional rAddIndex As Long = 0) As Long Function AddItemByFontProperty(Optional rFontName As String = "", Optional rFontSize As Single = 9, Optional rFontBold As Boolean = False, Optional rFontItalic As Boolean = False, Optional rFontUnderline As Boolean = False, Optional rFontStrikethrough As Boolean = False, Optional rFontColor As Long = vbBlack, Optional rAddIndex As Long = 0) As Long Function CurListFontData(wFontObj As StdFont, Optional wFontColor As Long, Optional wFontName As String, Optional wFontSize As Single, Optional wFontBold As Boolean, Optional wFontItalic As Boolean, Optional wFontUnderline As Boolean, Optional wFontStrikethrough As Boolean) As Boolean Function DlgOptionShow() Function FontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Function FontRandomMake(wFont As StdFont, wColor As Long, Optional rMaxSize As Single = 64) Function PopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function ReMoveItem(Optional rRemoveIndex As Long = 0, Optional rShowMsgBox As Boolean = False) As Long Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BackStyle() As EnumMozimiseBackStyle Property Let BackStyle(ByVal v As EnumMozimiseBackStyle) Property Get BorderType() As Boolean Property Let BorderType(ByVal v As Boolean) Property Get CaptionGetBtn() As String Property Let CaptionGetBtn(ByVal v As String) Property Get CaptionSetBtn() As String Property Let CaptionSetBtn(ByVal v As String) Property Get ComboxBackColor() As OLE_COLOR Property Let ComboxBackColor(ByVal v As OLE_COLOR) Property Get ComboxCurFontName() As String Property Let ComboxCurFontName(ByVal v As String) Property Get ComboxCurFontSize() As Single Property Let ComboxCurFontSize(ByVal v As Single) Property Get ComboxForeColor() As OLE_COLOR Property Let ComboxForeColor(ByVal v As OLE_COLOR) Property Get CurListIndex() As Long Property Let CurListIndex(ByVal v As Long) Property Get CurrentListFont(Optional wFontColor As Long, Optional wCurListIndex As Long) As StdFont Property Get DlgShowEnabled() As Boolean Property Let DlgShowEnabled(ByVal v As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get FocusTipColor() As OLE_COLOR Property Let FocusTipColor(ByVal v As OLE_COLOR) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get FontDataStrsAll() As String Property Let FontDataStrsAll(ByVal v As String) Property Get FontListBackColor() As OLE_COLOR Property Let FontListBackColor(ByVal v As OLE_COLOR) Property Get FontSizeMax() As Single Property Let FontSizeMax(ByVal v As Single) Property Get FontSizeMinDEF() As Single Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get ListCount() As Long Property Get ListCountIsFull() As Boolean Property Get ListCountMax() As Long Property Let ListCountMax(ByVal v As Long) Property Get ModeChgBtnPostLeft() As Boolean Property Let ModeChgBtnPostLeft(ByVal v As Boolean) Property Get ModeFontListShow() As Boolean Property Let ModeFontListShow(ByVal v As Boolean) Property Get OLEDropEnabled() As Boolean Property Let OLEDropEnabled(ByVal v As Boolean) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get SampleLetter() As String Property Let SampleLetter(ByVal v As String) Property Get SizeFontListSample() As Long Property Let SizeFontListSample(ByVal v As Long) Property Get SizeFontNameCombox() As Long Property Let SizeFontNameCombox(ByVal v As Long) Property Get TipHelpUse() As Boolean Property Let TipHelpUse(ByVal v As Boolean) Sub ShowAboutBox() ************************************************************************* [ Mozimoto ] Time = 2022/01/27 10:09:31 ************************************************************************* Event CurFontChange(ByVal rCurFont As StdFont, ByVal rChgProperty As String, ByVal rFontColor As Long) Event CurFontNameChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Event CurFontSizeChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Event FirstShow(wFont As StdFont, wSampleForeColor As Long, wSampleBackColor As Long) Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event OutSideFontReadIn(wFont As StdFont, wFontColor As Long) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event Resize() Event SampleColorChange(ByVal rOpCodeBack0Fore1 As Long, ByVal rColor As Long) Function FontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BackStyle() As EnumMozimotoBackStyle Property Let BackStyle(ByVal v As EnumMozimotoBackStyle) Property Get BorderColor() As OLE_COLOR Property Let BorderColor(ByVal v As OLE_COLOR) Property Get BorderType() As EnumMozimotoBorder Property Let BorderType(ByVal v As EnumMozimotoBorder) Property Get BorderWidth() As EnumMozimotoBorderWidth Property Let BorderWidth(ByVal v As EnumMozimotoBorderWidth) Property Get Captions() As String Property Let Captions(ByVal v As String) Property Get ComboxBackColor() As OLE_COLOR Property Let ComboxBackColor(ByVal v As OLE_COLOR) Property Get ComboxForeColor() As OLE_COLOR Property Let ComboxForeColor(ByVal v As OLE_COLOR) Property Get CurFontBold() As Boolean Property Let CurFontBold(ByVal v As Boolean) Property Get CurFontItalic() As Boolean Property Let CurFontItalic(ByVal v As Boolean) Property Get CurFontName() As String Property Let CurFontName(ByVal v As String) Property Get CurFontSize() As Single Property Let CurFontSize(ByVal v As Single) Property Get CurFontStrikethrough() As Boolean Property Let CurFontStrikethrough(ByVal v As Boolean) Property Get CurFontUnderline() As Boolean Property Let CurFontUnderline(ByVal v As Boolean) Property Get CurrentFont(Optional FontColor As Long) As Font Property Set CurrentFont(Optional FontColor As Long = -1, ByVal v As Font) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get Enableds() As String Property Let Enableds(ByVal v As String) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get FontMakeSizeMax() As Single Property Let FontMakeSizeMax(ByVal v As Single) Property Get FontSizeMax() As Single Property Let FontSizeMax(ByVal v As Single) Property Get FontSizeMinDEF() As Single Property Get ForeColor() As OLE_COLOR Property Let ForeColor(ByVal v As OLE_COLOR) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get OLEDropEnabled() As Boolean Property Let OLEDropEnabled(ByVal v As Boolean) Property Get PartsCaption(ByVal rPartsID As EnumMozimotoPartsID) As String Property Let PartsCaption(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As String) Property Get PartsEnabled(ByVal rPartsID As EnumMozimotoPartsID) As Boolean Property Let PartsEnabled(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As Boolean) Property Get PartsSizeData(ByVal rPartsID As EnumMozimotoPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0) As Boolean Property Let PartsSizeData(ByVal rPartsID As EnumMozimotoPartsID, Optional LeftTwips As Single = 0, Optional TopTwips As Single = 0, Optional WidthTwips As Single = 0, Optional HeightTwips As Single = 0, v As Boolean) Property Get PartsVisible(ByVal rPartsID As EnumMozimotoPartsID) As Boolean Property Let PartsVisible(ByVal rPartsID As EnumMozimotoPartsID, ByVal v As Boolean) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get SampleBackColor() As OLE_COLOR Property Let SampleBackColor(ByVal v As OLE_COLOR) Property Get SampleForeColor() As OLE_COLOR Property Let SampleForeColor(ByVal v As OLE_COLOR) Property Get SampleLetter() As String Property Let SampleLetter(ByVal v As String) Property Get SampleLetterChkData(ByVal v As String) As String Property Get SizeAutoZoom() As Boolean Property Let SizeAutoZoom(ByVal v As Boolean) Property Get SizeDatas() As String Property Let SizeDatas(ByVal v As String) Property Get SizeZoomType() As EnumMozimotoSizeZoomType Property Let SizeZoomType(ByVal v As EnumMozimotoSizeZoomType) Property Get TipHelpUse() As Boolean Property Let TipHelpUse(ByVal v As Boolean) Property Get Visibles() As String Property Let Visibles(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Mozimozi ] Time = 2022/01/27 10:09:31 ************************************************************************* Event AnyPropertyChanged(ByVal rPropertyName As String) Event CurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event CurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Event FirstShow() Event FontListChange(ByVal rNewFontDataStrsAll As String) Event MenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rSelectIndex1to4 As Long, rReadCurListFont As stdole.StdFont, rReadCurListFontColor As Long, wWriteAddFont As stdole.StdFont, wWriteAddFontColor As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OleEventDragOver(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Event PanelSlzeChange() Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Function AddItemByFontObj(rFontObj As StdFont, Optional rFontColor As Long = vbBlack, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function AddItemByFontProperty(Optional rFontName As String = "", Optional rFontSize As Single = 9, Optional rFontBold As Boolean = False, Optional rFontItalic As Boolean = False, Optional rFontUnderline As Boolean = False, Optional rFontStrikethrough As Boolean = False, Optional rFontColor As Long = 0, Optional rAddIndex As Long = 0, Optional rRedraw As Boolean = True) As Long Function CurListFontData(wFontObj As StdFont, Optional wFontColor As Long, Optional wFontName As String, Optional wFontSize As Single, Optional wFontBold As Boolean, Optional wFontItalic As Boolean, Optional wFontUnderline As Boolean, Optional wFontStrikethrough As Boolean) As Boolean Function DblClickEventDo() As Boolean Function DlgOptionShow() Function FontFontEqual(rFont1 As Font, rFont2 As Font, Optional rFontColor1 As Long = -1, Optional rFontColor2 As Long = -1) As Boolean Function FontListUpDown(op As Long, Optional wEnSet As Boolean, Optional wEnDel As Boolean, Optional wEnUp As Boolean, Optional wEnDown As Boolean) As Boolean Function FontRandomMake(wFont As StdFont, wColor As Long, Optional rMaxSize As Single = 64) Function HitListIndex(Optional X As Single = -100000, Optional Y As Single = -100000) As Long Function PopMenuShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function ReMoveItem(Optional rRemoveIndex As Long = 0, Optional rRedraw As Boolean = True, Optional rShowMsgBox As Boolean = False) As Long Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BorderType() As Boolean Property Let BorderType(ByVal v As Boolean) Property Get ColumnWidth() As Long Property Let ColumnWidth(ByVal v As Long) Property Get ColumnWidthDEFMax() As Long Property Get ColumnWidthDEFMin() As Long Property Get CurListIndex() As Long Property Let CurListIndex(ByVal v As Long) Property Get CurrentListFont(Optional wFontColor As Long, Optional wCurListIndex As Long) As Font Property Get DlgShowEnabled() As Boolean Property Let DlgShowEnabled(ByVal v As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get FontDataLetter(ListIndex As Long) As String Property Get FontDataStrsAll() As String Property Let FontDataStrsAll(ByVal v As String) Property Get FontDataTipUse() As Boolean Property Let FontDataTipUse(ByVal v As Boolean) Property Get FontSizeMaxDEF() As Single Property Get FontSizeMinDEF() As Single Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get ListCount() As Long Property Get ListCountIsFull() As Boolean Property Get ListCountMaxDEF() As Long Property Get OLEDragEnabled() As Boolean Property Let OLEDragEnabled(ByVal v As Boolean) Property Get OLEDropEnabled() As Boolean Property Let OLEDropEnabled(ByVal v As Boolean) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get SampleLetter() As String Property Let SampleLetter(ByVal v As String) Sub ShowAboutBox() ************************************************************************* [ Oioi ] Time = 2022/01/27 10:09:31 ************************************************************************* Event CellCaptionChange(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rNewCellCaption As String, ByVal rOldCellCaption As String) Event CellClick(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rCellCaption As String) Event MouseDown(rwMsDragByUser As Boolean, Button As Integer, Shift As Integer, X As Single, Y As Single, rCurUnit As Long, rCurCell As Long, rCurCellCap As String, rDownEventDone As Boolean) Event MouseMove(rwMsDragByUser As Boolean, Button As Integer, Shift As Integer, X As Single, Y As Single, rCurUnit As Long, rCurCell As Long, rCurCellCap As String, rDownEventEnable As Boolean, rOldTipHlpStr As String, rNewTipHlpStr As String) Event MouseUp(rwMsDragByUser As Boolean, Button As Integer, Shift As Integer, X As Single, Y As Single) Event OnFirstShow() Event PageChangeAfter(ByVal rNewShowPage As Long, ByVal rOldShowPage As Long) Event PageChangeBefore(ByVal rNewShowPage As Long, ByVal rOldShowPage As Long) Event Resize() Event RightBtnClick(ByVal X As Single, ByVal Y As Single, ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rCellCaption As String, rDownEventEnable As Boolean) Function CaptionPostOffSet(ByVal rUnitIndex As Long, ByVal rShiftX As Long, ByVal rShiftY As Long) Function CheckSelCellArray(ByVal rUnitIndex As Long, wCellIndexs() As Long, wCellCaptions() As String) As Boolean Function FrameExAddDel(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal FrameWidth As Long, ByVal FrameColor As Long) As Boolean Function IconChange(ByVal rUnitIndexDEST As Long, ByVal rCellIndexDEST As Long, ByVal rUnitIndexSURC As Long, ByVal rCellIndexSURC As Long) As Boolean Function Redraw(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Boolean Function ReDrawFlatBtn() As Boolean Function Refresh() Function TextHeight(str As String) As Single Function TextWidth(str As String) As Single Function UnitCellCountXY(ByVal rUnitIndex As Long, wCellCountX As Long, wCellCountY As Long) As Boolean Function UnitCellSize(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, wleft As Long, wTop As Long, wWidth As Long, wHeight As Long) As Boolean Function UnitMove(ByVal rUnitIndex As Long, Optional ByVal rCellCountX As Long = -1, Optional ByVal rCellCountY As Long = -1, Optional ByVal rLeft As Long = -100000, Optional ByVal rTop As Long = -100000, Optional ByVal rWidth As Long = -1, Optional ByVal rHeight As Long = -1, Optional ByVal rSpaceX As Long = -1, Optional ByVal rSpaceY As Long = -1, Optional ByVal rPichX As Long = -1, Optional ByVal rPichY As Long = -1) As Boolean Function UnitsMove1Line(ByVal rLeft As Long, ByVal rTop As Long, ByVal rHeight As Long, rDatas() As Long) As Boolean Function UnitsOffSet(ByVal rOffsetX As Long, ByVal rOffSetY As Long, rUnitIndexs() As Long) As Boolean Function UnitsTypeChange(rUnitIndexs() As Long, ByVal NewType As String) As Boolean Function UnitWidthSquare(ByVal rUnitIndex As Long, Optional ByVal NewHeight As Long = 0) As Long Function UseParentFont(ByVal rUnitIndex As Long) Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BorderType() As EnumOioiBorderType Property Let BorderType(ByVal v As EnumOioiBorderType) Property Get BorderWidth() As Long Property Let BorderWidth(ByVal v As Long) Property Get CaptionCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As String Property Let CaptionCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rCellCaption As String) Property Get CaptionMargin(ByVal rUnitIndex As Long) As Long Property Let CaptionMargin(ByVal rUnitIndex As Long, ByVal rMargin As Long) Property Get CaptionsUnit(ByVal rUnitIndex As Long, ByVal rCellCapStrLen As Long) As String Property Let CaptionsUnit(ByVal rUnitIndex As Long, ByVal rCellCapStrLen As Long, ByVal rCellCaptionAllStr As String) Property Get CellBottom(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Long Property Get CellCount(ByVal rUnitIndex As Long) As Long Property Get CellIndex(ByVal rUnitIndex As Long, ByVal rCellCaption As String) As Long Property Get CellLeft(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Long Property Get CellRight(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Long Property Get CellTop(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Long Property Get CheckCellCapVal(ByVal rUnitIndex As Long, ByVal rCellCaption As String) As Boolean Property Let CheckCellCapVal(ByVal rUnitIndex As Long, ByVal rCellCaption As String, ByVal rValue As Boolean) Property Get CheckCellVal(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Boolean Property Let CheckCellVal(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rValue As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get EnabledCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Boolean Property Let EnabledCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rCellEnabled As Boolean) Property Get EnabledsUnit(ByVal rUnitIndex As Long) As String Property Let EnabledsUnit(ByVal rUnitIndex As Long, ByVal rCellEnabledAllStr As String) Property Get Font() As Font Property Set Font(ByVal rFont As Font) Property Get ForeColor() As OLE_COLOR Property Let ForeColor(ByVal v As OLE_COLOR) Property Get hDC() As Long Property Get hwnd() As Long Property Get MousePointer() As Integer Property Let MousePointer(ByVal v As Integer) Property Get OptionSelCell(ByVal rUnitIndex As Long) As Long Property Let OptionSelCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) Property Get OptionSelCellCap(ByVal rUnitIndex As Long) As String Property Let OptionSelCellCap(ByVal rUnitIndex As Long, ByVal rCellCaption As String) Property Get PageCount() As Long Property Get PageCurrent() As Long Property Let PageCurrent(ByVal rPageIndex As Long) Property Get Picture() As Picture Property Set Picture(ByVal v As Picture) Property Get ScaleHeight() As Single Property Get ScaleMode() As Long Property Get ScaleWidth() As Single Property Get TipEditBackColor() As OLE_COLOR Property Let TipEditBackColor(ByVal v As OLE_COLOR) Property Get TipEditEnabled(ByVal rUnitIndex As Long) As Boolean Property Let TipEditEnabled(ByVal rUnitIndex As Long, ByVal rEnabled As Boolean) Property Get TipEditForeColor() As OLE_COLOR Property Let TipEditForeColor(ByVal v As OLE_COLOR) Property Get ToolTipStr(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As String Property Let ToolTipStr(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, TipStr As String) Property Get ToolTipUse() As Boolean Property Let ToolTipUse(ByVal v As Boolean) Property Get UnitBackColor(ByVal rUnitIndex As Long) As Long Property Let UnitBackColor(ByVal rUnitIndex As Long, ByVal rColor As Long) Property Get UnitBottom(ByVal rUnitIndex As Long) As Long Property Get UnitColorUseParent(ByVal bid As Long) As Boolean Property Let UnitColorUseParent(ByVal bid As Long, ByVal v As Boolean) Property Get UnitCount() As Long Property Get UnitForeColor(ByVal rUnitIndex As Long) As Long Property Let UnitForeColor(ByVal rUnitIndex As Long, ByVal rColor As Long) Property Get UnitHeight(ByVal rUnitIndex As Long) As Long Property Get UnitLeft(ByVal rUnitIndex As Long) As Long Property Get UnitRight(ByVal rUnitIndex As Long) As Long Property Get UnitTop(ByVal rUnitIndex As Long) As Long Property Get UnitType(ByVal rUnitIndex As Long) As String Property Let UnitType(ByVal rUnitIndex As Long, ByVal NewType As String) Property Get UnitWidth(ByVal rUnitIndex As Long) As Long Property Get VisibleCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long) As Boolean Property Let VisibleCell(ByVal rUnitIndex As Long, ByVal rCellIndex As Long, ByVal rCellVisible As Boolean) Property Get VisiblesUnit(ByVal rUnitIndex As Long) As String Property Let VisiblesUnit(ByVal rUnitIndex As Long, ByVal rCellVisibleAllStr As String) Sub ShowAboutBox() ************************************************************************* [ OLEDD ] Time = 2022/01/27 10:09:31 ************************************************************************* Function ControlFontColorSet(rOpCodeStr As String, wCont As Object, rFont As StdFont, rFontColor As Long, rBackColor As Long) As Boolean Function OLEDragDropDataRead(rOpCodeStr As String, Data As Object, Effect As Long, Optional wUserStr As String, Optional wDragFont As StdFont, Optional wFontColor As Long, Optional wBackColor As Long, Optional wDragColor As Long, Optional wIconFile As String, Optional wIconIndex As Long) As Boolean Function OLEDragOverCheck(rOpCodeStr As String, Data As Object, Effect As Long) As Boolean Function OLEDragStartDataMake(Data As Object, AllowedEffects As Long, Optional rUserStr As String = "", Optional rDragFont As StdFont = Nothing, Optional rFontColor As Long = -1, Optional rBackColor As Long = -1, Optional rDragColor As Long = -1, Optional rIconFile As String, Optional rIconIndex As Long = -1) As Boolean Function OLEDragStrMake(Optional rUserStr As String, Optional rDragFont As StdFont = Nothing, Optional rFontColor As Long = -1, Optional rBackColor As Long = -1, Optional rDragColor As Long = -1, Optional rIconFile As String, Optional rIconIndex As Long = -1) As String Function OLEDropIntoAxtXSetData(rDropUkeActX As Object, rFlagUkeActX As String, rFont As StdFont, rForeColor As Long, rFilePathText As String, Optional X As Single = -1, Optional Y As Single = -1) As Boolean Function OLEDropStr(Data As Object) As String Function OLEDropStrRead(rOpCodeStr As String, rDropStr As String, Optional wUserStr As String, Optional wDragFont As StdFont, Optional wFontColor As Long, Optional wBackColor As Long, Optional wDragColor As Long, Optional wIconFile As String, Optional wIconIndex As Long) As Boolean Function OLEFilesDragDropGet(Data As Object, Effect As Long, rDoSortTrue As Boolean, rFullPathTrue As Boolean, wFolders() As String, wFiles() As String) As Long Function OLEFilesDragOverCheck(Data As Object, Effect As Long) As Boolean Function OLEFilesDragStartSet(Data As Object, AllowedEffects As Long, rFiles() As String) As Boolean Function OLEFontColorDragDropAutoSet(rOpCodeStr As String, Data As Object, Effect As Long, wCont As Object, Optional wUserStr As String) As Boolean Function OLEFontColorDragOverAutoCheck(rOpCodeStr As String, Data As Object, Effect As Long) As Boolean Function OLEFontColorDragStartAutoSet(Data As Object, AllowedEffects As Long, rCont As Object, Optional rUserStr As String = "", Optional rDragColor As Long = -1) As Boolean Sub ShowAboutBox() ************************************************************************* [ Pakapaka ] Time = 2022/01/27 10:09:31 ************************************************************************* Event BtnCharClick(ByVal rChar As String) Event BtnExtraClick(ByVal rCellIndex As Long, ByVal rCellCaption As String) Event FirstShow() Event JishoListClick(ByVal rStr As String) Event JishoModeChange(ByVal rReadTrueEditFalse As Boolean) Event KeyBoxModeChange(ByVal rNewMode As String, ByVal rOldMode As String) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event QueryJishoFolder(ByRef wPakapakaJishoPath As String) Event Resize() Event RightBtnClickInKeyBox() Function JishoReOpenAllFile() Function JishoSaveAllFile() Function JishoTextOpen(rJishoKey As String, hwnd As Long, rErrMsgBoxShow As Boolean) Function JishoTextOpenCurrent(hwnd As Long, rErrMsgBoxShow As Boolean) Function Refresh() Property Get BackColor() As OLE_COLOR Property Let BackColor(ByVal v As OLE_COLOR) Property Get BorderType() As Boolean Property Let BorderType(ByVal v As Boolean) Property Get BtnCharBackColor() As OLE_COLOR Property Let BtnCharBackColor(ByVal v As OLE_COLOR) Property Get BtnCharForeColor() As OLE_COLOR Property Let BtnCharForeColor(ByVal v As OLE_COLOR) Property Get BtnChgDownBackColor() As OLE_COLOR Property Let BtnChgDownBackColor(ByVal v As OLE_COLOR) Property Get BtnChgDownForeColor() As OLE_COLOR Property Let BtnChgDownForeColor(ByVal v As OLE_COLOR) Property Get BtnChgUpBackColor() As OLE_COLOR Property Let BtnChgUpBackColor(ByVal v As OLE_COLOR) Property Get BtnChgUpForeColor() As OLE_COLOR Property Let BtnChgUpForeColor(ByVal v As OLE_COLOR) Property Get BtnExtra1Caption() As String Property Let BtnExtra1Caption(ByVal v As String) Property Get BtnExtra1Enabled() As Boolean Property Let BtnExtra1Enabled(ByVal v As Boolean) Property Get BtnExtra2Caption() As String Property Let BtnExtra2Caption(ByVal v As String) Property Get BtnExtra2Enabled() As Boolean Property Let BtnExtra2Enabled(ByVal v As Boolean) Property Get BtnExtraBackColor() As OLE_COLOR Property Let BtnExtraBackColor(ByVal v As OLE_COLOR) Property Get BtnExtraForeColor() As OLE_COLOR Property Let BtnExtraForeColor(ByVal v As OLE_COLOR) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get FrameWidth() As Long Property Let FrameWidth(ByVal v As Long) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get JishoAutoSave() As Boolean Property Let JishoAutoSave(ByVal v As Boolean) Property Get JishoBackColor() As OLE_COLOR Property Let JishoBackColor(ByVal v As OLE_COLOR) Property Get JishoFolderCurrent() As String Property Get JishoFont() As Font Property Set JishoFont(ByVal v As Font) Property Get JishoForeColor() As OLE_COLOR Property Let JishoForeColor(ByVal v As OLE_COLOR) Property Get JishoModeRead() As Boolean Property Let JishoModeRead(v As Boolean) Property Get JishoOnEditBackColor() As OLE_COLOR Property Let JishoOnEditBackColor(ByVal v As OLE_COLOR) Property Get JishoOnEditForeColor() As OLE_COLOR Property Let JishoOnEditForeColor(ByVal v As OLE_COLOR) Property Get JishoTextBackColor() As OLE_COLOR Property Let JishoTextBackColor(ByVal v As OLE_COLOR) Property Get JishoTextForeColor() As OLE_COLOR Property Let JishoTextForeColor(ByVal v As OLE_COLOR) Property Get KeyBoxMode() As String Property Let KeyBoxMode(ByVal v As String) Property Get KeyBoxWidth() As Long Property Let KeyBoxWidth(ByVal v As Long) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get TipHelpUse() As Boolean Property Let TipHelpUse(ByVal v As Boolean) Sub ShowAboutBox() ************************************************************************* [ Sansan ] Time = 2022/01/27 10:09:31 ************************************************************************* Event ExBtnUserOwnerClick() Event ExplorerShow(ByVal rFolderPath As String) Event ExtFilterChanged(ByVal rNewExtFilter As String, ByVal rFolderCount As Long, ByVal rFileCount As Long, ByVal rFolderCountAll As Long, ByVal rFileCountAll As Long) Event FileExecute(ByVal rFilePath As String) Event FirstShow() Event FolderChanged(ByVal rNewPath As String, ByVal rFolderCount As Long, ByVal rFileCount As Long, ByVal rFolderCountAll As Long, ByVal rFileCountAll As Long) Event FolderFileItemClick(ByVal item As ComctlLib.ListItem) Event FolderFileViewClick() Event ItemSelCountChanged(ByVal rNewSelcount As Long, ByVal rOldSelcount As Long) Event MenuPopBeforeAfter(ByVal rBefore0After1 As Long, ByVal rFromView0FromItem1 As Long, ByVal rSelectIndex1to4 As Long, wMenuCap1 As String, wMenuCap2 As String, wMenuCap3 As String, wMenuCap4 As String) Event OLEStartDragDone(rDragFoldersOrFiles() As String) Event PathChangeAfter(ByVal rNewPath As String, ByVal rOldPath As String) Event PathChangeBeforeQueryCansel(wCansel As Boolean, ByVal rNewPath As String, ByVal rCurPath As String) Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String) Event Resize() Function ColumnHeaderSizeDefSet() Function ColumnHeaderSizeSave() As String Function DlgExtMenuShow() Function DlgReFolderShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function FindListItem(rFindStr As String, Optional rFindColumn As Long = 0) As Long Function FolderShowOptional(Optional rPath As String = "C:\", Optional rViewMode As Long = 3, Optional rExtFilterCurrent As String = "全てを表示", Optional rSortKeyColumn As Long = 0, Optional rSortTopToLast As Boolean = True, Optional rColumnHeaderSize As String = "") As Boolean Function ItemData(rIndex As Long, Optional wFolder0File1 As Long, Optional wName As String, Optional wSize As Long, Optional wDate As String, Optional wExt As String, Optional wType As String) As Long Function ItemDataCurSelected(Optional wFolder0File1 As Long, Optional wName As String, Optional wSize As Long, Optional wDate As String, Optional wExt As String, Optional wType As String) As Long Function ItemIndexsSelected(wFolderIndexs() As Long, wFileIndexs() As Long) As Long Function ItemNamesSelected(rDoSortTrue As Boolean, rFullPathTrue As Boolean, wFolders() As String, wFiles() As String) As Long Function ItemsAllSelect(rAll1_File2_Folder3 As Long) As Long Function MenuCommandDo(rMenuCap As String) As Boolean Function MenuCommandEnabled(rMenuCap As String) As Boolean Function PopMenuExtShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function PopMenuFullPathMenu(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function PopMenuViewShow(Optional rTwipsScreenX As Single = -1, Optional rTwipsScreenY As Single = -1) Function ReAddFolder(rFolder As String) As Boolean Function Refresh() Property Get AutoColumnHeaderSize() As Boolean Property Let AutoColumnHeaderSize(ByVal v As Boolean) Property Get BackColorAllShow() As OLE_COLOR Property Let BackColorAllShow(ByVal v As OLE_COLOR) Property Get BackColorExtMode() As OLE_COLOR Property Let BackColorExtMode(ByVal v As OLE_COLOR) Property Get BackColorFiles() As OLE_COLOR Property Let BackColorFiles(ByVal v As OLE_COLOR) Property Get BackColorFolders() As OLE_COLOR Property Let BackColorFolders(ByVal v As OLE_COLOR) Property Get ColumnHeaderSize() As String Property Let ColumnHeaderSize(ByVal v As String) Property Get Curpath() As String Property Let Curpath(ByVal v As String) Property Get CurPathSelfChange() As Boolean Property Let CurPathSelfChange(ByVal v As Boolean) Property Get Enabled() As Boolean Property Let Enabled(ByVal v As Boolean) Property Get ExButtonUser() As EnumSansanExBtn Property Let ExButtonUser(ByVal v As EnumSansanExBtn) Property Get ExtFilterAllShow() As String Property Get ExtFilterCurrent() As String Property Let ExtFilterCurrent(ByVal v As String) Property Get ExtFilterFiles() As String Property Get ExtFilterFolders() As String Property Get ExtMenuStrs() As String Property Let ExtMenuStrs(ByVal v As String) Property Get FolderFileRunOnDblClick() As Boolean Property Let FolderFileRunOnDblClick(ByVal v As Boolean) Property Get Font() As Font Property Set Font(ByVal v As Font) Property Get ForeColorAllShow() As OLE_COLOR Property Let ForeColorAllShow(ByVal v As OLE_COLOR) Property Get ForeColorExtMode() As OLE_COLOR Property Let ForeColorExtMode(ByVal v As OLE_COLOR) Property Get ForeColorFiles() As OLE_COLOR Property Let ForeColorFiles(ByVal v As OLE_COLOR) Property Get ForeColorFolders() As OLE_COLOR Property Let ForeColorFolders(ByVal v As OLE_COLOR) Property Get HideSelection() As Boolean Property Let HideSelection(ByVal v As Boolean) Property Get IniDataUse() As Boolean Property Let IniDataUse(ByVal v As Boolean) Property Get ItemCount(rAllCount As Boolean) As Long Property Get ItemCountFile(rAllCount As Boolean) As Long Property Get ItemCountFolder(rAllCount As Boolean) As Long Property Get ItemCountTipShowMode() As Long Property Let ItemCountTipShowMode(ByVal v As Long) Property Get ItemIsFile(rItemIndex As Long) As Boolean Property Get ItemIsFolder(rItemIndex As Long) As Boolean Property Get MenuDlgExtMenuShowEnabled() As Boolean Property Let MenuDlgExtMenuShowEnabled(ByVal v As Boolean) Property Get MenuFileNameCopyVisibles() As Boolean Property Let MenuFileNameCopyVisibles(ByVal v As Boolean) Property Get MultiSelect() As Boolean Property Let MultiSelect(ByVal v As Boolean) Property Get OLEDragEnabled() As Boolean Property Let OLEDragEnabled(ByVal v As Boolean) Property Get PopMenuUse() As Boolean Property Let PopMenuUse(ByVal v As Boolean) Property Get PropertysDataStr() As String Property Let PropertysDataStr(ByVal v As String) Property Get ReFolderFontColorData() As String Property Let ReFolderFontColorData(ByVal v As String) Property Get ReFolderItemsMax() As Long Property Let ReFolderItemsMax(ByVal v As Long) Property Get ReFolderListDataStr() As String Property Let ReFolderListDataStr(ByVal v As String) Property Get ReFolderWndLvwColSizeTwips() As String Property Let ReFolderWndLvwColSizeTwips(ByVal v As String) Property Get RestoreViewState() As Boolean Property Let RestoreViewState(ByVal v As Boolean) Property Get SelectedItemIndex() As Long Property Let SelectedItemIndex(v As Long) Property Get SortKeyColumn() As Long Property Let SortKeyColumn(ByVal v As Long) Property Get SortTopToLast() As Boolean Property Let SortTopToLast(ByVal v As Boolean) Property Get UseFoldersBar() As Boolean Property Let UseFoldersBar(ByVal v As Boolean) Property Get ViewMode() As Long Property Let ViewMode(ByVal v As Long) Sub ShowAboutBox() ************************************************************************* ここで終了 Time = 2022/01/27 10:09:31 *************************************************************************