ab.com コミュニティ

コード: 全て選択

Sub MainWnd_CommandButton1_Click()
Dim chc As *CHOOSECOLOR
/*
	作成した色を保存する場合は以下の変数をグローバルにする
	保存してあるRGBデータにアクセスするにはchoose[0],choose[1],...,となる
*/
Dim choose[16] As DWord

	'変数chooseがグローバルな場合、メインウィンドウがクリエートされた時に実行？
Dim i As Long
	For i=0 To 15
		choose=RGB(255,255,255)
	Next

	chc=calloc(SizeOf(CHOOSECOLOR))
	chc->lStructSize=SizeOf(CHOOSECOLOR)
	chc->hwndOwner=hMainWnd
	chc->lpCustColors=VarPtr(choose)

	'コメントアウトを外すと初期カラーとしてRGB(255,0,0)が選択される
	chc->Flags=CC_FULLOPEN' or CC_RGBINIT
'	chc->rgbResult=RGB(255,0,0)

	If ChooseColor(ByVal chc) Then
'		MessageBox(hMainWnd,Str$(chc->rgbResult),"選択されたRGBデータ",MB_OK)
	End If

	free(chc)
End Sub