Huluhulu フォルダとファイルの選択コントロール   AC2020VB5ヘルプ目次
フォルダとファイルの選択に使用できます。
ウインドウ内に常時表示し続けることができます。
必要であれば、専用の ini ファイルで、前回終了時の状態を復元できます。
このコントロール内に、他のコントロールを配置できます。


Huluhulu プロパティ
Archive BackColor BackStyle BorderColor
BorderType BorderWidth Captions CurFileTitle
CurPath CurPathFile Enabled Enableds
FileBackColor FileForeColor FileList FileListCount
FileListIndex FilePattern FilePatternDelBtnColor FilePatternListStr
FolderBackColor FolderForeColor Font Hidden
IniDataUse LabelBackColor LabelDataType LabelForeColor
Normal OldDrivesPath OLEDragEnabledFile OLEDropEnabledFile
PartsCaption PartsEnabled PartsSizeData PartsVisible
PropertysDataStr ReAddOnFileDBLClick ReFileBtnCaption ReFileBtnUse
ReFileFontColorData ReFileItemsMax ReFileListDataStr ReFileWndLvwColSizeTwips
ReFolderBtnCaption ReFolderBtnUse ReFolderFontColorData ReFolderItemsMax
ReFolderListDataStr ReFolderWndLvwColSizeTwips SizeAutoZoom SizeDatas
SizeZoomType System TipHelpUse Visibles
VBの標準プロパティ
Container DragIcon DragMode Height HelpContextID Index Left Name Object Parent TabIndex TabStop Tag ToolTipText Top Visible WhatsThisHelpID Width

Huluhulu メソッド
FilePatternAdd FilePatternCurDelete FilePatternFindSet FilePatternVB
ReAddFile ReAddFolder ReAddFolderAndFile Refresh
VBの標準メソッド
Drag Move SetFocus ShowWhatsThis

Huluhulu イベント
CurFileChange CurPathChange FileBoxDblClick FilePatternChange
FirstShow OleEventDragDrop OleEventDragOver QueryIniFileName
Resize
VBの標準イベント
DragDrop DragOver GotFocus LostFocus

このコントロール専用の定数 デザイン設定プロパティページ
色の設定プロパティページ ポップアップ パスメニュー
Re List Dialog プロパティページ フォントとカラーを設定ダイアログ
OLEDragDrop 関連メソッドの使用方法
AC2020VB5PublicFunc.html


Huluhulu プロパティ



Huluhulu
Property Get / Let Archive As Boolean  [規定値] True
Archive 属性のファイルをファイルリストに表示する/しない。
Hidden  Normal  System


Huluhulu
Property Get / Let BackColor As OLE_COLOR  [規定値] vbButtonFace
コントロール全体の背景色。
BackStyle  BorderColor  BorderType


Huluhulu
Property Get / Let BackStyle As EnumHuluhuluBackStyle  [規定値] Huluhulu_Backsolid
コントロールの背景が透明/不透明。
'BackStyle 定数
Public Enum EnumHuluhuluBackStyle
    Huluhulu_BackTransparent = 0  '透明
    Huluhulu_BackSolid = 1     '塗りつぶし
End Enum
BorderType  BackColor


Huluhulu
Property Get / Let BorderColor As OLE_COLOR  [規定値] vbButtonShadow
コントロールのフラットな外枠の色。
BorderType  BorderWidth


Huluhulu
Property Get / Let BorderType As EnumHuluhuluBorder  [規定値] HuluhuluBorder3DLine (3D外枠)
コントロール全体の外枠の状態、3D外枠、フラットな枠、枠なし、を設定。
BorderType 定数
Public Enum EnumHuluhuluBorder
    HuluhuluBorderNone = 0   '境界線も境界線関連の要素も表示されません。
    HuluhuluBorderSingle = 1  'コントロールの周囲にはフラットな境界線が表示されます。
    HuluhuluBorder3DLine = 2  'コントロールの周囲には 3D の境界線が表示されます。
End Enum
BackStyle  BorderWidth  BorderColor


Huluhulu
Property Get / Let BorderWidth As EnumHuluhuluBorderWidth  [規定値] HuluhuluBorderWidth_2_pixel
コントロールのフラットな外枠境界線の太さをピクセル単位で取得/設定。
BorderWidth 定数
Public Enum EnumHuluhuluBorderWidth
  HuluhuluBorderWidth_1_pixel = 1
  HuluhuluBorderWidth_2_pixel = 2
  HuluhuluBorderWidth_3_pixel = 3
  HuluhuluBorderWidth_4_pixel = 4
  HuluhuluBorderWidth_5_pixel = 5
  HuluhuluBorderWidth_6_pixel = 6
  HuluhuluBorderWidth_7_pixel = 7
  HuluhuluBorderWidth_8_pixel = 8
  HuluhuluBorderWidth_9_pixel = 9
  HuluhuluBorderWidth_10_pixel = 10
End Enum
BorderColor  BorderType


Huluhulu
Property Get / Let Captions As String  [規定値] "*|P|*|*|*|F|*||"
コントロール内の部品のそれぞれのキャプションの配列を文字列にしたもの。
Caption のないコントロールの位置の文字列は " * "。
PartsCaption  Enableds  SizeDatas  Visibles


Huluhulu
Property Get CurFileTitle As String  [規定値] ""
このコントロールで選択されているファイルのタイトル名。パス名は含みません。
選択ファイルがない場合は "" になります。
読み出し専用です。
CurPathFile  CurFileChange


Huluhulu
Property Get / Let CurPath As String  [規定値] CurDir$
コントロールで選択されているフォルダのフルパス名。
CurPathFile  OldDrivesPath  CurPathChange


Huluhulu
Property Get / Let CurPathFile As String  [規定値] ""
このコントロールで選択されているファイルの、タイトル名を含むフルパス名。
選択ファイルがない場合は "" になります。
CurPath  CurFileTitle  CurFileChange


Huluhulu
Property Get / Let Enabled As Boolean  [規定値] True
コントロール全体の使用を、許可/禁止。
Enableds  PartsEnabled


Huluhulu
Property Get / Let Enableds As String  [規定値] "11111111"
コントロール内の部品のそれぞれの Enabled を文字列にしたもの。
各コントロールの配列上の位置の文字が
"1" であれば、Enabled = True になり、
"0" であれば Enabled = False になります。
PartsEnabled  Enabled


Huluhulu
Property Get / Let FileBackColor As OLE_COLOR  [規定値] vbWindowBackground
ファイルグループのウィンドウの背景色。
FileForeColor


Huluhulu
Property Get / Let FileForeColor As OLE_COLOR  [規定値] vbWindowText
ファイルグループのウインドウの文字色。
FileBackColor


Huluhulu
Property Get FileList(Index As Long) As String
ファイルリストボックスの Index の位置のファイルタイトル。
Index = -1 では "" になります。
読み出し専用です。
FileListIndex  FileListCount  CurFileTitle


Huluhulu
Property Get FileListCount As Long
ファイルリストボックスのリストアイテムの数。
読み出し専用です。
FileListIndex  FileList  FilePattern


Huluhulu
Property Get FileListIndex As Long
ファイルリストボックスの選択リストのインデックス。0 〜 FileListCount-1
読み出し専用です。
FileList  FileListCount  FilePattern


Huluhulu
Property Get / Let FilePattern As String  [規定値] "*"
ファイルリストボックスの拡張子フィルターに指定する文字列。
例 "txt wri log" それぞれの拡張子を半角スペースで区切って指定します。
ワイルドカード *. の文字列は不要です。
FilePatternChange  FilePatternVB  FilePatternAdd  FilePatternCurDelete  FilePatternFindSet  FileListCount


Huluhulu
Property Get / Let FilePatternDelBtnColor As OLE_COLOR  [規定値] vbYellow
拡張子フィルターコンボボックスの、現在の選択リストのフィルターを、削除するラベルボタンの色。
FilePatternListStr  FilePatternCurDelete  FilePatternAdd


Huluhulu
Property Get / Let FilePatternListStr As String  [規定値] "*|txt wri|htm html url|bas frm cls|ico bmp|doc rtf|ini inf|gif jpg jpeg|c cpp h|java"
拡張子フィルターコンボボックスの、フィルターのリストを、特別な変換をして文字列にしたもの。
"|" と "|" の間に、1つの拡張子あるいは、複数のファイル拡張子を半角スペースで区切って、設定できます。
ワイルドカード *. の文字列は不要です。
FilePatternAdd  FilePatternCurDelete  FilePatternFindSet  FilePatternDelBtnColor


Huluhulu
Property Get / Let FolderBackColor As OLE_COLOR  [規定値] vbWindowBackground
フォルダグループのウィンドウの背景色。
FolderForeColor


Huluhulu
Property Get / Let FolderForeColor As OLE_COLOR  [規定値] vbWindowText
フォルダグループのウインドウの文字色。
FolderBackColor


Huluhulu
Property Get / Set Font As Font  [規定値] コントロールの親フォーム/親コントロールのフォント
コントロール全体の表示用フォントを取得/設定。


Huluhulu
Property Get / Let Hidden As Boolean  [規定値] False
Hidden 属性のファイルをファイルリストに表示する/しない。
Archive  Normal  System


Huluhulu
Property Get / Let IniDataUse As Boolean  [規定値] True
Ini ファイルのデーターを使用する/しない。
QueryIniFileName に応答して、Ini ファイルを使用するように基本設定をしていても、
特別な状況で、一時的に Ini ファイルのデーターを使用しない場合は、このプロパティを False に設定します。
QueryIniFileName


Huluhulu
Property Get / Let LabelBackColor As OLE_COLOR  [規定値] vbWindowBackground
ファイルラベルのウィンドウの背景色。
LabelForeColor


Huluhulu
Property Get / Let LabelDataType As EnumHuluhuluLabelDataType  [規定値] HuluhuluLabelFullPath
ファイルラベルの表示モード。
LabelDataType 定数
Public Enum EnumHuluhuluLabelDataType
    HuluhuluLabelFullPath = 0 'フォルダのフルパスとファイルタイトルを表示。
    HuluhuluLabelFolderName = 1 'フォルダのフルパスだけを表示。
    HuluhuluLabelFileTitle = 2 'ファイルタイトルだけを表示。
End Enum
CurPathFile  CurPath  CurFileTitle  CurPathChange  CurFileChange


Huluhulu
Property Get / Let LabelForeColor As OLE_COLOR  [規定値] vbWindowText
ファイルラベルのウィンドウの文字色。
LabelBackColor


Huluhulu
Property Get / Let Normal As Boolean  [規定値] True
Normal 属性のファイルをファイルリストに表示する/しない。
Archive  Hidden  System


Huluhulu
Property Get / Let OldDrivesPath As String  [規定値] ""
ドライブが変更される直前に、そのドライブのカレントフォルダを保存し、
そのドライブが再選択されたときに、保存したカレントフォルダを表示します。
全てのドライブにたいして、この保存と読み出しをするために、
複数のフォルダパス名が "|" で区切って連結して保存されます。
例 "c:\xxx|d:\yyyy|e:\zzzz\zzz|"
このプロパティは、ドライブが変更されるごとに、その時点のカレントフォルダ名に書き換えられるので、
デザイン時にこのプロパティを設定しても、最初のドライブ切り替え表示時にのみ有効で、
ドライブ内で選択フォルダを変更すると、次回には、デザイン時の設定は無効になります。
CurPath  CurPathChange


Huluhulu
Property Get / Let OLEDragEnabledFile As Boolean  [規定値] True
ファイルリストボックスから、ファイルドラッグを開始できる/できない。
OLEDropEnabledFile  CurPathFile


Huluhulu
Property Get / Let OLEDropEnabledFile As Boolean  [規定値] True
フォルダボックス/ファイルリストボックスへ、他の位置からファイルをドラッグドロップできる/できない。
OleEventDragDrop  OleEventDragOver  CurPathChange  CurFileChange  OLEDragEnabledFile


Huluhulu
Property Get / Let PartsCaption(ByVal rPartsID As EnumHuluhuluPartsID) As String
コントロール内の部品のそれぞれの Caption を個別に設定/取得します。
EnumHuluhuluPartsID の定数を使用して、各コントロールを識別します。
Property PartsXXXX()メソッドに使用する定数 EnumHuluhuluPartsID
Public Enum EnumHuluhuluPartsID
  HuluhuluPartsドライブ = 1
  HuluhuluPartsフォルダ履歴 = 2
  HuluhuluPartsフォルダ = 3
  HuluhuluParts拡張子 = 4
  HuluhuluParts拡張子削除 = 5
  HuluhuluPartsファイル履歴 = 6
  HuluhuluPartsファイル = 7
  HuluhuluPartsパスラベル = 8
End Enum
Captions


Huluhulu
Property Get / Let PartsEnabled(ByVal rPartsID As EnumHuluhuluPartsID) As Boolean
コントロール内の部品のそれぞれの Enabled を個別に設定/取得します。
EnumHuluhuluPartsID の定数を使用して、各コントロールを識別します。
Enableds  Enabled


Huluhulu
Property Get / 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) As Boolean
コントロール内の部品のそれぞれの SizeData を個別に設定/取得します。
EnumHuluhuluPartsID の定数を使用して、各コントロールを識別します。
'例 TmpBoolean = Huluhulu1.PartsSizeData(rPartsID, wX, wY, wWD, wHT) 'サイズデーターを取得。
'例 Huluhulu1.PartsSizeData(rPartsID, rx, rY, rWD, rHT) = True 'サイズデーターを設定。

SizeDatas  SizeAutoZoom  SizeZoomType  Resize


Huluhulu
Property Get / Let PartsVisible(ByVal rPartsID As EnumHuluhuluPartsID) As Boolean
コントロール内の部品のそれぞれの Visible を個別に設定/取得します。
EnumHuluhuluPartsID の定数を使用して、各コントロールを識別します。
Visibles


Huluhulu
Property Get / Let PropertysDataStr As String
コントロールのすべてのプロパティの文字列。
ユーザーアプリが、独自にコントロールの状態を保存し、後で読み出して状態を再現する場合に使用します。
ユーザーアプリの QueryIniFileName イベントで INI ファイル名 を設定すれば、
コントロールの状態の再現は、自動的に実行されます。
この場合、指定したファイル名の INI ファイルが、アプリケーションに唯一つだけ作成されます。
多数のコントロールを使用している場合には、INI ファイル 内にそれぞれのエントリーが作成されます。
QueryIniFileName


Huluhulu
Property Get / Let ReAddOnFileDBLClick As Boolean  [規定値] True
ファイルボックスで、ファイルをダブルクリックした場合に、
フォルダ/ファイル使用履歴ダイアログの、それぞれのリストに追加する/しない。
ReFolderBtnUse  ReFileBtnUse


Huluhulu
Property Get / Let ReFileBtnCaption As String  [規定値] "F"
ファイル使用履歴ダイアログを表示するボタンのキャプション。
PartsCaption  ReFileBtnUse


Huluhulu
Property Get / Let ReFileBtnUse As Boolean  [規定値] True
ファイル使用履歴ダイアログを表示するボタンを使用する/しない。
PartsEnabled  PartsVisible  ReFileBtnCaption


Huluhulu
Property Get / Let ReFileFontColorData As String  [規定値] ""
ファイル使用履歴ダイアログのフォント/背景色/文字色の全てのデーター。
未設定 = "" であれば、ダイアログの初期状態をそのまま使用。
ReFileBtnUse


Huluhulu
Property Get / Let ReFileItemsMax As Long  [規定値] 200
ファイル使用履歴ダイアログのリストの最大アイテム数。
10〜500 の値で設定します。
ReFileBtnUse


Huluhulu
Property Get / Let ReFileListDataStr As String  [規定値] ""
ファイル使用履歴ダイアログのリストの、全てのデーターの文字列。
共有リストデーターを使用する場合は、このプロパティのデーターは使用されません。
ReFileItemsMax


Huluhulu
Property Get / Let ReFileWndLvwColSizeTwips As String  [規定値] ""
ファイル使用履歴ダイアログの位置とサイズと、リストビューコラムサイズのデーター、合計8個を連結した文字列。
ReFileBtnUse


Huluhulu
Property Get / Let ReFolderBtnCaption As String  [規定値] "P"
フォルダ使用履歴ダイアログを表示するボタンのキャプション。
PartsCaption  ReFolderBtnUse


Huluhulu
Property Get / Let ReFolderBtnUse As Boolean  [規定値] True
フォルダ使用履歴ダイアログを表示するボタンを使用する/しない。
PartsEnabled  PartsVisible  ReFolderBtnCaption


Huluhulu
Property Get / Let ReFolderFontColorData As String  [規定値] ""
フォルダ使用履歴ダイアログのフォント/背景色/文字色の全てのデーター。
未設定 = "" であれば、ダイアログの初期状態をそのまま使用。
ReFolderBtnUse


Huluhulu
Property Get / Let ReFolderItemsMax As Long  [規定値] 200
フォルダ使用履歴ダイアログのリストの最大アイテム数。
10〜500 の値で設定します。
ReFolderBtnUse


Huluhulu
Property Get / Let ReFolderListDataStr As String  [規定値] ""
フォルダ使用履歴ダイアログのリストの、全てのデーターの文字列。
共有リストデーターを使用する場合は、このプロパティのデーターは使用されません。
ReFolderItemsMax


Huluhulu
Property Get / Let ReFolderWndLvwColSizeTwips As String  [規定値] ""
フォルダ使用履歴ダイアログの位置とサイズと、リストビューコラムサイズのデーター、合計8個を連結した文字列。
ReFolderBtnUse


Huluhulu
Property Get / Let SizeAutoZoom As Boolean  [規定値] True
コントロール全体のサイズが変更される場合に、それぞれの部品も同じ比率で、移動/拡大/縮小するようにします。
SizeZoomType  SizeDatas  PartsSizeData  Resize


Huluhulu
Property Get / Let SizeDatas As String  [規定値] ■規定値の設定不一致 SizeDatas "" /
コントロール内の全ての部品の、それぞれの位置とサイズを文字列にして連結したもの。
PartsSizeData  SizeAutoZoom  SizeZoomType  Resize


Huluhulu
Property Get / Let SizeZoomType As EnumHuluhuluSizeZoomType  [規定値] HuluhuluSizeZoomXXYY (縦横両方にズームする)
コントロール内の部品が、ズーム (移動/拡大/縮小) する場合に、縦横両方/横方向だけ/縦方向だけ、のズームを選択指定。
SizeZoomType 定数
Public Enum EnumHuluhuluSizeZoomType
  HuluhuluSizeZoomXXYY = 0 '縦横両方にズームする
  HuluhuluSizeZoomXX = 1  '横方向にのみズームする
  HuluhuluSizeZoomYY = 2  '縦方向にのみズームする
End Enum
SizeAutoZoom  SizeDatas  Resize


Huluhulu
Property Get / Let System As Boolean  [規定値] False
System 属性のファイルをファイルリストに表示する/しない。
Archive  Hidden  Normal


Huluhulu
Property Get / Let TipHelpUse As Boolean  [規定値] True (チップヘルプを表示)
コントロール内の各部品のチップヘルプを表示/非表示。


Huluhulu
Property Get / Let Visibles As String  [規定値] "11111111"
コントロール内の部品のそれぞれの Visible を文字列にしたもの。
各コントロールの配列上の位置の文字が
"1" であれば、Visible = True になり、
"0" であれば Visible = False になります。
PartsVisible


Huluhulu メソッド



Huluhulu
Function FilePatternAdd(ByVal rAddPattern As String, Optional rSetTop As Boolean = True)
拡張子フィルターコンボボックスに、単一あるいは複数の、新しい拡張子フィルターを追加する。
rAddPattern = 追加する新しい拡張子フィルター。
rSetTop = True であれば、リストの先頭に追加する。
例 Call FilePatternAdd("txt wri|bas frm cls vbp|bmp gif jpg", True)
FilePatternCurDelete  FilePatternFindSet  FilePatternChange  FilePatternVB


Huluhulu
Function FilePatternCurDelete(Optional rYesNoMsgBoxShow As Boolean = True)
拡張子フィルターコンボボックスの、現在の選択フィルターを、コンボボックスから削除する。
rYesNoMsgBoxShow = True であれば、削除確認のメッセージボックスを表示する。
FilePatternAdd  FilePatternFindSet  FilePatternChange  FilePatternVB


Huluhulu
Function FilePatternFindSet(ByVal rFindPattern As String, Optional rSetStdPatternIfNon As Boolean = True)
拡張子フィルターコンボボックスで、指定した拡張子フィルター rFindPattern を、現在の拡張子フィルターにする。
rFindPattern は1つの拡張子フィルターだけにする。複数の拡張子フィルターは無効になる。
rSetStdPatternIfNon = True であれば、見つからなければ * を設定する。
rSetStdPatternIfNon = False であれば、見つからなければ rFindPattern を追加して設定する。
例 Call FilePatternFindSet("txt wri", True)
FilePatternAdd  FilePatternCurDelete  FilePatternChange  FilePatternVB


Huluhulu
Function FilePatternVB(ByVal rThisControlFilePattern As String, Optional ByVal rLCaseIsTrue As Boolean = True) As String
このコントロール専用の拡張子フィルター文字列を、VB の既定のフォーマットの文字列に変換する。
rLcaseIsTrue = True であれば小文字にして返す。False であれば大文字にして返す。
変換の例 "txt wri bas" ---> "*.txt;*.wri;*.bas" or "*.TXT;*.WRI;*.BAS"
FilePattern  FilePatternListStr


Huluhulu
Function ReAddFile(rFile As String) As Boolean
ファイル使用履歴ダイアログのリストの先頭に、フルパス名の rFile ファイルを追加する。
ReAddFolder  ReAddFolderAndFile  ReFileBtnUse


Huluhulu
Function ReAddFolder(rFolder As String) As Boolean
フォルダ使用履歴ダイアログのリストの先頭に、フルパス名の rFolder フォルダを追加する。
ReAddFile  ReAddFolderAndFile  ReFolderBtnUse


Huluhulu
Function ReAddFolderAndFile(rFileOrPath As String) As Boolean
ファイル/フォルダ使用履歴の、それぞれのダイアログのリストの先頭に、
フルパス名の rFileOrPath ファイルと、そのフォルダを追加する。
ReAddFile  ReAddFolder  ReFolderBtnUse  ReFileBtnUse


Huluhulu
Function Refresh()
コントロールの、フォルダリストやファイルリストを、最新のシステムの状態に合わせて更新します。
フォルダやファイルが削除された後、コントロールがその状態を表示できない場合、このメソッドを呼び出します。
CurPathChange  CurFileChange



Huluhulu イベント



Huluhulu
Event CurFileChange(ByVal rCurPathFile As String, ByVal rCurPath As String, ByVal rCurFileTitle As String)
現在の選択ファイルが変更された後で発生します。
rCurPathFile = ファイルタイトルを含むフルパス名。
rCurPath = ファイルのフォルダのフルパス名。
rCurFileTitle = ファイルのタイトル名。
これらの引数は、すべて "" になる場合もあります。
CurPathChange  CurPath  CurFileTitle  CurPathFile


Huluhulu
Event CurPathChange(ByVal rCurPath As String)
現在の選択フォルダが変更された後で発生します。
rCurPath = フォルダのフルパス名。
CurFileChange  CurPath  OldDrivesPath  CurFileTitle  CurPathFile


Huluhulu
Event FileBoxDblClick(ByVal rCurPathFile As String, ByVal rCurPath As String, ByVal rCurFileTitle As String)
ファイルリストボックスの、現在の選択ファイルが、ダブルクリックされました。
rCurPathFile = ファイルタイトルを含むフルパス名。
rCurPath = ファイルのフォルダのフルパス名。
rCurFileTitle = ファイルのタイトル名。
CurPath  CurFileTitle  CurPathFile


Huluhulu
Event FilePatternChange(ByVal rFilePattern As String, ByVal rFilePatternVB As String)
拡張子フィルターコンボボックスの、現在の選択フィルターが変更されました。
rFilePattern = 新しい選択フィルター              例 "txt wri bas"
rFilePatternVB = 新しい選択フィルターを VB 形式にしたもの。 例 "*.txt;*.wri;*.bas"
FilePatternFindSet  FilePatternAdd  FilePatternCurDelete  FilePatternVB


Huluhulu
Event FirstShow(wOldCurPathFile As String)
コントロールが最初に表示される直前に QueryIniFileName イベントの後に呼び出されます。
INI ファイル のデーターでプロパティが再設定されため、コントロールや親フォームの状態変更が必要になる場合に使用します。
wOldCurPathFile にフルパスのファイル名を設定すれば、そのファイル名でこのコントロールを初期化します。
QueryIniFileName  CurPathFile


Huluhulu
Event OleEventDragDrop(wCancel As Boolean, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
このコントロールにドラッグドロップされた後、最初にユーザーに通知して、ユーザーのカスタム処理の機会を提供します。
wCancel = True に設定すれば、この呼出し後に実行される自動設定を禁止できます。
wCancel = False のまま返されれば、ファイル名のデーターが入っていれば、そのファイルをコントロールの現在の選択に設定します。
OLEDropEnabledFile  OleEventDragOver


Huluhulu
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)
このコントロールのドラッグオーバーイベントで、最初にユーザーに通知して、ユーザーのカスタム処理の機会を提供します。
wCancel = True に設定すれば、この呼出し後に実行される自動設定を禁止できます。
wCancel = False のまま返されれば、ファイル名のデーターが入っていれば、Effect = vbDropEffectCopy、なければ Effect = vbDropEffectNone に自動的に設定します。
OLEDropEnabledFile  OleEventDragDrop


Huluhulu
Event QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String)
このイベントは、コントロールの状態を、次回の起動時に復元させるために使用します。
コントロールが最初に表示される直前に INI ファイル のフォルダ名とファイル名を要求します。
ファイル名を指定した場合、そのファイル名の INI ファイル が、アプリケーションに唯一つだけ作成されます。
複数コントロールの使用では、INI ファイル内に各エントリー wOwnerFormName + ThisControl.Name が作成されます。
INI ファイル に有効なプロパティデーターがあれば、そのデーターでプロパティを再設定します。
また、次回にプロパティの変更内容を再使用できるように、コントロールを破棄する時に INI ファイル を自動保存します。
INI ファイルの規定の拡張子は iniACTX で変更できません。
wAppPath には保存するフォルダのフルパス名を指定します。
wAppEXEName にはファイル名を指定します。
wOwnerFormName には、コントロールが存在するフォームの .Name を指定します。もしあれば .Index も文字列にして連結して指定します。
これらの文字列の設定をしない場合には、INI ファイルは作成されず、コントロールの状態は保存されずにすべて消失します。
ただし、ユーザー自身がデーターを保存する場合には、PropertysDataStr の文字列を使用して、コントロールの状態を保存できます。
Private Sub Huluhulu1_QueryIniFileName(wAppPath As String, wAppEXEName As String, wOwnerFormName As String)
    'INI ファイルを使用して、コントロールの状態を保存/再現する場合は、通常以下のコーディングを使用します。
    wAppPath = App.path: wAppEXEName = App.EXEName: wOwnerFormName = Me.Name
End Sub
IniDataUse  PropertysDataStr  FirstShow  ReFolderListDataStr  ReFileListDataStr


Huluhulu
Event Resize()
コントロール全体のサイズが変更された直後に発生します。
SizeDatas  SizeAutoZoom






Huluhulu
このコントロール専用の定数
Public Enum EnumHuluhuluBorder
    HuluhuluBorderNone = 0 '0 = 境界線も境界線関連の要素も表示されません。
    HuluhuluBorderSingle = 1 '1 = コントロールの周囲にはフラットな境界線が表示されます。
    HuluhuluBorder3DLine = 2 '2 = コントロールの周囲には 3D の境界線が表示されます。
End Enum
'外枠の幅
Public Enum EnumHuluhuluBorderWidth
    HuluhuluBorderWidth_1_pixel = 1
    HuluhuluBorderWidth_2_pixel = 2
    HuluhuluBorderWidth_3_pixel = 3
    HuluhuluBorderWidth_4_pixel = 4
    HuluhuluBorderWidth_5_pixel = 5
    HuluhuluBorderWidth_6_pixel = 6
    HuluhuluBorderWidth_7_pixel = 7
    HuluhuluBorderWidth_8_pixel = 8
    HuluhuluBorderWidth_9_pixel = 9
    HuluhuluBorderWidth_10_pixel = 10
End Enum
'BackStyle 定数
Public Enum EnumHuluhuluBackStyle
    Huluhulu_BackTransparent = 0 '透明
    Huluhulu_Backsolid = 1 '塗りつぶし
End Enum
'ラベルデーター表示モードを取得/設定
Public Enum EnumHuluhuluLabelDataType
    HuluhuluLabelFullPath = 0
    HuluhuluLabelFolderName = 1
    HuluhuluLabelFileTitle = 2
End Enum
'SizeZoomType 定数
Public Enum EnumHuluhuluSizeZoomType
    HuluhuluSizeZoomXXYY = 0 '縦横両方にズームする
    HuluhuluSizeZoomXX = 1  '横方向にのみズームする
    HuluhuluSizeZoomYY = 2  '縦方向にのみズームする
End Enum
'Property PartsXXXX() 用の定数
Public Enum EnumHuluhuluPartsID
    HuluhuluPartsドライブ = 1
    HuluhuluPartsフォルダ履歴 = 2
    HuluhuluPartsフォルダ = 3
    HuluhuluParts拡張子 = 4
    HuluhuluParts拡張子削除 = 5
    HuluhuluPartsファイル履歴 = 6
    HuluhuluPartsファイル = 7
    HuluhuluPartsパスラベル = 8
End En
BorderType  BorderWidth  BackStyle  LabelDataType  PartsCaption  PartsEnabled  PartsSizeData  PartsVisible


Huluhulu
デザイン設定プロパティページ
このコントロールの部品の位置とサイズ、文字列、Enabled、Visible、等を設定します。
赤い枠線をドラッグして、位置とサイズを変更できます。
黄色いチップをドラッグしてコントロール全体のサイズを変更できます。
[] ボタンをクリックすれば、非表示になっているコントロールを、再表示できます。
フォーム左上隅の黄色いラベル  をクリックして、チップヘルプを表示できます。

SizeDatas  Captions   Visibles  Enableds


Huluhulu
色の設定プロパティページ
このコントロールの色をまとめて設定します。
フォーム左上隅の黄色いラベル をクリックして、チップヘルプを表示できます。

BackColor  BorderColor  FilePatternDelBtnColor  FolderBackColor  FileForeColor  FolderBackColor  FolderForeColor  LabelBackColor  LabelForeColor


Huluhulu
ポップアップ パスメニュー
フォルダボックスのリスト、ファイルボックスのリスト、をマウスで右クリックすれば表示されます。
フォルダやファイルのフルパス名が、階層形式のメニューで表示されます。
それらのメニューをマウスクリックすれば、フォルダやファイルを直接実行できます。

CurPathFile  CurPath  FileList


Huluhulu
Re List Dialog プロパティページ
フォルダ/ファイル使用履歴ダイアログのプロパティを設定します。
フォーム左上隅の黄色いラベル  をクリックして、チップヘルプを表示できます。

ReFolderBtnUse  ReFolderBtnCaption  ReFolderFontColorData  ReFolderItemsMax
ReFolderListDataStr  ReFolderWndLvwColSizeTwips
ReFileBtnUse  ReFileBtnCaption  ReFileFontColorData  ReFileItemsMax
ReFileListDataStr  ReFileWndLvwColSizeTwips


Hulhulu
フォントとカラーを設定ダイアログ
Re List Dialog ダイアログのリストのフォント/背景色/文字色の全てを設定します。
設定値は ReFileFontColorData ReFolderFontColorData プロパティとして保存されます。
フォーム左上隅の黄色いラベル  をクリックして、チップヘルプを表示できます。

ReFileFontColorData  ReFolderFontColorData  Re List Dialog プロパティページ


Huluhulu
OLEDragDrop 関連メソッドの使用方法
このコントロールから他のコントロールへ、フォルダ名とファイル名だけをドロップできます。
他のコントロールからは、このコントロールに、フォルダ名とファイル名だけをドロップできます。
フォルダ名ファイル名のドラッグデーターは、通常のコントロールでは自動作成され、このコントロールはそれらのデーターを受け取れます。
特別にフォルダ名ファイル名を設定する場合には、OLEDD コントロールのドラッグ開始用のメソッドで、
フォルダ名とファイル名を設定します。
例えば Text1 から、ファイル名をドラッグ開始する場合は、OLEStartDrag イベントで以下のように設定します。
Private Sub Text1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Dim rFiles() As String
    Redim rFiles(2)
    rFiles(1) = "C:\aaaa\bbbb.txt"
    rFiles(2) = "D:\cccccc\ddddddd.bmp"
    Call OLEDD1.OLEFilesDragStartSet(Data, AllowedEffects, rFiles())
End Sub
このコントロールが自動作成したドラッグデーターが、他のコントロールにドロップされた場合は、
以下のメソッドを使用して、複数のフォルダ名/ファイル名を取得できます。
Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim a As Long, rDoSortTrue As Boolean, rFullPathTrue As Boolean, wFolders() As String, wFiles() As String
    If OLEDD1.OLEFilesDragDropGet(Data, Effect, True, True, wFolders(), wFiles()) Then
        For a = 1 To UBound(wFolders()): Text2.SelText = "folder -- " + wFolders(a) + vbCrLf: Next
        For a = 1 To UBound(
wFiles()): Text2.SelText = "file --  " + wFiles(a) + vbCrLf: Next
    End If
End Sub
OLEDragEnabledFile  OLEDropEnabledFile  OleEventDragOver  OleEventDragDrop
OLEDD コントロール