VB.Net我想在表单中禁用所有文本框作为默认值

时间:2016-01-23 18:25:27

标签: vb.net

我正在学习使用vb.net来显示我加载到Access数据库中的遗留数据。我需要在表单上的文本框中显示数据,但在正常情况下,我不希望用户能够通过Tab键或鼠标单击来修改甚至输入文本框字段。在某些情况下,我想打开这些文本框字段,以便授权用户可以更新信息。我一直在寻找答案,并在设计和运行时尝试了很多属性。有关如何做到这一点的任何想法?我想我可以制作两个相同的形式,一个带有标签,另一个带有文本框,并根据需要进行切换。有关最佳方法的任何想法吗?

1 个答案:

答案 0 :(得分:1)

这里我假设您的表单中的每个文本框都可以编辑。将此添加到您检查用户授权的事件中。

 If IsUserAuthorized = True Then
    For Each myTxtBox As TextBox In Me.Controls.OfType(Of TextBox)()
         myTxtBox.ReadOnly = False 'or myTxtBox.Enabled = True
    Next
 Else
    For Each myTxtBox As TextBox In Me.Controls.OfType(Of TextBox)()
        myTxtBox.ReadOnly = True 'or myTxtBox.Enabled = False
    Next
 End If