下面是一个文字编辑器的代码，但是输入和显示的操作不行。请求帮助。
Private Sub Bold_Click()
    Text1.FontBold = True
End Sub

Private Sub Clean_Click()
    Text1.Text = ""
End Sub
Private Sub Display_Click()
    Text1.Text = inptext
End Sub

Private Sub Exit_Click()
    End
End Sub

Private Sub Font20_Click()
    Text1.FontSize = 20
End Sub

Private Sub Input_Click()
    inpt = InputBox("请输入一段文字", "输入对话框")
    inptext = inptext & inpt
    Text1.Text = inptext
End Sub

Private Sub Italic_Click()
    Text1.FontItalic = True
End Sub

Private Sub Normal_Click()
    Text1.FontBold = False
    Text1.FontItalic = False
    Text1.FontUnderline = False
    Text1.FontSize = 10
End Sub

Private Sub Under_Click()
    Text1.FontUnderline = True
End Sub

改为下面的：应该就可以了，
Private Sub Input_Click()
    inpt = InputBox("请输入一段文字", "输入对话框")
End Sub
Private Sub Text1_change()
     inptext = inptext & inpt
     Text1.Text = inptext
End Sub

我试了一下 好像不行的……
不过，谢谢你！

你的要求是什么了？说下，

我的问题是它不能运行。“显示”不能显示。
现在我已经知道怎么做了。
应该把 inptext 定义为全局变量的。
然后问题就解决了。

收到的鲜花

• Artless 于 2010-10-29 23:24 送鲜花  5朵   附言：我很赞同

好