如何把label变text

来源：百度知道 编辑：UC知道 时间：2024/06/06 16:30:17
开始用label显示，
如果想修改，设置成修改状态，label隐藏，用textbox显示
改完再用label显示

在窗体上加入控件label1,text1,command1，复制下面代码，运行，按command1后出现修改框，回车后改用label1显示。

Option Explicit

Private Sub Command1_Click()
With Text1
.Top = Label1.Top
.Left = Label1.Left
.Width = Label1.Width
.Height = Label1.Height
.Text = ""
.Visible = True
.SetFocus
End With
Label1.Visible = False
End Sub

Private Sub Form_Load()
Text1.Visible = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1_LostFocus
End If
End Sub

Private Sub Text1_LostFocus()
Label1 = Text1.Text
Label1.Visible = True
Text1.Visible = False
End Sub

添加窗体Form1,文本框Text1,然后添加如下代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = Text1.Text & Chr(KeyAscii)
KeyAscii = 0
End Sub

直接变当然不可能啦，就来回换就成了吧，你弄个修改按钮，点击的时候label.vasable为假，text.vasable为真呗，点保存的时候就反过来