vb文本框设置被锁定

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属性