フォーム上のテキストボックスの値を変更させない方法って？

質問の意味が分からない...

下記にサンプルを作成してみました
テキストボックスの「編集ロック」プロパティを"いいえ"に設定するだけでよろしいのでは？


Private Sub cmd1_Click()
　　Me.txt.Value = 0
　　Call txtEnabled
End Sub

Private Sub cmd2_Click()
　　Me.txt.Value = 1
　　Call txtEnabled
End Sub

Private Sub cmd3_Click()
　　Me.txt.Value = 2
　　Call txtEnabled
End Sub

Private Sub txtEnabled()
　　Dim wEnabled　　As Boolean
　　Dim wLocked　　 As Boolean
　　
　　Select Case Me.txt.Value
　　　　Case 0
　　　　　　wEnabled = False
　　　　　　wLocked = False
　　　　　　
　　　　Case 1
　　　　　　wEnabled = True
　　　　　　wLocked = False
　　　　　　
　　　　Case Else
　　　　　　wEnabled = False
　　　　　　wLocked = True
　　　　　　
　　End Select
　　
　　Me.txt.Enabled = wEnabled
　　Me.txt.Locked = wLocked
　　
End Sub

投稿日時 - 2003-09-06 21:00:13