这是个问了很久的label的问题

学编程啊发布于 2012-08-16 21:00， 562 次点击

如何让label了的文字受cmd的控制，点一下换一段字符
比如
Private Sub Cmd1_Click()
label1.caption = “好啊”

label1.caption = “恩恩”（然后再点一下就出现）
再点就出现另一段；而不是循环在这两句；比如在点就出现：
label1.caption = “拜拜”
。。。。
。。。。
。。。。
这样不断出现新的字符
要怎样用函数啊

5 回复

Artless2012-08-17 00:28

要显示什么？

学编程啊2012-08-17 18:51

回复 2楼 Artless

要显示文字和表点符号

wzla3332012-08-17 23:11

写子程序吧。

程序代码：

private function  getstring(input as int) as string
    select case input
        case 1
            getstring ="哈哈"
        case 2
            getstring ="呵呵"
        case else
    end select

end sub

调用的时候就是点击cmd改变数字。调用getstring就行。

学编程啊2012-08-18 19:11

回复 4楼 wzla333

Private Function getstring(inputbox As Integer) As String
    Select Case inputbox
        Case 1
            getstring = "哈哈"
        Case 2
            getstring = "呵呵"
        Case Else
    End Select
    End Function

Private Sub Cmd1_Click()
Label1.Caption = getstring(inputbox as Integer) as String
Label1.Caption = "case 2"
End Sub
不行啊，它说有问题

zplmlg2012-08-20 14:57

简单几句话，就用以下代码吧。

Private Sub Command1_Click()
Static i As Integer
Dim s As String
Select Case i
Case 0
    s = "你好！"
    Case 1
    s = "告诉你一句悄悄话,"
    Case 2
    s = "你听了不要激动哦，"
Case 3
    s = "....."
Case 4
    s = "知道了吗？"
'case ...可以添加其他语句
Case Else
s = ""
End Select
Label1.Caption = s
i = i + 1
End Sub