１３９．アップダウンコントロールを作成する
＜ 使用用途 ＞
OCXを使わないでこれを使いましょう。
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
ＡＰＩ関数のCreateUpDownControlを使用します。
CreateUpDownControl＝＞ダイアログ付きでファイルを操作（コピー、削除、移動）する
＜引数＞
dwStyle: 定数参照
x: 左上隅のX座標
y: 左上隅のY座標
cx: 幅
cy: 高さ
hParent: 親ウインドウのハンドル
nID: 識別子
hInst: インスタンスハンドル
hBuddy: コントロールと関連付けるウインドウのハンドル
nUpper: 上限値
nLower: 下限値
nPos: 初期値
＠戻り値＠
作成したコントロールのハンドル
< ＳＡＭＰＬＥ ＞
’標準モジュール
Public Declare Function CreateUpDownControl Lib "COMCTL32.DLL"
(ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal hParent As Long, ByVal nID As Long, ByVal hInst
As Long, ByVal hBuddy As Long, ByVal nUpper As Long, ByVal nLower As Long,
ByVal nPos As Long) As Long
Const WS_CHILD = &H40000000'親ウインドウを持つ子ウインドウを作成
Const WS_VISIBLE = &H10000000 '表示
Const CTL_RIGHT = &H4 'コントロールを右側に配置
Const CTL_LEFT = &H8'コントロールを左側に配置
Const CTL_VIBILE = &H2 '数値を表示
'------------------------------------------------------------
'■関数名 UpDown
'■用途 アップダウンコントロールを作成する
'■引数
' hWnd 親ウインドのハンドル
' hBuddy ウントロールと関連付けるウインドウのハンドル
' Max 上限値
' Mini 下限値
' Value 初期値
'■戻り値
' 正常終了 コントロールのハンドル
'------------------------------------------------------------
Public Function UpDown(hwnd As Long, _
hBuddy As Long, _
Max As Long, _
Mini As Long, _
Value As Long _
) As Long
'定数設定
dwStyle = WS_CHILD Or WS_VISIBLE
dwStyle = dwStyle Or CTL_VIBILE Or CTL_RIGHT
'コントロールを作成
UpDown = CreateUpDownControl(dwStyle, _
0, 0, 0, 0, _
hwnd, _
0, _
0, _
hBuddy, _
Max, _
Mini, _
Value)
End Function
'----------------------------------------------------------
'■関数名 Destroy
'■用途 CreateUpDownControlで作成したウインドウを破棄する
'----------------------------------------------------------
Public Sub Destroy(hwnd As Long)
'ウインドウを破棄する
Call DestroyWindow(hwnd)
End Sub