vb做的文本编辑器。。哪错了。。

来源:百度知道 编辑:UC知道 时间:2024/07/06 11:34:50
Private Sub Bold_Click()
Text1.FontBold = True
End Sub

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

Private Sub Display_Click()
Text1.Text = inpext
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
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

你没设变量。
建议先
dim inpt as integer
然后把
Private Sub Input_Click()
inpt = InputBox("请输入一段文字", "输入对话框")
inptext = inptext & inpt
End Sub
这段中的inptext = inptext & inpt删掉。

请把情况说的明确一点,在什么地方出错了,和自己预想的有什么不一样,很多地方都把原来的名称改了,看不出什么
猜测是想
Private Sub Input_Click()
inpt = InputBox("请输入一段文字", "输入对话框")
inptext = inptext & inpt
End Sub
这一段出错了
先试着改一下
Private Sub Input_Click()
inpt = InputBox("请输入一段文字", "输入对话框")
inptext.text = inptext.text & inpt
End Sub

Private Sub Input_Click()
inpt = InputBox("请输入一段文字", "输入对话框")
inptext = inptext & inpt
End Sub
这一段是干啥的?
把inptext换成Text1.Text试试