投稿日 | : 2003/12/09(Tue) 13:09 |
投稿者 | : これ |
URL | : |
タイトル | : Re: オプションボタンのコントロール配列 |
> オプションボタンのコントロール配列のTrueになっている
> index値を返すサブモジュールを標準モジュール内で作りたいのですが
>
こういうことでしょうか?
------Module
Public Function getOptIndex(Frm As Form, ctrlName As String) As Integer
Dim i As Integer
Dim opt As OptionButton
getOptIndex = 0
For i = 0 To Frm.Controls(ctrlName).Count - 1
Set opt = Frm.Controls(ctrlName)(i)
If opt.Value Then
getOptIndex = i
Exit For
End If
Next i
End Function
------Form
Private Sub Command1_Click()
Debug.Print getOptIndex(Me, "Option1")
End Sub
Option1がコントロール配列でないとエラーになりますが・・・
もう少し違うやり方もあるように思いますが
この程度しか思いつきませんでした。