Question

vb 文本框显示文字。有一个按钮，两个文本框。 问题1:点击按钮，如果文本框1中输入“我是张三”则

vb 文本框显示文字。有一个按钮，两个文本框。 问题1:点击按钮，如果文本框1中输入“我是张三”则文本框2中显示“你好张三”。 如果文本框1中输入的是其他，则文本框 2中显示“很高兴认识你”。求代码 问题2:文本框2中的文字逐个显示出（就象打字一样一个字一个字出来）（问题2可以不解决）

Answer 1

做了个工程，直接运行即可（有打字效果）。

追问

不知道代码怎么写

追答

你下载我上传的这个附件，解压后用VB打开里面有代码的啊。

Option Explicit
Private strMsg As String
Private Sub Command1_Click()
    If Text1 = "我是张三" Then
        strMsg = "你好张三"
    Else
        strMsg = "很高兴认识你"
    End If
    
    Text2 = ""
End Sub

Private Sub Timer1_Timer()
    If strMsg <> "" Then
        Text2 = Text2 & Left(strMsg, 1)
        strMsg = Right(strMsg, Len(strMsg) - 1)
    End If
End Sub

追问

嗯，谢谢

追答

窗体上放两个文本框，分别名为Text1和Text2
一个命令按钮，名为Command1
一个定时器，名为Timer1，Enabled设为True，Interval属性设为1000（这个值用来控制打字速度，越大打字越慢）

追问

哦。。。谢谢

Answer 2

界面设置：定时器timer1控件Enabled =False；.Interval=500
Private Sub Command1_Click()
If Text1.Text = "我是张三" Then
Timer1.Enabled = True
Else
Text2.Text = "很高兴认识你"
End If
End Sub
Private Sub Timer1_Timer()
Static n As Integer
Select Case n
Case 0
Text2.Text = Text2.Text + "你"
Case 1
Text2.Text = Text2.Text + "好"
Case 2
Text2.Text = Text2.Text + "张"
Case 3
Text2.Text = Text2.Text + "三"
End Select
n = n + 1
End Sub

Answer 3

intehel写的却是不错。我的就不发了