Time = 2022/01/27 10:09:31 AC2020VB5 All Controls InterFace Method / Property Lists ************************************************************************* [ AppEndIniSave ] Time = 2022/01/27 10:09:31 ************************************************************************* Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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) Friend Function aaaメソッド() Friend Function ComFrameDraw(hwnd As Long, hDC As Long) Friend Function GetObjIndex() As Long Friend Function GetObjName() As String Friend Function GetObjNameAndIndexStr() As String Friend Function mfDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Friend Function mfDelete(rwUserData As String, rEntry As String) As Boolean Friend Function mfOwnMake(Optional rwUserData As String = "", Optional rAppPath As String = "", Optional rAppEXEName As String = "", Optional rEntry As String = "") As Boolean Friend Function PagIO_BoxSet(op As Long, pct As PictureBox, rwdrvB As DriveListBox, rwReBtn As CommandButton, rwdirB As DirListBox, rwfilB As FileListBox, rwlbl As Label, rwpsmp As PictureBox, rwbtnchg As CommandButton, rwbtn0 As CommandButton, rwbtn1 As CommandButton, rwbtn2 As CommandButton, rwbtn3 As CommandButton, rwpbak As PictureBox) Friend Function PagIO_BoxSet_Re(op As Long, rwHate0 As CofHatehate, rwBtnUse0 As Boolean, rwBtnCap0 As String) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get PropertysDataStrCount() As Long Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Property Let PropertysDataStrCount(n As Long) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function BackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackStyleOp(op As Long, Optional v As EnumConconBackStyle = Concon_Backsolid, Optional PRBG As PropertyBag) As EnumConconBackStyle Private Function BorderColorOp(op As Long, Optional v As OLE_COLOR = vbButtonShadow, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BorderTypeOp(op As Long, Optional v As EnumConconBorder = ConconBorder3DLine, Optional PRBG As PropertyBag) As EnumConconBorder Private Function BorderWidthOp(op As Long, Optional v As EnumConconBorderWidth = ConconBorderWidth_2_pixel, Optional PRBG As PropertyBag) As EnumConconBorderWidth Private Function CaptionsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function CurListIndexOp(op As Long, rModeIconFile As Boolean, Optional v As Long = 0, Optional PRBG As PropertyBag) As Long Private Function CurPathOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function EnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function EnabledsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function FileBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FileForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FolderBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FolderForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function IniDataUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function LabelBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function LabelForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function MenuMainUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ModeIconFileOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function OldDrivesPathOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function OLEDragEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function PropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function ReFolderBtnCaptionOp(op As Long, Optional v As String = "P", Optional PRBG As PropertyBag) As String Private Function ReFolderBtnUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ReFolderFontColorDataOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderItemsMaxOp(op As Long, Optional v As Long = 200, Optional PRBG As PropertyBag) As Long Private Function ReFolderListDataStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderWndLvwColSizeTwipsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function SelBoxBorderWidthOp(op As Long, Optional v As Long = 2, Optional PRBG As PropertyBag) As Long Private Function SelBoxColorChg(On1Off2 As Long) Private Function SelBoxOffColorOp(op As Long, Optional v As OLE_COLOR = vbBlue, Optional PRBG As PropertyBag) As OLE_COLOR Private Function SelBoxOnColorOp(op As Long, Optional v As OLE_COLOR = vbRed, Optional PRBG As PropertyBag) As OLE_COLOR Private Function SizeAutoZoomOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function SizeDatasAutoZoom() Private Function SizeDatasOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag, Optional rwLeftTwips As Single = 0, Optional rwTopTwips As Single = 0, Optional rwWidthTwips As Single = 0, Optional rwHeightTwips As Single = 0) As String Private Function SizeDatasOtherVBControl() Private Function SizeZoomTypeOp(op As Long, Optional v As EnumConconSizeZoomType = ConconSizeZoomXXYY, Optional PRBG As PropertyBag) As EnumConconSizeZoomType Private Function TipHelpUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function UseUserListOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function VisiblesOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function zAllFilesBtnEnabled() Private Function zComLoading() As Boolean Private Function zEachLoopSetProp(op As String, Optional rLong As Long, Optional NotC1 As Control = Nothing, Optional NotC2 As Control = Nothing, Optional NotC3 As Control = Nothing, Optional NotC4 As Control = Nothing) Private Function zEventDoDblClick(op As Long) Private Function zGetUserImgList() As ImageList Private Function zListNewSetDoEvent(p As String, f() As String) Private Function zMenuOp(rFromList0FromSmp1 As Long, op As Long, Optional rMenuIndex As Integer, Optional rMenuCap As String, Optional X As Single = -1, Optional Y As Single = -1) Private Function zShowAllIconListWindowBtnEnabled() Private Function zSoxShowScroll() Private Function zzReFolderCom(op As Long, Optional wCount As Long, Optional rwData As String, Optional PRBG As PropertyBag, Optional defval As String, Optional propstr As String, Optional propidx As Long) As String Private Property Get CaptionsNew() As String Private Property Get EnabledsNew() As String Private Property Get OldDrivesPathGetSet(rCurDrv As String) As String Private Property Get SizeDatasNew() As String Private Property Get VisiblesNew() As String Private Property Let OldDrivesPathGetSet(rCurDrv As String, ByVal v As String) Private Sub btn_Click(Index As Integer) Private Sub btnchg_Click() Private Sub dirB_Change() Private Sub dirB_Click() Private Sub drvB_Change() Private Sub filB_Click() Private Sub filB_PathChange() Private Sub mHateFolder_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) Private Sub mnuPopDo_Click(Index As Integer) Private Sub mnuPopDoUser_Click(Index As Integer) Private Sub pbak_Resize() Private Sub pico_DblClick() Private Sub pico_GotFocus() Private Sub pico_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pico_KeyEvent(op As Long, KeyButton As Integer) Private Sub pico_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pico_LostFocus() Private Sub pico_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pico_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pico_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pico_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub pimg_DblClick() Private Sub pimg_GotFocus() Private Sub pimg_LostFocus() Private Sub pimg_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pimg_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pimg_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pimg_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub psmp_DblClick() Private Sub psmp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub psmp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub psmp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub psmp_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub ReBtn_Click() Private Sub scr_Change() Private Sub scr_GotFocus() Private Sub scr_LostFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zpct_MouseDown(pct As PictureBox, op As Long, Button As Integer, X As Single, Y As Single) Private Sub zpct_MouseMove(pct As PictureBox, op As Long, Button As Integer, X As Single, Y As Single) Private Sub zpct_MouseUp(pct As PictureBox, op As Long, Button As Integer, X As Single, Y As Single) 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) Friend Function PagIO_BoxSet(op As Long, myobj As CofHatehate) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get WndLvwColSizeTwipsObjExChg(frm As Form, chd As ColumnHeaders, Optional rShowXtwips As Single, Optional rShowYtwips As Single) As String Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Property Let WndLvwColSizeTwipsObjExChg(frm As Form, chd As ColumnHeaders, Optional rShowXtwips As Single, Optional rShowYtwips As Single, tmp As String) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Sub btn_Click() Private Sub pOBJ_aBtnDlgShowCaptionChange(ByVal rNewCaption As String) Private Sub pOBJ_aEnabledChange(ByVal rNewEnabled As Boolean) Private Sub pOBJ_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) Private Sub pOBJ_DlgShowBeFore(wUserDataAry() As String, wDefRetStrIfCansel As String, wShowXtwips As Single, wShowYtwips As Single) Private Sub pOBJ_GiveListItemIconFileData(ByVal rCurItemIndex As Long, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String, wIcofile As String, wIcoIndex As Long) Private Sub pOBJ_ListRBtnClickItem(ByVal rCurItemIndex As Long, ByVal rSelText0 As String, ByVal rSelSub1 As String, ByVal rSelSub2 As String, ByVal rSelSub3 As String, rwAllListDatas() As String, ByVal rColCountOrDataPich As Long, wChangedCode As Long) Private Sub pOBJ_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) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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() Friend Function aaaメソッド() Friend Function ComFrameDraw(hwnd As Long, hDC As Long) Friend Function GetObjIndex() As Long Friend Function GetObjName() As String Friend Function GetObjNameAndIndexStr() As String Friend Function mfDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Friend Function mfDelete(rwUserData As String, rEntry As String) As Boolean Friend Function mfOwnMake(Optional rwUserData As String = "", Optional rAppPath As String = "", Optional rAppEXEName As String = "", Optional rEntry As String = "") As Boolean Friend Function PagIO_BoxSet(op As Long, pct As PictureBox, dv As DriveListBox, btn0 As CommandButton, dr As DirListBox, EX As ComboBox, PagpctDel As PictureBox, btn1 As CommandButton, fl As FileListBox, lb As Label) Friend Function PagIO_BoxSet_Re(op As Long, rwHate0 As CofHatehate, rwBtnUse0 As Boolean, rwBtnCap0 As String, rwHate1 As CofHatehate, rwBtnUse1 As Boolean, rwBtnCap1 As String) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get PropertysDataStrCount() As Long Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Property Let PropertysDataStrCount(n As Long) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function ArchiveOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function BackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackStyleOp(op As Long, Optional v As EnumHuluhuluBackStyle = Huluhulu_Backsolid, Optional PRBG As PropertyBag) As EnumHuluhuluBackStyle Private Function BorderColorOp(op As Long, Optional v As OLE_COLOR = vbButtonShadow, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BorderTypeOp(op As Long, Optional v As EnumHuluhuluBorder = HuluhuluBorder3DLine, Optional PRBG As PropertyBag) As EnumHuluhuluBorder Private Function BorderWidthOp(op As Long, Optional v As EnumHuluhuluBorderWidth = HuluhuluBorderWidth_2_pixel, Optional PRBG As PropertyBag) As EnumHuluhuluBorderWidth Private Function CaptionsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function CurPathFileOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function CurPathOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function EnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function EnabledsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function FileBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FileForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FilePatternDelBtnColorOp(op As Long, Optional v As OLE_COLOR = vbYellow, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FilePatternListStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function FilePatternOp(op As Long, Optional v As String = "*", Optional PRBG As PropertyBag) As String Private Function FolderBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FolderForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function HiddenOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function IniDataUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function LabelBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function LabelDataTypeOp(op As Long, Optional v As EnumHuluhuluLabelDataType = HuluhuluLabelFullPath, Optional PRBG As PropertyBag) As EnumHuluhuluLabelDataType Private Function LabelForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function NormalOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function OldDrivesPathOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function OLEDragEnabledFileOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OLEDropEnabledFileOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function PropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function ReAddOnFileDBLClickOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ReFileBtnCaptionOp(op As Long, Optional v As String = "F", Optional PRBG As PropertyBag) As String Private Function ReFileBtnUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ReFileFontColorDataOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFileItemsMaxOp(op As Long, Optional v As Long = 200, Optional PRBG As PropertyBag) As Long Private Function ReFileListDataStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFileWndLvwColSizeTwipsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderBtnCaptionOp(op As Long, Optional v As String = "P", Optional PRBG As PropertyBag) As String Private Function ReFolderBtnUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ReFolderFontColorDataOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderItemsMaxOp(op As Long, Optional v As Long = 200, Optional PRBG As PropertyBag) As Long Private Function ReFolderListDataStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderWndLvwColSizeTwipsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function SizeAutoZoomOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function SizeDatasAutoZoom() Private Function SizeDatasOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag, Optional rwLeftTwips As Single = 0, Optional rwTopTwips As Single = 0, Optional rwWidthTwips As Single = 0, Optional rwHeightTwips As Single = 0) As String Private Function SizeDatasOtherVBControl() Private Function SizeZoomTypeOp(op As Long, Optional v As EnumHuluhuluSizeZoomType = HuluhuluSizeZoomXXYY, Optional PRBG As PropertyBag) As EnumHuluhuluSizeZoomType Private Function SystemOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function TipHelpUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function VisiblesOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function zAddReIf(FileOrPath As String, AddEnabled As Boolean) As Boolean Private Function zComLoading() As Boolean Private Function zEachLoopSetProp(op As String, rLong As Long, Optional NotC1 As Control = Nothing, Optional NotC2 As Control = Nothing, Optional NotC3 As Control = Nothing, Optional NotC4 As Control = Nothing) Private Function zExtOldTextSet() Private Function zExtStrChk(EXT As String) As Boolean Private Function zFolderAndFileIf(rFileOrPath As String, wFolder As String, wFile As String) As Boolean Private Function zzReFolderCom(op As Long, Optional wCount As Long, Optional rwData As String, Optional PRBG As PropertyBag, Optional defval As String, Optional propstr As String, Optional propidx As Long) As String Private Property Get CaptionsNew() As String Private Property Get EnabledsNew() As String Private Property Get OldDrivesPathGetSet(rCurDrv As String) As String Private Property Get SizeDatasNew() As String Private Property Get VisiblesNew() As String Private Property Let OldDrivesPathGetSet(rCurDrv As String, ByVal v As String) Private Sub dirB_Change() Private Sub dirB_Click() Private Sub dirB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub dirB_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub dirB_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub dirB_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub drvB_Change() Private Sub extB_Click() Private Sub extB_LostFocus() Private Sub filB_Click() Private Sub filB_DblClick() Private Sub filB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub filB_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub filB_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub filB_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub filB_PathChange() Private Sub filB_PatternChange() Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub mHateFile_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) Private Sub mHateFolder_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) Private Sub pctDel_Click() Private Sub ReBtn_Click(Index As Integer) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zPathLabelSet() 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) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaフォームイベント_CofIroiro() Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function aaaメソッド() Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function zUserControlReSizeOp(op As Long, p As PictureBox) As Boolean Private Sub pcb_DblClick() Private Sub pcb_GotFocus() Private Sub pcb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pcb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pcb_LostFocus() Private Sub pcb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pcb_Paint() Private Sub pcb_Resize() Private Sub pOBJ_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJ_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJ_aGetPctBoxObj(pcbObj As PictureBox) Private Sub pOBJ_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJ_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJ_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJ_ColorCellDblClick(ByVal rCurrentColor As Long) Private Sub pOBJ_ColorInPutBtnClick(wColor As Long) Private Sub pOBJ_ColorOutPutBtnClick(ByVal rCurrentColor As Long) Private Sub pOBJ_CurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Private Sub pOBJ_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) Private Sub pOBJ_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJ_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) Private Sub pOBJ_PanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Private Sub pOBJ_PanelSizeChange() Private Sub pOBJ_UserColorPalletChange(ByVal rPallet As String) Private Sub pOBJ_UserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Private Sub UserControl_GotFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_LostFocus() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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() Friend Function CurCofMozimozi() As CofMozimozi Friend Function DrawAll() As Boolean Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Function WidthAndHeight(wTwipsWidth As Single, wTwipsHeight As Single) Friend Property Get IroPropertysDataIniReadOK() As Boolean Friend Property Get MoziPropertysDataIniReadOK() As Boolean Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Let IroPropertysDataIniReadOK(v As Boolean) Friend Property Let MoziPropertysDataIniReadOK(v As Boolean) Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaIroフォームイベント_Iro() Private Function aaaIroプロパティ() Private Function aaaIroメイン_UserControl() Private Function aaaIroメソッド() Private Function aaaMoziフォームイベント_Mozi() Private Function aaaMoziプロパティ() Private Function aaaMoziメイン_UserControl() Private Function aaaMoziメソッド() Private Function ComChgBtnPostLeftTopOp(op As Long, Optional v As EnumIroMoziBtnPost = IroMoziBtnLeft, Optional PRBG As PropertyBag) As EnumIroMoziBtnPost Private Function ComChgBtnSizeTwipsOp(op As Long, Optional v As Long = 210, Optional PRBG As PropertyBag) As Long Private Function ComChgBtnUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ComModeIroiroOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function zDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Private Function zPropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function zUserControlReSizeOp(op As Long, p As PictureBox) As Boolean Private Property Get zPropertysDataStr() As String Private Property Let zPropertysDataStr(ByVal v As String) Private Sub btn_Click() Private Sub pbb_Resize() Private Sub pcb_DblClick() Private Sub pcb_GotFocus() Private Sub pcb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pcb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pcb_LostFocus() Private Sub pcb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pcb_Paint() Private Sub pcb_Resize() Private Sub pfb_DblClick() Private Sub pfb_GotFocus() Private Sub pfb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pfb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pfb_LostFocus() Private Sub pfb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLECompleteDrag(Effect As Long) Private Sub pfb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pfb_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) Private Sub pfb_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub pfb_Paint() Private Sub pOBJiro_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJiro_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJiro_aGetPctBoxObj(pcbObj As PictureBox) Private Sub pOBJiro_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJiro_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJiro_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJiro_ColorCellDblClick(ByVal rCurrentColor As Long) Private Sub pOBJiro_ColorInPutBtnClick(wColor As Long) Private Sub pOBJiro_ColorOutPutBtnClick(ByVal rCurrentColor As Long) Private Sub pOBJiro_CurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Private Sub pOBJiro_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) Private Sub pOBJiro_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJiro_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) Private Sub pOBJiro_PanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Private Sub pOBJiro_PanelSizeChange() Private Sub pOBJiro_UserColorPalletChange(ByVal rPallet As String) Private Sub pOBJiro_UserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Private Sub pOBJmozi_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJmozi_aDoReDraw() Private Sub pOBJmozi_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJmozi_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJmozi_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJmozi_AnyPropertyChanged(ByVal rPropertyName As String) Private Sub pOBJmozi_aOLEDragEnabledChanged(ByVal rNewOLEDragEnabled As Boolean) Private Sub pOBJmozi_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJmozi_CurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJmozi_CurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJmozi_FontListChange(ByVal rNewFontDataStrsAll As String) Private Sub pOBJmozi_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) Private Sub pOBJmozi_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJmozi_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) Private Sub pOBJmozi_PanelSlzeChange() Private Sub scr_Change() Private Sub UserControl_GotFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_LostFocus() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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) Friend Function ComFrameDraw(hwnd As Long, hDC As Long) Friend Function ComSizeDatasAutoZoom() Friend Function CurCofMozimozi() As CofMozimozi Friend Function DrawAll() As Boolean Friend Function GetObjIndex() As Long Friend Function GetObjName() As String Friend Function GetObjNameAndIndexStr() As String Friend Function PagIO_BoxSet(op As Long, pct As PictureBox, lbl0 As Label, cbo0 As ComboBox, lbl1 As Label, cbo1 As ComboBox, chk0 As CheckBox, chk1 As CheckBox, chk2 As CheckBox, chk3 As CheckBox, opt0 As OptionButton, opt1 As OptionButton, lblSMPL As Label, rwbtn As CommandButton, rwpbb As PictureBox) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Function PagIO_CurFontSet(op, cbo0 As ComboBox, cbo1 As ComboBox, chk0 As CheckBox, chk1 As CheckBox, chk2 As CheckBox, chk3 As CheckBox, lblSMPL As Label) Friend Function WidthAndHeight(wTwipsWidth As Single, wTwipsHeight As Single) Friend Property Get ComCaptionsNew() As String Friend Property Get ComEnabledsNew() As String Friend Property Get ComSampleLetterNew() As String Friend Property Get ComSizeDatasNew() As String Friend Property Get ComVisiblesNew() As String Friend Property Get IroPropertysDataIniReadOK() As Boolean Friend Property Get MotoPropertysDataIniReadOK() As Boolean Friend Property Get MoziPropertysDataIniReadOK() As Boolean Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Let IroPropertysDataIniReadOK(v As Boolean) Friend Property Let MotoPropertysDataIniReadOK(v As Boolean) Friend Property Let MoziPropertysDataIniReadOK(v As Boolean) Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaIroフォームイベント_Iro() Private Function aaaIroプロパティ() Private Function aaaIroメイン_UserControl() Private Function aaaIroメソッド() Private Function aaaMotoフォームイベント_Moto() Private Function aaaMotoプロパティ() Private Function aaaMotoメイン_UserControl() Private Function aaaMotoメソッド() Private Function aaaMoziフォームイベント_Mozi() Private Function aaaMoziプロパティ() Private Function aaaMoziメイン_UserControl() Private Function aaaMoziメソッド() Private Function ComChgBtnUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ComColorInpModeBackColorEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ComColorInpModeForeColorOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ComModeIroiroOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function zDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Private Function zOptBtnEnableSet() Private Function zOptClickSet() Private Function zPropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Property Get zPropertysDataStr() As String Private Property Let zPropertysDataStr(ByVal v As String) Private Sub btn_Click() Private Sub cbo_Change(Index As Integer) Private Sub cbo_Click(Index As Integer) Private Sub cbo_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub cbo_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub chk_Click(Index As Integer) Private Sub chk_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub lbl_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub lblSmp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub opt_Click(Index As Integer) Private Sub opt_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub opt_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pbb_Resize() Private Sub pcb_DblClick() Private Sub pcb_GotFocus() Private Sub pcb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pcb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pcb_LostFocus() Private Sub pcb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pcb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pcb_Paint() Private Sub pcb_Resize() Private Sub pfb_DblClick() Private Sub pfb_GotFocus() Private Sub pfb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pfb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pfb_LostFocus() Private Sub pfb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLECompleteDrag(Effect As Long) Private Sub pfb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pfb_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) Private Sub pfb_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub pfb_Paint() Private Sub pOBJiro_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJiro_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJiro_aGetPctBoxObj(pcbObj As PictureBox) Private Sub pOBJiro_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJiro_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJiro_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJiro_ColorCellDblClick(ByVal rCurrentColor As Long) Private Sub pOBJiro_CurrentColorChange(ByVal rEventFlag As Long, ByVal rNewColor As Long, ByVal rOldColor As Long) Private Sub pOBJiro_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) Private Sub pOBJiro_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJiro_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) Private Sub pOBJiro_PanelModeChange(ByVal rNewMode As Long, ByVal rOldMode As Long) Private Sub pOBJiro_UserColorPalletChange(ByVal rPallet As String) Private Sub pOBJiro_UserCurSelIndexChange(ByVal rNewIndex As Long, ByVal rOldIndex As Long) Private Sub pOBJmoto_aAllObjGet(wConts() As Control, wlblSmp As Label, wParentFont As stdole.StdFont, wAmbientBackColor As Long, wUserControlBackColor As Long, wParentWidth As Single, wParentHeight As Single) Private Sub pOBJmoto_aBackColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aBackStyleChange(ByVal rNewVal As Long, ByVal CurBackColor As Long) Private Sub pOBJmoto_aBorderTypeChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aCapVsEnGetSetByStr(ByVal op As String, ByVal Get0set1 As Long, rwData As String, ByVal cut As String, ByVal EnVsAndDef As Boolean, wOpOK As Boolean) Private Sub pOBJmoto_aCheckBoxSet(ByVal Index As Integer, ByVal rNewVal As Boolean) Private Sub pOBJmoto_aComboxBackColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aComboxForeColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aDoFontObjCOPY(wFont As stdole.StdFont, ByVal rOpStr As String) Private Sub pOBJmoto_aDoFontObjSet(ByVal rFont As stdole.StdFont, ByVal rOpStr As String) Private Sub pOBJmoto_aEnabledChange(ByVal rNewVal As Boolean) Private Sub pOBJmoto_aForeColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aGetObjComBoxLabels(wComBox() As ComboBox, wlblSmp As Label, wlblTmp As Label) Private Sub pOBJmoto_aOLEDropEnabledChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aOtherVBControlGet(wControlsCount As Long, wControl() As Control) Private Sub pOBJmoto_aParentSizeGet(wParentWidth As Single, wParentHeight As Single) Private Sub pOBJmoto_aResizeEventNewSet(rNewWidthTwips As Single, rNewHeightTwips As Single) Private Sub pOBJmoto_aSampleBackColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aSampleForeColorChange(ByVal rNewVal As Long) Private Sub pOBJmoto_aSampleLetterGetSet(ByVal Get0set1 As Long, rwStr As String) Private Sub pOBJmoto_aSetControlsCount(wControlsCount As Long) Private Sub pOBJmoto_aSizeDatas(ByVal op As Long, rwData As String, ByVal cut As String, ByVal max As Long, wOpOK As Boolean) Private Sub pOBJmoto_aSmpLabelSetByChkBoxs() Private Sub pOBJmoto_aTipHelpUseChange(HelpStr() As String) Private Sub pOBJmoto_CurFontChange(ByVal rCurFont As stdole.StdFont, ByVal rChgProperty As String, ByVal rFontColor As Long) Private Sub pOBJmoto_CurFontNameChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Private Sub pOBJmoto_CurFontSizeChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Private Sub pOBJmoto_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJmoto_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) Private Sub pOBJmoto_SampleColorChange(ByVal rOpCodeBack0Fore1 As Long, ByVal rColor As Long) Private Sub pOBJmozi_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJmozi_aDoReDraw() Private Sub pOBJmozi_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJmozi_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJmozi_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJmozi_AnyPropertyChanged(ByVal rPropertyName As String) Private Sub pOBJmozi_aOLEDragEnabledChanged(ByVal rNewOLEDragEnabled As Boolean) Private Sub pOBJmozi_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJmozi_CurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJmozi_CurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJmozi_FontListChange(ByVal rNewFontDataStrsAll As String) Private Sub pOBJmozi_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) Private Sub pOBJmozi_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJmozi_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) Private Sub scr_Change() Private Sub UserControl_GotFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_LostFocus() Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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) Friend Function aaaメソッド() Friend Function CurListIndexSetWithFlag(rIndex As Long) Friend Function FormListDraw(dlg As frmMozimise, dlgBackColor As Long) Friend Function FormListMouseOp(op As Long, dlg As frmMozimise, dlgBackColor As Long, X As Single, Y As Single, Optional wDoListClose As Boolean) As Long Friend Function mfDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Friend Function mfDelete(rwUserData As String, rEntry As String) As Boolean Friend Function mfOwnMake(Optional rwUserData As String = "", Optional rAppPath As String = "", Optional rAppEXEName As String = "", Optional rEntry As String = "") As Boolean Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Function WidthAndHeight(wTwipsWidth As Single, wTwipsHeight As Single) Friend Property Get FontDataLetter(ListIndex As Long) As String Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get PropertysDataStrCount() As Long Friend Property Get SampleLetterChkData(ByVal v As String) As String Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Property Let PropertysDataStrCount(n As Long) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaLibFrmMozinoEx_の交換コマンド() Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function BackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackStyleOp(op As Long, Optional v As EnumMozimiseBackStyle = Mozimise_BackSolid, Optional PRBG As PropertyBag) As EnumMozimiseBackStyle Private Function BorderTypeOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function CaptionGetBtnOp(op As Long, Optional v As String = "入", Optional PRBG As PropertyBag) As String Private Function CaptionSetBtnOp(op As Long, Optional v As String = "出", Optional PRBG As PropertyBag) As String Private Function ComboxBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function ComboxCurFontNameOp(op As Long, Optional v As String = "MS Pゴシック", Optional PRBG As PropertyBag) As String Private Function ComboxCurFontSizeOp(op As Long, Optional v As Single = 9, Optional PRBG As PropertyBag) As Single Private Function ComboxForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function CurListIndexOp(op As Long, Optional v As Long = 1, Optional PRBG As PropertyBag) As Long Private Function DlgShowEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function EnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function FocusTipColorOp(op As Long, Optional v As OLE_COLOR = vbRed, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FontDataStrsAllOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function FontListBackColorOp(op As Long, Optional v As OLE_COLOR = vbWhite, Optional PRBG As PropertyBag) As OLE_COLOR Private Function FontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function FontSizeMaxOp(op As Long, Optional v As Single = 64, Optional PRBG As PropertyBag) As Single Private Function IniDataUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ListCountMaxOp(op As Long, Optional v As Long = 30, Optional PRBG As PropertyBag) As Long Private Function mfFontListDelBySize(op As Long, cboDelSize As ComboBox, Optional rFontLabel As Label) Private Function ModeChgBtnPostLeftOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ModeFontListShowOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function OLEDropEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function PopMenuUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function PropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function SampleLetterOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function SizeFontListSampleOp(op As Long, Optional v As Long = 80, Optional PRBG As PropertyBag) As Long Private Function SizeFontNameComboxOp(op As Long, Optional v As Long = 80, Optional PRBG As PropertyBag) As Long Private Function TipHelpUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function z_lbl_cbo_OLEDragDrop(wFont As StdFont, wFontColor As Long, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) As Boolean Private Function z_lbl_cbo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) As Boolean Private Function zBoxMove(hwnd As Long, hDC As Long, dlgBackColor As Long, Index As Long, Optional DoDrawAny As Boolean = False) Private Function zComLoading() As Boolean Private Function zMenuOp(op As Long, Optional rMenuIndex As Integer, Optional rMenuCap As String, Optional X As Single = -1, Optional Y As Single = -1) Private Function zReMoveItem(Optional rRemoveIndex As Long = 0, Optional rCurListIndexSet As Boolean = True, Optional rNotReMoveLast1 As Boolean = True, Optional rShowMsgBox As Boolean = False) As Long Private Sub btn_Click(Index As Integer) Private Sub cbo_Click(Index As Integer) Private Sub cbo_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Private Sub cbo_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer) Private Sub cbo_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub cbo_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub mnuPopDo_Click(Index As Integer) Private Sub mOptDlg_GetComboBoxLists(cboFontName As ComboBox, cboFontSize As ComboBox, cboDelSize As ComboBox, cboColmnWidth As ComboBox) Private Sub mOptDlg_GetCurListAndIndexInToComboBox(cboListIDX As ComboBox) Private Sub mOptDlg_GetCurListFontDataLetter(wLetter As String) Private Sub mOptDlg_GetFontAddEnabledByLabel(rFontLabel As Label, wEnabled As Boolean) Private Sub mOptDlg_GetProppertysAll(opCodeDef0Cur1 As Long, wCurFontObj As stdole.StdFont, wFontColor As Long, wBorderType As Boolean, wOLEDragEnabled As Boolean, wOLEDropEnabled As Boolean, wFontDataTipUse As Boolean, wBackColor As Long, wSampleLetter As String, wColumnWidth As Long) Private Sub mOptDlg_GetSampleLetterChecked(rwTextStr As String) Private Sub mOptDlg_GetUserMode(wUserMode0or1 As Long) Private Sub mOptDlg_ReMoveCurListIndex() Private Sub mOptDlg_SetAddNewFont(rFontLabel As Label) Private Sub mOptDlg_SetBackColor(rNewVal As Long, wBackColor As Long) Private Sub mOptDlg_SetBorderType(rNewVal As Boolean, wBorderType As Boolean) Private Sub mOptDlg_SetCurListIndex(rIndex As Long) Private Sub mOptDlg_SetDefFontList() Private Sub mOptDlg_SetDefPropertys() Private Sub mOptDlg_SetFontsDeleteBySize(cboDelSize As ComboBox, rFontLabel As Label) Private Sub mOptDlg_SetSampleLetter(rNewVal As String, wSampleLetter As String) Private Sub mOptDlg_SetThisDlgWndPost(rDlgWnd As Form, rPctOFF As PictureBox) Private Sub pct_GotFocus() Private Sub pct_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pct_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pct_LostFocus() Private Sub UserControl_ExitFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zFormListShow() 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) Friend Function ComFrameDraw(hwnd As Long, hDC As Long) Friend Function GetObjIndex() As Long Friend Function GetObjName() As String Friend Function GetObjNameAndIndexStr() As String Friend Function PagIO_BoxSet(op As Long, pct As PictureBox, lbl0 As Label, cbo0 As ComboBox, lbl1 As Label, cbo1 As ComboBox, chk0 As CheckBox, chk1 As CheckBox, chk2 As CheckBox, chk3 As CheckBox, btn0 As CommandButton, btn1 As CommandButton, lblSMPL As Label) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Function PagIO_CurFontSet(op, cbo0 As ComboBox, cbo1 As ComboBox, chk0 As CheckBox, chk1 As CheckBox, chk2 As CheckBox, chk3 As CheckBox, lblSMPL As Label) Friend Function SizeDatasAutoZoom() Friend Property Get CaptionsNew() As String Friend Property Get EnabledsNew() As String Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get SampleLetterNew() As String Friend Property Get SizeDatasNew() As String Friend Property Get VisiblesNew() As String Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaフォームイベント_CofMozimozi() Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Sub btn_Click(Index As Integer) Private Sub btn_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub btn_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub cbo_Change(Index As Integer) Private Sub cbo_Click(Index As Integer) Private Sub cbo_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub cbo_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub chk_Click(Index As Integer) Private Sub chk_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub chk_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub lbl_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lbl_OLEDragOver(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub lblSmp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblSmp_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pOBJ_aAllObjGet(wConts() As Control, wlblSmp As Label, wParentFont As stdole.StdFont, wAmbientBackColor As Long, wUserControlBackColor As Long, wParentWidth As Single, wParentHeight As Single) Private Sub pOBJ_aBackColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aBackStyleChange(ByVal rNewVal As Long, ByVal CurBackColor As Long) Private Sub pOBJ_aBorderTypeChange(ByVal rNewVal As Long) Private Sub pOBJ_aCapVsEnGetSetByStr(ByVal op As String, ByVal Get0set1 As Long, rwData As String, ByVal cut As String, ByVal EnVsAndDef As Boolean, wOpOK As Boolean) Private Sub pOBJ_aCheckBoxSet(ByVal Index As Integer, ByVal rNewVal As Boolean) Private Sub pOBJ_aComboxBackColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aComboxForeColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aDoFontObjCOPY(wFont As stdole.StdFont, ByVal rOpStr As String) Private Sub pOBJ_aDoFontObjSet(ByVal rFont As stdole.StdFont, ByVal rOpStr As String) Private Sub pOBJ_aDoRefreshPaint() Private Sub pOBJ_aEnabledChange(ByVal rNewVal As Boolean) Private Sub pOBJ_aForeColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aGetObjComBoxLabels(wComBox() As ComboBox, wlblSmp As Label, wlblTmp As Label) Private Sub pOBJ_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJ_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJ_aOLEDropEnabledChange(ByVal rNewVal As Long) Private Sub pOBJ_aOtherVBControlGet(wControlsCount As Long, wControl() As Control) Private Sub pOBJ_aParentSizeGet(wParentWidth As Single, wParentHeight As Single) Private Sub pOBJ_aResizeEventNewSet(rNewWidthTwips As Single, rNewHeightTwips As Single) Private Sub pOBJ_aSampleBackColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aSampleForeColorChange(ByVal rNewVal As Long) Private Sub pOBJ_aSampleLetterGetSet(ByVal Get0set1 As Long, rwStr As String) Private Sub pOBJ_aSetControlsCount(wControlsCount As Long) Private Sub pOBJ_aSizeDatas(ByVal op As Long, rwData As String, ByVal cut As String, ByVal max As Long, wOpOK As Boolean) Private Sub pOBJ_aSmpLabelSetByChkBoxs() Private Sub pOBJ_aTipHelpUseChange(HelpStr() As String) Private Sub pOBJ_CurFontChange(ByVal rCurFont As stdole.StdFont, ByVal rChgProperty As String, ByVal rFontColor As Long) Private Sub pOBJ_CurFontNameChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Private Sub pOBJ_CurFontSizeChange(ByVal rFontName As String, ByVal rFontSize As Single, ByVal rFontColor As Long) Private Sub pOBJ_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJ_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) Private Sub pOBJ_OutSideFontReadIn(wFont As stdole.StdFont, wFontColor As Long) Private Sub pOBJ_SampleColorChange(ByVal rOpCodeBack0Fore1 As Long, ByVal rColor As Long) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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) Friend Function CurCofMozimozi() As CofMozimozi Friend Function DrawAll() As Boolean Friend Function WidthAndHeight(wTwipsWidth As Single, wTwipsHeight As Single) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaフォームイベント_CofMozimozi() Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function aaaメソッド() Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function zUserControlReSizeOp(op As Long, p As PictureBox) As Boolean Private Sub pbb_Resize() Private Sub pfb_DblClick() Private Sub pfb_GotFocus() Private Sub pfb_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub pfb_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub pfb_LostFocus() Private Sub pfb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLECompleteDrag(Effect As Long) Private Sub pfb_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pfb_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) Private Sub pfb_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) Private Sub pfb_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Private Sub pfb_Paint() Private Sub pOBJ_aBackColorChanged(ByVal rNewColor As Long) Private Sub pOBJ_aDoReDraw() Private Sub pOBJ_aEnabledChanged(ByVal rNewEnabled As Boolean) Private Sub pOBJ_aMainBoxSizeCurrentSizeGet(wleft As Single, wTop As Single, wWidth As Single, wHeight As Single) Private Sub pOBJ_aMainBoxSizeCurrentSizeSet(ByVal rLeft As Single, ByVal rTop As Single, ByVal rWidth As Single, ByVal rHeight As Single) Private Sub pOBJ_AnyPropertyChanged(ByVal rPropertyName As String) Private Sub pOBJ_aOLEDragEnabledChanged(ByVal rNewOLEDragEnabled As Boolean) Private Sub pOBJ_aOLEDropEnabledChanged(ByVal rNewOLEDropEnabled As Boolean) Private Sub pOBJ_CurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJ_CurListFontDblClick(rCurListFont As stdole.StdFont, ByVal rFontColor As Long, ByVal rCurListIndex As Long) Private Sub pOBJ_FontListChange(ByVal rNewFontDataStrsAll As String) Private Sub pOBJ_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) Private Sub pOBJ_OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub pOBJ_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) Private Sub pOBJ_PanelSlzeChange() Private Sub scr_Change() Private Sub UserControl_GotFocus() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_LostFocus() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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) Friend Function CodeTypStrAryGet(ary() As String) Friend Function DataStrReadWrite(op As Long, rwStr As String) As Boolean Friend Function FindOwnerFormNameIndexStr() As String Friend Function FindVbControls(s() As String, rc() As RECT, Conts() As Control) As Boolean Friend Function FormNameIndex_ContNameIndex() As String Friend Function FormNameIndexAddCut() As String Friend Function GetObjIndex() As Long Friend Function GetObjName() As String Friend Function GetObjNameAndIndexStr() As String Friend Function IcoImageCopy(wPict As PictureBox) Friend Function IconUsingInUnitsAry(bidary() As Long) As Boolean Friend Function SizeSetFromProPage(NewWidth As Single, NewHeight As Single) Friend Function UserContFullNameStr() As String Friend Property Get CopyTimeStr() As String Friend Property Get UserContHeight() As Long Friend Property Get UserContWidth() As Long Friend Property Get UserMode() As Boolean Friend Property Let CopyTimeStr(v As String) Friend Sub IconImageUserDataCopy(op As Long, OtherIcoImg As PictureBox, OtherUiOp As OioiCls) Friend Sub TipTextBoxShowHide(rVisible As Boolean, rUnitIndex As Long, rCellIndex As Long) Private Function zContainerIndex(c As Control) As Long Private Function zContainerName(c As Control) As String Private Function zControlIndex(c As Control) As Long Private Function zObjIndex(obj As Object) As Long Private Function zTopParentObjNameIndex(ChildObj As Object, wName As String, wIndex As Long, wNameIndexStr As String) As Object Private Function zVbControlNameAndIndexStr(c As Control) As String Private Function zVbControlSizePrpertyChk(c As Control) As Boolean Private Sub mEventDo_MakeCodeAllOioiOnCurForm(rwCurUser() As String, rFormNameIndexContNameIndex As String, rOpTypeCode As String, wTop As String, wLast As String, wEnumHed As String, wEnumFunc As String, wPageBfore As String, wPageAfter As String, wCellClick As String, wMouseEv As String, wStdEvent As String) Private Sub mTipEdit_LostFocus() Private Sub UserControl_AmbientChanged(PropertyName As String) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zIcoImageCopy(uke As PictureBox, oku As PictureBox) Private Sub zOtherControlShowHide(wNewPage As Long, c As Control) Private Sub zPageCurSet(wNewPage As Long, wOldPage As Long) 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 ************************************************************************* Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 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() Friend Function aaaメソッド() Friend Function JishoModeCange(mode As Boolean, Optional rCurBox As TextBox = Nothing) Friend Function mfDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Friend Function mfDelete(rwUserData As String, rEntry As String) As Boolean Friend Function mfOwnMake(Optional rwUserData As String = "", Optional rAppPath As String = "", Optional rAppEXEName As String = "", Optional rEntry As String = "") As Boolean Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papJishoFolder() As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get PropertysDataIniReadOK() As Boolean Friend Property Get PropertysDataStrCount() As Long Friend Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papJishoFolder(ByVal v As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let PropertysDataIniReadOK(v As Boolean) Friend Property Let PropertysDataStrCount(n As Long) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaメイン_UserControl() Private Function BackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BorderTypeOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function BtnCharBackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnCharForeColorOp(op As Long, Optional v As OLE_COLOR = vbButtonText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnChgDownBackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnChgDownForeColorOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnChgUpBackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnChgUpForeColorOp(op As Long, Optional v As OLE_COLOR = vbButtonText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnExtra1CaptionOp(op As Long, Optional v As String = "クリア", Optional PRBG As PropertyBag) As String Private Function BtnExtra1EnabledOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function BtnExtra2CaptionOp(op As Long, Optional v As String = "出力", Optional PRBG As PropertyBag) As String Private Function BtnExtra2EnabledOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function BtnExtraBackColorOp(op As Long, Optional v As OLE_COLOR = vbButtonFace, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BtnExtraForeColorOp(op As Long, Optional v As OLE_COLOR = vbButtonText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function EnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function FontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function FrameWidthOp(op As Long, Optional v As Long = 3, Optional PRBG As PropertyBag) As Long Private Function IniDataUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function JishoAutoSaveOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function JishoBackColorOp(op As Long, Optional v As OLE_COLOR = vbWindowBackground, Optional PRBG As PropertyBag) As OLE_COLOR Private Function JishoFontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function JishoForeColorOp(op As Long, Optional v As OLE_COLOR = vbWindowText, Optional PRBG As PropertyBag) As OLE_COLOR Private Function JishoOnEditBackColorOp(op As Long, Optional v As OLE_COLOR = vbGreen, Optional PRBG As PropertyBag) As OLE_COLOR Private Function JishoOnEditForeColorOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function JishoTextBackColorOp(op As Long, Optional v As OLE_COLOR = &H80FFFF, Optional PRBG As PropertyBag) As OLE_COLOR Private Function JishoTextForeColorOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function KeyBoxModeOp(op As Long, Optional v As String = cTagKana, Optional PRBG As PropertyBag) As String Private Function KeyBoxWidthOp(op As Long, Optional v As Long = 70, Optional PRBG As PropertyBag) As Long Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papJishoFolderOp(op As Long, v As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function PropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function SizeDatasAutoZoom() Private Function TipHelpUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function zBtnCharsColorChg(Tag As String) Private Function zComLoading() As Boolean Private Function zDataIn(Tag As String, cap As String, l As Long, cp100 As String) Private Function zInitializeOp() Private Function zInpSwChange(rUnitIndex As Long, rCellIndex As Long, rCellCaption As String) As Boolean Private Function zKbxTipTxtTextCheck(eAdd As Boolean, eDel As Boolean) Private Function zSwsIndex(Tag As String) As Long Private Function ztxtTIP_OnOff(txtTIPVisible As Boolean) Private Sub btnchg_Click() Private Sub btnEdit_Click(Index As Integer) Private Sub lstBOX_Click() Private Sub lstBOX_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lstBOX_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lstBOX_Scroll() Private Sub txtBOX_Change() Private Sub txtTip_Change() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub UserControl_Paint() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zlstBOX_MouseUp(Button As Integer) 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() Friend Function aaaメソッド() Friend Function aaaメニュー() Friend Function aaaローカルヘルパー() Friend Function DlgColorDataOp(DefGet1_lvwColorsGet2 As Long, rwBackColorAllShow As Long, rwBackColorFolders As Long, rwBackColorFiles As Long, rwBackColorExtMode As Long, rwForeColorAllShow As Long, rwForeColorFolders As Long, rwForeColorFiles As Long, rwForeColorExtMode As Long) Friend Function FontSetDlgShow() Friend Function mfEventDoItemSelCountChanged(Optional DoRaiseEvent As Boolean = False) Friend Function PagIO_BoxSet(op As Long, wExtMenuTextStrDEF As String, rwExtMenuTextStrCUR As String) Friend Function PagIO_BoxSet_Re(op As Long, rwHate0 As CofHatehate, rwBtnUse0 As Boolean, rwBtnCap0 As String) Friend Function PagIO_ColorCom(op As Long, rwPropStr() As String, rwColor() As Long, Optional rSetPropStr As String, Optional rSetColor As Long) Friend Property Get papIniFileFullName(AppPath As String, AppEXEName As String) As String Friend Property Get papOCXAppRunMode() As Boolean Friend Property Get papOCXFirstShowDone() As Boolean Friend Property Get papOCXUserMode() As Boolean Friend Property Get papPctBoxWndMovingIs() As Boolean Friend Property Get RestoreDataStr() As String Friend Property Let papIniFileFullName(AppPath As String, AppEXEName As String, dummy As String) Friend Property Let papOCXAppRunMode(ByVal v As Boolean) Friend Property Let papOCXFirstShowDone(ByVal v As Boolean) Friend Property Let papOCXUserMode(ByVal v As Boolean) Friend Property Let papPctBoxWndMovingIs(ByVal v As Boolean) Friend Property Let RestoreDataStr(ByVal v As String) Friend Sub zUserControl_Events(op As Long, Optional PropBag As PropertyBag = Nothing) Private Function aaaプロパティ() Private Function aaaメイン_UserControl() Private Function AutoColumnHeaderSizeOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function BackColorAllShowOp(op As Long, Optional v As OLE_COLOR = vbWhite, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackColorExtModeOp(op As Long, Optional v As OLE_COLOR = &H80FFFF, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackColorFilesOp(op As Long, Optional v As OLE_COLOR = vbCyan, Optional PRBG As PropertyBag) As OLE_COLOR Private Function BackColorFoldersOp(op As Long, Optional v As OLE_COLOR = vbGreen, Optional PRBG As PropertyBag) As OLE_COLOR Private Function ColumnHeaderSizeOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ComResize(rWidthTwips As Single, rHeightTwips As Single) Private Function CurpathChkCansel(rPath As String) Private Function CurPathOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function CurPathSelfChangeOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function EnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ExButtonUserOp(op As Long, Optional v As EnumSansanExBtn = SansanExBtnFolderDlg, Optional PRBG As PropertyBag) As Long Private Function ExtFilterCurrentOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ExtMenuStrsAddChkSpace(v As String) As String Private Function ExtMenuStrsChgCuter(改行から縦線100_縦線から改行101 As Long, v As String) As String Private Function ExtMenuStrsItem(v As String) As Boolean Private Function ExtMenuStrsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ExtMenuStrsSpaceChg(全半300半全301 As Long, v As String) As String Private Function FolderFileRunOnDblClickOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function FontOp(op As Long, Optional v As Font, Optional PRBG As PropertyBag) As Font Private Function ForeColorAllShowOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function ForeColorExtModeOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function ForeColorFilesOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function ForeColorFoldersOp(op As Long, Optional v As OLE_COLOR = vbBlack, Optional PRBG As PropertyBag) As OLE_COLOR Private Function HideSelectionOp(op As Long, Optional v As Boolean = False, Optional PRBG As PropertyBag) As Boolean Private Function IniDataUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ItemCountTipShowModeOp(op As Long, Optional v As Long = 0, Optional PRBG As PropertyBag) As Long Private Function MenuDlgExtMenuShowEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function MenuFileNameCopyVisiblesOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function mfDatasReadWrite(op As Long, Optional PRBG As PropertyBag) Private Function mfDelete(rwUserData As String, rEntry As String) As Boolean Private Function mfOwnMake(Optional rwUserData As String, Optional rAppPath As String, Optional rAppEXEName As String, Optional rEntry As String) As Boolean Private Function mfUserListViewMakeImageReset() As Boolean Private Function MultiSelectOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function OcxPostSizeGetSet(DataGet0_ObjSet1 As Long) Private Function OcxPostSizeOp(op As Long, rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Function OLEDragEnabledOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function papIniFileFullNameOp(op As Long, AppPath As String, AppEXEName As String) As String Private Function papOCXAppRunModeOp(op As Long, v As Boolean) As Boolean Private Function papOCXFirstShowDoneOp(op As Long, v As Boolean) As Boolean Private Function papOCXUserModeOp(op As Long, v As Boolean) As Boolean Private Function papPctBoxWndMovingIsOp(op As Long, v As Boolean) As Boolean Private Function pItemCountFileOp(op As Long, rAllCount As Boolean, Optional v As Long = 0) As Long Private Function pItemCountFolderOp(op As Long, rAllCount As Boolean, Optional v As Long = 0) As Long Private Function pItemCountOp(op As Long, rAllCount As Boolean, Optional v As Long = 0) As Long Private Function PopMenuUseOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function PropertysDataStrOp(op As Long, Optional v As String, Optional n As Long) As String Private Function ReFolderFontColorDataOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderItemsMaxOp(op As Long, Optional v As Long = 200, Optional PRBG As PropertyBag) As Long Private Function ReFolderListDataStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function ReFolderWndLvwColSizeTwipsOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function RestoreDataRW(Reset100_SaveState101_RestoreState102 As Long, rPath As String) Private Function RestoreDataStrOp(op As Long, Optional v As String = "", Optional PRBG As PropertyBag) As String Private Function RestoreViewStateOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function SelectedItemIndexOp(op As Long, Optional v As Long = 0) As Long Private Function SortKeyColumnOp(op As Long, Optional v As Long = 0, Optional PRBG As PropertyBag) As Long Private Function SortTopToLastOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function UseFoldersBarOp(op As Long, Optional v As Boolean = True, Optional PRBG As PropertyBag) As Boolean Private Function ViewModeOp(op As Long, Optional v As Long = 3, Optional PRBG As PropertyBag) As Long Private Function zColorSetDlgShow() Private Function zComLoading() As Boolean Private Function zFileOrFolderRun(opIndex As Long, pf As String, ThisIsFile As Boolean) Private Function zFindHisIndexByPath(op As Long, his() As HisViewState, rPath As String) As Long Private Function zFoldersBarOp(op As Long, Optional Index As Integer, Optional Button As Integer, Optional Shift As Integer, Optional X As Single, Optional Y As Single) Private Function zFolderViewSet(Optional rPath As String = "c:\") As Boolean Private Function zHisPathOp(Reset0_MenuEn1_MenuClick2_PathChgAfter3 As Long, Optional rPath As String) As String Private Function zHisPropsSet(hisDT As HisViewState, rPath As String, rViewMode As Long, rExtFilterCurrent As String, rSortKeyColumn As Long, rSortTopToLast As Boolean, rColumnHeaderSize As String) Private Function zIsAmbientUseOK() As Boolean Private Function zItemData(item As ListItem, 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 Private Function zListViewLabeSet() Private Function zMenuOp(op As Long, rFromView0FromItem1 As Long, Optional rMenuIndex As Integer, Optional rMenuCap As String, Optional rMenuName As String, Optional X As Single = -1, Optional Y As Single = -1, Optional ExPopMenu As Menu) Private Function zOnSortItemStrChg(op As Long, rListItems As ListItems) As Boolean Private Function zPropsSetWithFlagSet(rPath As String, rViewMode As Long, rExtFilterCurrent As String, rSortKeyColumn As Long, rSortTopToLast As Boolean, rColumnHeaderSize As String) Private Function zSortDo() Private Function zzReFolderCom(op As Long, Optional wCount As Long, Optional rwData As String, Optional PRBG As PropertyBag, Optional defval As String, Optional propstr As String, Optional propidx As Long) As String Private Property Get ExtMenuStrsDEF() As String Private Property Get ExtMenuStrsText() As String Private Property Get ExtMenuStrsTextDEF() As String Private Property Get OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single) As Boolean Private Property Get pItemCount(rAllCount As Boolean) As Long Private Property Get pItemCountFile(rAllCount As Boolean) As Long Private Property Get pItemCountFolder(rAllCount As Boolean) As Long Private Property Get PropertysDataIniReadOK() As Boolean Private Property Get PropertysDataStrCount() As Long Private Property Let ExtMenuStrsText(ByVal v As String) Private Property Let OcxPostSize(rwLeft As Single, rwTop As Single, rwWidth As Single, rwHeight As Single, ByVal v As Boolean) Private Property Let pItemCount(rAllCount As Boolean, v As Long) Private Property Let pItemCountFile(rAllCount As Boolean, v As Long) Private Property Let pItemCountFolder(rAllCount As Boolean, v As Long) Private Property Let PropertysDataIniReadOK(v As Boolean) Private Property Let PropertysDataStrCount(n As Long) Private Sub lblary_DblClick(Index As Integer) Private Sub lblary_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lblary_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lvw_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader) Private Sub lvw_DblClick() Private Sub lvw_ItemClick(ByVal item As ComctlLib.ListItem) Private Sub lvw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lvw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lvw_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Private Sub lvw_OLEStartDrag(Data As ComctlLib.DataObject, AllowedEffects As Long) Private Sub mFontSetDlg_FontCurGet(wFont As stdole.StdFont) Private Sub mFontSetDlg_FontSetDo(ByVal rFont As stdole.StdFont) Private Sub mHateFolder_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) Private Sub mnuCurItemDo_Click(Index As Integer) Private Sub mnuCurItemDoUser_Click(Index As Integer) Private Sub mnuPopDriveMenu_Click(Index As Integer) Private Sub mnuPopPathDo_Click(Index As Integer) Private Sub mnuPopPathDoExt_Click(Index As Integer) Private Sub mnuPopPathMenu_Click(Index As Integer) Private Sub mnuPopPathUp_Click(Index As Integer) Private Sub mnuViewDo_Click(Index As Integer) Private Sub mnuViewDo1_Click(Index As Integer) Private Sub mnuViewDo2_Click(Index As Integer) Private Sub mnuViewDoExt_Click(Index As Integer) Private Sub mnuViewDoExtEx_Click(Index As Integer) Private Sub mnuViewDoUser_Click(Index As Integer) Private Sub mnuViewSelect_Click(Index As Integer) Private Sub ReBtn_Click() Private Sub UserControl_Initialize() Private Sub UserControl_InitProperties() Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Private Sub UserControl_Resize() Private Sub UserControl_Show() Private Sub UserControl_Terminate() Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Private Sub zmnuUserSet(rFromView0FromItem1 As Long, wM1 As Menu, wM2 As Menu, wM3 As Menu, wM4 As Menu, wMline As Menu) 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 *************************************************************************