| 投稿日 | ： 2002/12/02(Mon) 11:27 |
| 投稿者 | ： Lantern |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 文字列を変数名として扱う事は出来ますか？ |
私の勘違いでしたら申し訳ありません
以下の様なことでしょうか？
Private Type STX
ST_NUM As String
ST_NAME As String
ST_TEL As String
End Type
Private ST_A As STX
Public Function GetST(Para As String) As String
GetST = SelectST(Para)
End Function
Private Function SelectST(Para As String) As String
Dim Ret As String
Select Case Para
Case "ST_NUM": Ret = ST_A.ST_NUM
Case "ST_NAME": Ret = ST_A.ST_NAME
Case "ST_TEL": Ret = ST_A.ST_TEL
End Select
SelectST = Ret
End Function