Mozimozi フォント選択リストコントロール AC2020VB5ヘルプ目次
フォントの選択や設定が必要なアプリケーションに使用できます。
さまざまな形と色のフォントのサンプルを、リストボックス形式で表示し、
ユーザーアプリケーション内で、フォントを選択して設定できます。
アプリケーション実行中に、このコントロールのサイズを、自由に拡大、縮小できます。
必要であれば、専用の ini ファイルで、前回終了時の状態を復元できます。

Mozimozi プロパティ
VBの標準プロパティ
Container DragIcon DragMode Height HelpContextID Index Left Name Object Parent TabIndex TabStop Tag ToolTipText Top Visible WhatsThisHelpID Width
Mozimozi メソッド
VBの標準メソッド
Drag Move SetFocus ShowWhatsThis
Mozimozi イベント
VBの標準イベント
DragDrop DragOver GotFocus LostFocus
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi プロパティ


Mozimozi
Property Get / Let BackColor As OLE_COLOR [規定値] vbWhite
Property Get / Let MoziBackColor As OLE_COLOR
フォントリストの背景色。
AnyPropertyChanged
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let BorderType As Boolean [規定値] True (3D外枠)
コントロール全体のの3D外枠がある/ない。
False = 境界線も境界線関連の要素も表示されません。
True = コントロールの周囲には 3D の境界線が表示されます。
AnyPropertyChanged

Mozimozi
Property Get / Let ColumnWidth As Long [規定値] 60
Property Get / Let MoziColumnWidth As Long
フォントリストの列の幅の値。
この値が大きいと、フォントリストの領域に表示できるアイテムの数が減り、リストをスクロールさせる必要性が高くなります。
この値が小さければ、表示できるアイテムの数は増えますが、サンプル書体の表示部分が少なくなります。
ListCount ListCountMaxDEF AnyPropertyChanged PanelSlzeChange
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get ColumnWidthDEFMax As Long [定数値] 250
Property Get MoziColumnWidthDEFMax As Long
フォントリストの列の幅の最大値。
読み出し専用
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get ColumnWidthDEFMin As Long [定数値] 15
Property Get MoziColumnWidthDEFMin As Long
フォントリストの列の幅の最小値。
読み出し専用
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let CurListIndex As Long [規定値] 1
Property Get / Let MoziCurListIndex As Long
フォントリストで現在選択されているアイテムのインデックス。
1 から ListCount までの値。
CurrentListFont CurListFontChange CurListFontDblClick FontListChange HitListIndex
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get CurrentListFont(Optional wFontColor As Long, Optional wCurListIndex
As Long) As Font
Property Get MoziCurrentListFont(Optional wFontColor As Long, Optional wCurListIndex
As Long) As Font
フォントリストで現在選択されているアイテムの、フォントオブジェクトを返す。読み出し専用です。
wFontColor = フォントの色。
wCurListIndex = CurListIndex フォントリストのインデックスを返す。
CurListIndex CurListFontData CurListFontDblClick
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let DlgShowEnabled As Boolean [規定値] True (使用可能)
フォントリストのオプション設定 ダイアログの使用を、許可/禁止。
このダイアログを呼び出す、ポップアップメニュー 内の項目の使用を、許可/禁止します。
このダイアログで、フォントリストへのフォントの追加や削除、あるいはコントロールの外観や動作方式を変更できます。
DlgOptionShow PopMenuUse ポップアップメニュー AnyPropertyChanged

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

Mozimozi
Property Get FontDataLetter(ListIndex As Long) As String
Property Get MoziFontDataLetter(ListIndex As Long) As String
フォントリストの ListIndex 位置のフォントのデーター文字列。
フォントリスト内で表示されるチップヘルプの文字列と同じものです。
読み出し専用
FontDataTipUse
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let FontDataStrsAll As String [規定値] (初期化の時にフォントリストデーターを作成)
Property Get / Let MoziFontDataStrsAll As String
フォントリストの全てのアイテムのデーターの文字列。
このコントロールの各インスタンス間で、フォントリストを同期させる場合に使用できます。
Mozimozi2.FontDataStrsAll = Mozimozi1.FontDataStrsAll
PropertysDataStr FontListChange
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let FontDataTipUse As Boolean [規定値] True
Property Get / Let MoziFontDataTipUse As Boolean
フォントリスト内の、マウス位置のフォントのデーター文字列を、チップヘルプで表示/非表示。
FontDataLetter
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get FontSizeMaxDEF As Single [定数値] 256
Property Get MoziFontSizeMaxDEF As Single
コントロールで使用できる最大のフォントのサイズ。
読み出し専用
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get FontSizeMinDEF As Single [定数値] 8
Property Get MoziFontSizeMinDEF As Single
コントロールで使用できる最小のフォントのサイズ。
読み出し専用
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

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

Mozimozi
Property Get ListCount As Long
Property Get MoziListCount As Long
フォントリストの現在のアイテムの総数。
読み出し専用
CurListIndex FontListChange AddItemByFontObj AddItemByFontProperty ReMoveItem
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get ListCountIsFull As Boolean
Property Get MoziListCountIsFull As Boolean
フォントリストのアイテム数が、最大限界値であれば True を返す。
読み出し専用
ListCount
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get ListCountMaxDEF As Long [定数値] 200
Property Get MoziListCountMaxDEF As Long
フォントリストのアイテム数の最大限界値。
読み出し専用
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let OLEDragEnabled As Boolean [規定値] True (ドラッグ開始を許可)
Property Get / Let MoziOLEDragEnabled As Boolean
コントロールの、フォントデーターのドラッグ開始を、許可/禁止。
AnyPropertyChanged OleEventDragDrop OleEventDragOver
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Property Get / Let OLEDropEnabled As Boolean [規定値] True (ドラッグドロップを許可)
コントロールへのフォントデーターのドロップを、許可/禁止。
AnyPropertyChanged OleEventDragDrop OleEventDragOver

Mozimozi
Property Get / Let PopMenuUse As Boolean [規定値] True
ポップアップメニュー の使用を、許可/禁止。
MenuPopBeforeAfter ポップアップメニュー PopMenuShow AnyPropertyChanged コントロールのキー操作

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

Mozimozi
Property Get / Let SampleLetter As String [規定値] "123ABCあいう文字"
Property Get / Let MoziSampleLetter As String
フォントリストのサンプル書体が表示する文字列。
AnyPropertyChanged
◆IroMoziのヘルプに戻る◆

Mozimozi メソッド


Mozimozi
Function AddItemByFontObj(rFontObj As StdFont, Optional rFontColor
As Long = vbBlack, Optional rAddIndex As
Long = 0, Optional rRedraw As Boolean = True)
As Long
Function MoziAddItemByFontObj(rFontObj As StdFont, Optional rFontColor
As Long = vbBlack, Optional rAddIndex As
Long = 0, Optional rRedraw As Boolean = True)
As Long
指定したフォントオブジェクトで、フォントリストに、フォントを登録します。
rFontObj As StdFont = フォントオブジェクト
Optional rFontColor As Long = フォントの色 指定しなければ vbBlack
Optional rAddIndex As Long = フォントリストに登録するインデックス。指定しなければ、現在の選択位置。
Optional rRedraw As Boolean = True でフォントリストを強制再描画する。
AddItemByFontProperty ReMoveItem ListCount ListCountIsFull
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
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 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
指定した値でフォントリストに、フォントを登録します。
rFontName As String = フォントの名前、指定しなければ "MS
ゴシック"
rFontSize As Single = フォントのサイズ、指定しなければ 9
Optional rFontBold As Boolean = フォントボールド
Optional rFontItalic As Boolean = フォントイタリック
Optional rFontUnderline As Boolean = フォント下線
Optional rFontStrikethrough As Boolean =
フォント取消腺
Optional rFontColor As Long = フォントの色 指定しなければ vbBlack
Optional rAddIndex As Long = フォントリストに登録するインデックス。指定しなければ、現在の選択位置。
Optional rRedraw As Boolean = True でフォントリストを強制再描画します。
AddItemByFontObj ReMoveItem ListCount ListCountIsFull
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
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 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
フォントリストで、現在選択されているフォントのデーターを取得します。
wFontObj As StdFont が Nothing でなければ wFontObj に設定して返します。
wFontObj As StdFont が Nothing の場合にのみ、他のデーターの値を設定して返します。
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 =
フォント取消腺の値を返します。
CurListIndex CurrentListFont CurListFontChange CurListFontDblClick DblClickEventDo
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function DblClickEventDo() As Boolean
Function MoziDblClickEventDo() As Boolean
フォントリストの選択アイテムがダブルクリックされたイベントを発生させ、外部へのフォント設定をできるようにします。
CurrentListFont CurListIndex CurListFontData CurListFontDblClick コントロールのキー操作
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function DlgOptionShow()
Function MoziDlgOptionShow()
フォントリストのオプション設定 ダイアログを、プログラム内のコードで呼び出して、直接表示します。
ポップアップメニュー は使用しません。
このダイアログで、フォントリストへのフォントの追加や削除、あるいは外観や動作方式を変更できます。
DlgShowEnabled PopMenuUse PopMenuShow ポップアップメニュー
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function FontFontEqual(rFont1 As Font, rFont2 As Font, Optional
rFontColor1 As Long = -1, Optional rFontColor2
As Long = -1) As Boolean
Function MoziFontFontEqual(rFont1 As Font, rFont2 As Font, Optional
rFontColor1 As Long = -1, Optional rFontColor2
As Long = -1) As Boolean
rFont1 と rFont2 のプロパティデーターが等しければ True を返します。
rFontColor1 と rFontColor2 が指定されていれば、それらもデーター比較の対象にします。
CurrentListFont CurListFontData
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function FontListUpDown(op As Long, Optional wEnSet As Boolean,
Optional wEnDel As Boolean, Optional wEnUp
As Boolean, Optional wEnDown As Boolean)
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
フォントリストのリストアイテムを上下に移動します。あるいは、リストの移動、削除、外部への設定の Enabled を返します。
op = 0 リストの移動、削除、外部への設定の Enabled を返します。
Optional wEnSet As Boolean = 選択リストアイテムで外部に設定可能であれば
True を返す。
Optional wEnDel As Boolean = 選択リストアイテムが削除可能であれば
True を返す。
Optional wEnUp As Boolean = 選択リストアイテムが上に移動可能であれば
True を返す。
Optional wEnDown As Boolean = 選択リストアイテムが下に移動可能であれば
True を返す。
op = 1 選択リストアイテムを上に移動する。
op = 2 選択リストアイテムを下に移動する。
CurListIndex ListCount
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function FontRandomMake(wFont As StdFont, wColor As Long, Optional
rMaxSize As Single = 64)
Function MoziFontRandomMake(wFont As StdFont, wColor As Long, Optional
rMaxSize As Single = 64)
ランダムなデーターでフォントとカラーを作りだし、wFont
/ wColor に設定します。
rMaxSize はフォントサイズの最大値を指定します。
AddItemByFontObj
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function HitListIndex(Optional X As Single = -100000, Optional
Y As Single = -100000) As Long
Function MoziHitListIndex(Optional X As Single = -100000, Optional
Y As Single = -100000) As Long
フォントリストの X Y の座標位置のリストアイテムのインデックスを返します。
X Y を指定しなければ、現在のマウスポインタ位置の座標データーを、X
Y に使用します。
その位置が最後のリストを越えていれば、ListCount
+ 1 を返します。
エラーであれば、( リストウインドウの外側など、、)
−1を返します。
CurListIndex
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function PopMenuShow(Optional rTwipsScreenX As Single = -1, Optional
rTwipsScreenY As Single = -1)
Function MoziPopMenuShow(Optional rTwipsScreenX As Single = -1, Optional
rTwipsScreenY As Single = -1)
ポップアップメニュー をプログラム内のコードで呼び出して表示します。
rTwipsScreenX, rTwipsScreenY ポップアップメニュー
の表示位置、左肩の位置をスクリーン座標 Twips 単位で指定します。
rTwipsScreenX, rTwipsScreenY を指定しない、あるいは -1,
-1, を指定すれば、現在のマウスの位置に表示します。
PopMenuUse ポップアップメニュー コントロールのキー操作 MenuPopBeforeAfter
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Function ReMoveItem(Optional rRemoveIndex As Long = 0, Optional
rRedraw As Boolean = True, Optional rShowMsgBox
As Boolean = False) As Long
Function MoziReMoveItem(Optional rRemoveIndex As Long = 0, Optional
rRedraw As Boolean = True, Optional rShowMsgBox
As Boolean = False) As Long
指定したインデックス rRemoveIndex のフォントリストを削除します。
rRemoveIndex を指定しなければ、現在の選択インデックス
CurListIndex のフォントリストを削除します。
rShowMsgBox = True であれば、削除の確認メッセージボックスを表示します。
削除したリストのインデックスを返します。
削除したリストのインデックスが現在の選択
CurListIndex になり、その位置の新しいフォントを選択表示します。
全てのリストが削除された場合には、自動的に作られた既定フォントが1つ、フォントリストに追加されます。
フォントリストのアイテム数が、0になることはありません。
AddItemByFontObj AddItemByFontProperty ListCount CurListIndex コントロールのキー操作
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi イベント


Mozimozi
Event AnyPropertyChanged(ByVal rPropertyName As String)
Event MoziAnyPropertyChanged(ByVal rPropertyName As String)
フォントリストボックスのプロパティ rPropertyName
が変更されたときに発生します。
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Event CurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor
As Long, ByVal rCurListIndex As Long)
Event MoziCurListFontChange(rCurListFont As stdole.StdFont, ByVal rFontColor
As Long, ByVal rCurListIndex As Long)
フォントリストの選択フォントが変更されたときに発生します。
rCurListFont As StdFont = 選択フォントオブジェクト
rFontColor As Long = 選択フォントの色
rCurListIndex As Long = 選択リストのインデックス
CurListIndex CurrentListFont CurListFontData コントロールのキー操作
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Event CurListFontDblClick(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)
フォントリストの選択フォントがダブルクリックされたときに発生します。
CurListIndex CurrentListFont CurListFontData DblClickEventDo コントロールのキー操作
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

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

Mozimozi
Event FontListChange(ByVal rNewFontDataStrsAll As String)
Event MoziFontListChange(ByVal rNewFontDataStrsAll As String)
フォントリストの状態、数、位置、が変更されたときに発生します。
FontDataStrsAll CurListIndex ListCount コントロールのキー操作
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
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 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)
ポップメニューの表示直前のイベントと、メニューコマンドクリックのイベントで、共用して使用します。
ポップアップメニュー 内に、ユーザーアプリが使用できるカスタムメニューを4個提供します。
rBefore0After1 = 0
このイベントで、ユーザーアプリの独自コマンドのメニューキャプション wMenuCap1, wMenuCap2, wMenuCap3, wMenuCap4 を指定します。
指定しないメニューは非表示になります。
ここでは rSelectIndex1to4 は無効です。
rReadCurListFont, rReadCurListFontColor,
wWriteAddFont, wWriteAddFontColor も無効です。
rBefore0After1 = 1
このイベントはメニュークリックで発生し、rSelectIndex1to4 に選択メニューの番号 1 〜 4 が返されます。
rSelectIndex1to4 を使用して、ユーザーアプリの独自コマンドの処理ができます。
ここでは wMenuCap1, wMenuCap2, wMenuCap3,
wMenuCap4 は無効です。
rReadCurListFont, rReadCurListFontColor には現在の選択フォントと色が返され、この値でユーザーアプリの独自コマンドの処理をできます。
呼び出し元では wWriteAddFont = Nothing,
wWriteAddFontColor = -1 が設定されており、これらの値に有効な値を指定すれば、フォントリストにフォントを自動的に追加できます。
wWriteAddFont, wWriteAddFontColor に値を設定しなければ、フォントリストに追加されません。
Private Sub Mozimozi1_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)
'ユーザーアプリが使用できるカスタムメニューを4個提供します。
On Error GoTo errop
Select Case rBefore0After1
Case 0 'このイベントで、ユーザーアプリの独自コマンドのメニューキャプション wMenuCap1,
wMenuCap2, wMenuCap3, wMenuCap4 を指定します。指定しないメニューは非表示になります。ここでは rSelectIndex1to4,
rReadCurListFont, rReadCurListFontColor,
wWriteAddFont, wWriteAddFontColor は無効です。
wMenuCap1
= "フォントサンプル → リストに登録" 'ユーザーがメニューキャプションを指定できます■■■■
wMenuCap2
= "外部のフォント → リストに登録" 'ユーザーがメニューキャプションを指定できます■■■■
wMenuCap3
= "選択リスト → フォントサンプルに設定" 'ユーザーがメニューキャプションを指定できます■■■■
wMenuCap4
= "選択リスト → 外部のフォントに設定" 'ユーザーがメニューキャプションを指定できます■■■■
Case 1 'このイベントで、rSelectIndex1to4 に選択メニューの番号
1 〜 4 が返され、rReadCurListFont, rReadCurListFontColor には現在の選択フォントが返され、wWriteAddFont,
wWriteAddFontColor にはリストに追加する任意のフォントを指定でき、メニューに応じた処理コードを記述できます。ここでは wMenuCap1,
wMenuCap2, wMenuCap3, wMenuCap4 は無効です。
Select
Case rSelectIndex1to4
Case
1 'wMenuCap1 --- フォントサンプル → リストに登録 'ユーザーがコマンド処理のコードを記入できます■■■■
Case
2 'wMenuCap2 --- 外部のフォント → リストに登録 'ユーザーがコマンド処理のコードを記入できます■■■■
Case
3 'wMenuCap3 --- 選択リスト → フォントサンプルに設定
'ユーザーがコマンド処理のコードを記入できます■■■■
Case
4 'wMenuCap4 --- 選択リスト → 外部のフォントに設定 'ユーザーがコマンド処理のコードを記入できます■■■■
End
Select
End Select
'Debug.Print "Mozimozi1_MenuPopBeforeAfter
" + CStr(rBefore0After1) + " "
+ CStr(rSelectIndex1to4)
Exit Sub
errop: Exit Sub
End Sub
PopMenuUse PopMenuShow ポップアップメニュー
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
Event OleEventDragDrop(wCancel As Boolean, Data As DataObject,
Effect As Long, Button As Integer, Shift
As Integer, X As Single, Y As Single)
Event MoziOleEventDragDrop(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 のまま返されれば、このクラスのフォーマットのフォントデーターが入っていれば、フォントリストにそのデーターのフォントを自動的に追加します。
OLEDragEnabled OLEDropEnabled OleEventDragOver
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

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

Mozimozi
Event PanelSlzeChange()
Event MoziPanelSlzeChange()
フォントリストパネルのサイズが変更された後に発生します。
AnyPropertyChanged
◆IroMoziのヘルプに戻る◆

Mozimozi
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 Mozimozi1_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




Mozimozi
ポップアップメニュー
フォントリストをマウスで右クリックすると表示できます。
フォントの追加/削除、その他のオプション操作を実行します。
任意のコマンドを使用して、PopMenuShow メソッドを呼び出し、必要な位置に表示できます。

ポップアップメニューの中にアプリケーション定義のメニューを作れます。
ユーザーカスタムメニュー1〜4、の各位置に最大4個のメニューを作れます。
MenuPopBeforeAfter rBefore0After1 = 0 でこれらのメニューのタイトルを設定すれば、
MenuPopBeforeAfter rBefore0After1 = 1 イベントで、クリックされたメニューのインデックス、
rSelectIndex1to4 が通知され、そこでアプリケーション独自の処理コードを実行できます。
処理の内容に制限はなく、このコントロールとはまったく無関係の処理も実行できます。
MenuPopBeforeAfter rBefore0After1 = 0 でこれらのメニューのタイトルを設定しなければ、カスタムメニューは表示されません。
オプション設定 (O) ... メニュー項目は、DlgShowEnabled で使用の可否を指定できます。
それにより、フォントリストのオプション設定 ダイアログの使用を禁止することができます。
PopMenuUse PopMenuShow MenuPopBeforeAfter DlgShowEnabled DlgOptionShow フォントリストのオプション設定
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
コントロールのキー操作
リターン ----------- フォントリストの選択フォントのダブルクリックイベント CurListFontDblClick を実行します。
←↑↓→方向 ------- フォントリストの選択
DEL ------------- フォントリストの選択アイテム CurListIndex を削除する
PageDown ----------- フォントリストのポップアップメニューを表示する
CurListFontDblClick CurListFontChange CurListIndex ポップアップメニュー
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
フォントリストのオプション設定
フォントリストへのフォントの追加や削除、あるいは外観や動作方式を変更できます。
フォーム左上隅の黄色いラベル
をクリックして、チップヘルプを表示できます。

DlgShowEnabled DlgOptionShow PopMenuUse ポップアップメニュー
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆

Mozimozi
OLEDragDrop 関連メソッドの使用方法
このコントロールから他のコントロールへ、フォントとフォントカラーだけをドロップできます。
他のコントロールからは、このコントロールに、フォントとフォントカラーだけをドロップできます。
その場合、OLEDD コントロールのドラッグ開始用のメソッドで、フォントとフォントカラーを設定します。
例えば Text1 から、ドラッグを開始する場合は、OLEStartDrag イベントで以下のように設定します。
Private Sub Text1_OLEStartDrag(Data As DataObject, AllowedEffects
As Long)
Call OLEDD1.OLEDragStartDataMake(Data, AllowedEffects, Text1.SelText, Text1.Font, Text1.ForeColor, Text1.BackColor, Text1.ForeColor)
End Sub
Text1.SelText, Text1.BackColor, (Text1.ForeColor)
は、このコントロールにはドロップできませんが、
アプリユーザーが、ドラッグしたデーターをどこにドロップするかは予測できないので、
多様なコントロールへのドロップに対応できるように、このメソッド内で、可能な限り多くのデーターを、引き渡します。
このコントロールが自動作成したドラッグデーター、あるいは、、、
上記のメソッドで作成されたドラッグデーターが、他のコントロールにドロップされた場合は、
以下のメソッドを使用して、ドロップデーターを取得できます。
Private Sub Text2_OLEDragDrop(Data As DataObject,
Effect As Long, Button As Integer, Shift
As Integer, X As Single, Y As Single)
Dim wUserStr As String, wDragFont
As StdFont, wFontColor As Long, wBackColor
As Long, wDragColor As Long, wIconFile As
String, wIconIndex As Long
If OLEDD1.OLEDragDropDataRead("tfrbc", Data,
Effect, wUserStr, wDragFont, wFontColor, wBackColor, wDragColor, wIconFile, wIconIndex)
Then
If Not wDragFont
Is Nothing Then Set Text2.Font = wDragFont
If wFontColor
<> -1 Then Text2.ForeColor = wFontColor
If wBackColor
<> -1 Then Text2.BackColor = wBackColor
If wUserStr <>
"" Then Text2.SelText = wUserStr
'-----------------------------------------------------
'If wDragColor
<> -1 Then Text2.BackColor = wDragColor
End If
End Sub
OLEDragEnabled OLEDropEnabled OleEventDragOver OleEventDragDrop
OLEDD コントロール
◆IroMoziのヘルプに戻る◆ ◆MotoIroMoziのヘルプに戻る◆
