投稿日 | : 2003/09/04(Thu) 15:48 |
投稿者 | : nanashi |
Eメール | : |
URL | : |
タイトル | : Re: チェックボックスの制御 |
試してませんけど、以下ではどうでしょう?
ただ、分かり難いんであんまり良くないと思いますが、一応こういうやり方もあるってことで。
Dim bChk As Boolean
bChk = chk_銀行コード.Value = vbChecked
With tbx_銀行コード
.Enabled = bChk
.BackColor = vbButtonFace + bChk * 10
End With
With tbx_本支店コード
.Enabled = bChk
.BackColor = vbButtonFace + bChk * 10
End With
With tbx_カナ銀行名
.Enabled = Not bChk
.BackColor = vbWindowBackground - bChk * 10
End With
With tbx_カナ支店名
.Enabled = Not bChk
.BackColor = vbWindowBackground - bChk * 10
End With