UC知道照书抄的VB程序每个都出错，各位帮忙看看是哪里错了
来源：百度知道 编辑：UC知道 时间：2024/06/23 16:57:26
Private Sub lb_Click()
End Sub
Private Sub txtshow1_mouseup(button As Integer, shift As Integer, x As Integer, y As Single) '文本框(txtcontent)的鼠标事件
lb1start.Caption = "起始位置:" & txtshow1.SelLength '显示起始位置
lb1length.Caption = "文本长度:" & txtshow1.SelLength '显示文本长度
End Sub
Private Sub cmdcopy_click() '复制按钮的单击事件
Clipboard.SetText txtshow1.SelText '复制选中的内容
End Sub
Private Sub cmdpaste_click() '粘贴按钮的单击事件
txtshow1.SelText = Clipboard.GetText '将选中的内容复制到文本框中
End Sub
Private Sub cmdempty_click() '清空按钮的单击事件
txtshow1.Text = "" '清空文本框中的内容
End Sub
Private Sub cmdexit_click() '退出按钮的单击事件
End
End Sub
运行后显示
编译错误：
过程声明与同名事件或过程描述不匹配
FORM1
Option Explicit
Public a As String
Public b As String
Public c As String
Public d As String
Public e As String
Publi
End Sub
Private Sub txtshow1_mouseup(button As Integer, shift As Integer, x As Integer, y As Single) '文本框(txtcontent)的鼠标事件
lb1start.Caption = "起始位置:" & txtshow1.SelLength '显示起始位置
lb1length.Caption = "文本长度:" & txtshow1.SelLength '显示文本长度
End Sub
Private Sub cmdcopy_click() '复制按钮的单击事件
Clipboard.SetText txtshow1.SelText '复制选中的内容
End Sub
Private Sub cmdpaste_click() '粘贴按钮的单击事件
txtshow1.SelText = Clipboard.GetText '将选中的内容复制到文本框中
End Sub
Private Sub cmdempty_click() '清空按钮的单击事件
txtshow1.Text = "" '清空文本框中的内容
End Sub
Private Sub cmdexit_click() '退出按钮的单击事件
End
End Sub
运行后显示
编译错误：
过程声明与同名事件或过程描述不匹配
FORM1
Option Explicit
Public a As String
Public b As String
Public c As String
Public d As String
Public e As String
Publi
第一个，你的帖子从正文数下来第三行（不含空格），有个“x As Integer”改为“ X As Single”
第二个，你的帖子从下往上数第3和第四行，有几个“vbcrlf_”，这个是你没理解“_”的意思造成的。“_”是代码中把一行写在两行的标志符号。
你可以直接把“_”删除，但要留一个空格，即可以这样写：
Text1.Text = "您喜欢的水果是：" & Form1.a & vbCrLf & "您喜欢的饮料是：" & Form1.b & vbCrLf & "您喜欢的运动是：" & Form1.c & vbCrLf
也可以按原格式写（注意换行的地方的写法！）：
Text1.Text = "您喜欢的水果是：" & Form1.a & vbCrLf _
& "您喜欢的饮料是：" & Form1.b & vbCrLf _
& "您喜欢的运动是：" & Form1.c & vbCrLf
还有，里面涉及很多控件，记得在窗体上放齐，否则也是有“变量未定义”的错误。