如图：现在要求在文本框中输入 计算机等级考试 点显示 文本框消失 并在标签中显示 计算机等级考试

Private Sub Command1_Click()
If Text1.Text = "计算机等级考试" Then
Text1.Visible = False
Label1.Caption = "计算机等级考试"
End If
End Sub

Private Sub Command显示_Click()
   If 判断(Text1) = True Then
     Text1.Visible = False
     Label1.Caption = "计算机等级考试"
  Else
     Text1.SetFocus
     Exit Sub
   End If
   

   
End Sub

Public Function 判断(ctrText As TextBox) As Boolean
   
   If Trim(ctrText.Text) = "计算机等级考试" Then
    判断 = True
    Else
    判断 = False
    End If
End Function

Private Sub Form_Load()
Text1.Text = ""

End Sub

楼上的2位不对。。。

[[it] 本帖最后由 a8544948 于 2008-11-27 13:06 编辑 [/it]]

看到上面的没我 输入文字以后这文本框要消失 在上面的标签栏里面能自动显示计算机等级考试

看到上面的没我 输入文字以后这文本框要消失 在上面的标签栏里面能自动显示计算机等级考试

那你说要点显示按钮的啊,你意思输入计算机等级考试后,自动文本框消失啊,那显示按钮就不要了啊

樓主你學過VB沒，
private sub text1_chang()
if len(text1.text)>=1 then
text2.visible=false
label1.caption=text1.text
else
text2.visible=true
label1.caption=text1.text
endif
end sub
引二樓的
Private Sub Command1_Click()
If Text1.Text = "计算机等级考试" Then
Text1.Visible = False
Label1.Caption = "计算机等级考试"
End If
End Sub

我的也可以完成
text1_chang 更好

谁是楼主啊 a8544948吗