请问如何随着鼠标的点击使label的caption改变？

sissiandxixi 2004-02-02 06:06:44

我是不折不扣的大菜鸟一名，VB才刚学，基本上处于不会阶段，可是还是想用VB编个AVG游戏（老实讲，我就是为着编游戏这个宏伟志愿才学习VB的）。目前遇到了问题，那就是众所周知，游戏中的对话都是按一下鼠标对话换一下的。在VB中应该如何实现这个效果？
我的对话是放在label上的，对话内容的改变应该是caption变化吧，如何使其随着鼠标的点击而改变呢？
我之前的想法是定义一个变量Gotimes，在label_click事件下，Gotimes=Gotimes+1
然后通过select case，来点一下是一个caption，点第二下caption改变，如此推之。可是经过实验根本不行（哭啊~~)

我后来试试将每句对话都dim成string，可是我只会dim XX as string,却不会定义该变量为我想要的句子（我真的很菜啦！）于是该次尝试又宣告失败。

还请达人提供更好更简单的方法，谢谢！（不过不要让我用API，我还不会用啊）

另外还想问一下事件里面可否再套一个事件？

...全文

133 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

pigpag 2004-02-03

打赏
举报

"1" "2"

northwolves 2004-02-03

打赏
举报

Dim Gotimes As Long
Private Sub Form_Load()
Gotimes = 0
End Sub

Private Sub Label1_Click()
Gotimes = Gotimes + 1
Label1.Caption = "the number is: " & Choose(Gotimes Mod 10 + 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
End Sub

laozhaoskinny 2004-02-03

打赏
举报

如果定义过程变量时用 static Gotimes as long ,这样变量Gotimes 就会按照你的愿望变化喽。

of123 2004-02-03

打赏
举报

我之前的想法是定义一个变量Gotimes，在label_click事件下，Gotimes=Gotimes+1
然后通过select case，来点一下是一个caption，点第二下caption改变，如此推之。可是经过实验根本不行（哭啊~~)

你是怎么实验的？理论上应该没有问题。变量 Gotimes 应该是全局变量，不要在过程里声明，否则每进入过程时建立，离开过程时销毁，值永远不能增加。

啊维 2004-02-03

打赏
举报

兄弟，先学一下数据库吧

kmzs 2004-02-03

打赏
举报

控件数组

goodname008 2004-02-03

打赏
举报

用Access建立数据库，在VB中用ADO读出来，不是很难的，看看吧。:)
实在不行就只能用我上面的办法了，放到数组里（如果不多的话）。
要不然就用文件。

sissiandxixi 2004-02-02

打赏
举报

可是我这么菜根本就不会用数据库啊

goodname008 2004-02-02

打赏
举报

' 只是大概意思，实际的对话可以放到数据库中，用ADO读出来。

Option Explicit
Dim talk(100) As String
Dim i As Long

Private Sub Form_Load()
For i = 0 To UBound(talk)
talk(i) = "talk" & CStr(i)
Next i
End Sub

Private Sub Label1_Click()
Static Gotimes As Long
Label1.Caption = talk(Gotimes)
Gotimes = Gotimes + 1
End Sub

sissiandxixi 2004-02-02