ab.com コミュニティ

7さん、イグトランスさん
ありがとうございます。
調べながらやってみます。

ようするに普通は何でもAPI関数呼び出しでやりますが、自分でクラスを作ればコードをそれっぽい感じにすることもできるということです。

Class CommandButton
Protected
	c_hWnd As HWND
	c_ID As Long
Public
	Sub CommandButton(ByVal hWnd As HWND,ByVal ID As Long)
		c_hWnd=GetDlgItem(hWnd,ID)
		c_ID=ID
	End Sub

	Sub ~CommandButton()
		c_hWnd=NULL
		c_ID=NULL
	End Sub

	Sub Caption(ByVal lpCaption As BytePtr)
		SetWindowText(c_hWnd,lpCaption)
	End Sub

	Sub Enable(ByVal bEnable As Long)
		EnableWindow(c_hWnd,bEnable)
	End Sub
End Class

Sub MainWnd_CommandButton1_Click()
Dim CommandButton1 As CommandButton(hMainWnd,CommandButton1)

	CommandButton1.Caption("なまえ")
	CommandButton1.Enable(FALSE)
End Sub

クラスを使うことによって、CommandButton1.Caption="なまえ"、のようなことが可能です。
[code]Class CommandButton
Protected
c_hWnd As HWND
c_ID As Long
Public
Sub CommandButton(ByVal hWnd As HWND,ByVal ID As Long)
c_hWnd=GetDlgItem(hWnd,ID)
c_ID=ID
End Sub

Sub ~CommandButton()
c_hWnd=NULL
c_ID=NULL
End Sub

Sub Caption(ByVal lpCaption As BytePtr)
SetWindowText(c_hWnd,lpCaption)
End Sub

Sub Enable(ByVal bEnable As Long)
EnableWindow(c_hWnd,bEnable)
End Sub
End Class

Sub MainWnd_CommandButton1_Click()
Dim CommandButton1 As CommandButton(hMainWnd,CommandButton1)

CommandButton1.Caption("なまえ")
CommandButton1.Enable(FALSE)
End Sub[/code]
クラスを使わないのであれば、SetWindowText(),SetDlgItemText(),EnableWindow()をプログラムの中で使えば可能です。
これらの関数はActiveBasicのヘルプにも載ってますし、Win32APIを調べれば分かります。

ImageBoxに画像を表示するのはDISCOVERSOFTのWin32プログラミング講座を参考にしてはどうでしょう。

ABを使い始めて３日目です。
くだらない質問で申し訳ありませんが、どうか教えてください。
よろしくお願いします。

ABでは、VBのようにボタンのキャプションをプログラムの中から変更したり
EnableとかDisableにしたりなどできないのでしょうか？

　CommandButton1.Caption="なまえ"
　CommandButton1.Enable=True

のように。

また、コントロールのImageBoxに画像を表示するにはどのようにすれば
良いのでしょうか。