Question

VB 关于label1控件跟随鼠标移动，同时改变字体颜色 谁来帮我下

Private Sub from_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'将随机改变LAbel1控件的前景色
Label1.ForeColor = RGB(Rnd * 255, ren * 255, Rnd * 255)
'根据鼠标当前的X,Y坐标设置label1控件 的Top和Left属性
Label1.Top = Y
Label1.Left = X

End Sub

这段代码对不对？
要求是label1里的字随着鼠标移动，同时字体的颜色也不断的变化

为什么我的没效果

Answer 1

你的随机函数忘了取整,还有你把form写成了from。
修改如下
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize
'将随机改变LAbel1控件的前景色
Label1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
'根据鼠标当前的X,Y坐标设置label1控件 的Top和Left属性
Label1.Top = Y
Label1.Left = X
End Sub