Text1.Locked =真
if len(text1.text)<>0 then
text2.text=text1.text-1
exit
end if
if len(text2.text)<>0 then
text1.text=text2.text◆1
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1.Text = "" Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Text = ""
Else
Text2.Text = "请按"计算""
Text2.Enabled = False
End If
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.Text = "" Then
Text1.Text = ""
Text1.Text = "请按"计算""
Text1.Enabled = False
Private Sub 计算_Click()
If Text1.Enabled Then
Text2.Text = Val(Text1.Text) - 1
Text1.Text = Val(Text2.Text) - 1
Private Sub 清空_Click()
文本框灰色、不可更改，是设置该文本框的属性enabled为false，即：
text3.enabled=false
Private Sub Form_Load()
Text3.Enabled = False
Private Sub Text1_Change()
Text3.Text = Val(Text1.Text) ^ 2 ◆ Val(Text2.Text) ^ 2
Private Sub Text2_Change()
把Text3的Locked（锁定）属性设为True即可
Text1.Locked = True
Text1.ForeColor = vbRed
光标要是没的话 就不能设置颜色~
你不如用label得了。
在属性里把文本框的属性改了就行
Lock 属性设成true ，文字超过文本框长度，可以将光标往后移动以查看后面的。
或者Enable属性设成false ，呈灰化形式，完全不能动。
lcok属性设成true
或者enable属性设成false
要是有颜色 那只能用lock。
颜色有color属性
以上就是土嘎嘎小编大虾米为大家整理的vb文本框设置被锁定_vb文本框内容固定相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！