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 = "ＭＳ Ｐゴシック", 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
*************************************************************************