投稿日 | : 2003/12/09(Tue) 13:28 |
投稿者 | : ぢぢぢ |
Eメール | : |
URL | : |
タイトル | : ありがとうございます! |
先ほどから自分でも作ってみました
------module
Public Function GetIndex(index As Object) As Integer
Dim opt As Object
For Each opt In index
If opt.Value = True Then
index = opt.index
Exit Function
End If
Next
End Function
----form
Private Sub Command1_Click()
Set setObj = option1
option1 = GetIndex(setObj)
End Sub
for eachを使いたくて色々試行錯誤したのですが(汗)
Frm.Controls(ctrlName)の使い方を知りませんでしたので かなり参考になりました
本当にありがとうございます!