Question

VB6编程的问题

Private Sub opt_lishuang_Click()
txt_lishuang.Text = "英语老师 ： 是个时尚达人 拥有老一辈的智慧 & 小一辈的懵懂 "
口头禅.哎呀.我的妈呀
我现在想不起来了
最大的缺点也是最大的优点: 记性不好
img_lishuang.Picture = LoadPicture(App.Path & "\1.jpg")
End Sub

Private Sub opt_luoxu_Click()
txt_luoxu.Text = "科学老师 ： 罗旭 (没有花名)"
造型: 古板
看法: 最会霸课的老师 .上课从不动脖子
img_luoxu.Picture = LoadPicture(App.Path & "\4.png")
End Sub

Private Sub opt_ouyangsujun_Click()
txt_ouyangsujun.Text = "语文老师 ： 本名:欧阳素珺 统称:欧阳"
造型: 是个时尚达人
看法: 喜欢扣我们的德育考核分
img_ouyangsujun.Picture = LoadPicture(App.Path & "\3.png")
End Sub

Private Sub opt_sukuili_Click()
txt_sukuili.Text = "数学老师 ： 本名:苏葵丽 统称：小苏苏"
造型: 穿着性质
看法: 声音大.带扩音器.不带扩音器上两个班的课.带上扩音器上整栋楼的课
分
img_sukuili.Picture = LoadPicture(App.Path & "\2.jpg")
End Sub

Private Sub opt_chusanbao_Click()
txt_chusanbao.Text = "历社老师 ： 本名：褚三保 统称：三保哥"
造型: 贼帅 人人都爱他
看法: 为人靓仔.从不体罚同学.是同学心中的好老师
img_chusanbao.Picture = LoadPicture(App.Path & "\5.png")
End Sub

播放时提示“子程序或函数未定义”，要怎么改？教一下新手啊
如果要整个程序，可以留下邮箱，我发过去

Answer 1

你模仿下面的代码：
Private Sub opt_lishuang_Click()
txt_lishuang.Text = "英语老师 ： 是个时尚达人 拥有老一辈的智慧"
txt_lishuang.Text = txt_lishuang.Text & Chr(13) & Chr(10) & "小一辈的懵懂 "
txt_lishuang.Text = txt_lishuang.Text & Chr(13) & Chr(10) & "口头禅.哎呀.我的妈呀"
txt_lishuang.Text = txt_lishuang.Text & Chr(13) & Chr(10) & "我现在想不起来了"
txt_lishuang.Text = txt_lishuang.Text & Chr(13) & Chr(10) & "最大的缺点也是最大的优点: 记性不好"
img_lishuang.Picture = LoadPicture(App.Path & "\1.jpg")
End Sub
注意：txt_lishuang的MultiLine属性要设为True

Answer 2

如果真是如你所说的“子程序或函数未定义”，那这个就不是改不改的问题了。你在开始就少定义了函数，因为没有完整的程序，所以我也不知道你少了哪个，从这几段来看都有调用Private Sub opt_ouyangsujun_Click()这个函数和LoadPicture(App.Path & "\*.png")函数。你可以查查开口是否定义了这俩个函数。还有如果格式不正确即使是定义了也运行不出来。机器照样会认为未定义。

Answer 3

txt_lishuang.Text = "英语老师 ： 是个时尚达人 拥有老一辈的智慧 & 小一辈的懵懂 "
口头禅.哎呀.我的妈呀
我现在想不起来了
最大的缺点也是最大的优点: 记性不好

能这样写吗？