谁帮我修修代码??

来源：百度知道 编辑：UC知道 时间：2024/05/24 16:32:26
女朋友生日快到了,不知道送什么好.正值我刚学VB,想给女朋友一个惊喜.制作一个编程,在单击窗体的时候,在窗体里动态地显示"阿静,我爱你!!".我想了好久,也做了好久,之后想出了如下代码,但是操作起来却没有反应,各位大侠们,可以帮我看看是哪里出了问题吗??能否帮我修改一下其中的错误??感激不尽!!!代码如下:
1.窗体和控件:form1,label1,timer1.设置label1的boderstyle属性为0(透明)
2.在form1窗体代码栏写入如下代码:
private sub Form1_Load()
me.label1.visible=false
end sub
private sub Form1_Click()
me.timer1.interval=300
me.label1.visible=true
me.label1.caption="阿静,我爱你!!"
end sub
private sub Timer1_Timer()
dim i as intger
i=i+1
if label1.visible then
if i mod 2 then
label1.top=label1.top-10
label1.left=label1.left-10
else
label1.top=label1.top+10
label1.left=label1.left+10
end if
end if
if i>30000 then i=i-30000
end sub

Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Form_Click()
Timer1.Interval = 300
Label1.Visible = True
Label1.Caption = "阿静,我爱你!!"
Timer1.Tag = "1"
End Sub
Private Sub Timer1_Timer()
If Timer1.Tag = "1" Then
Label1.Top = Label1.Top - 20
Label1.Left = Label1.Left - 20
Timer1.Tag = "0"
Else
Label1.Top = Label1.Top + 20
Label1.Left = Label1.Left + 20
Timer1.Tag = "1"
End If
End Sub

帮你重新写了.
有些地方要注意. Form 的事件是统一的,不管在哪个窗体 它的事件格式都是 Form_事件. 而不是 窗体的名字(Form1_事件).

注意书写格式. 在本窗体内的话 引用控件不需要加 ME. . 记住 做为一个程序员 要懂得希字如金.没必要的东西尽量不要.

还有, 发现你想实现的功能比较简单.没必要去定义一个变量 还要把它进行累加计算.

代码还是挺不错的.以后在写代码的时候建议你 多想一些方法.然后从中选择最简单.且字数最少的方法来写.

dim i as intger 不要放在private sub Timer1_Timer()过