[VB]简单Timer
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left + x * 100
If Label1.Left <= 0 Then
x = 1
End If
If Label1.Left + Label1.Width >= Me.Width Then
x = -1
End If
End Sub
End Class
相关文档：
这一篇我再说说水晶报表的情况。ACCESS中对应水晶报表方面，大家可能会遇到的最多的问题应该就是打开报表后
会出现需要登录的问题。
这个是为什么呢？明明我没有设置密码，怎么会有要输入密码呢？如果你够沉着，如果你的debug经验不缺乏的话，
你会发现在水晶报表跳出输入密码的登录框中，access的路径不是我现在数据库� ......
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
'*************************************************************************
'**模 块 名：fBackupDatabase_a
'**描 述：备份数据库,返回出错信息,正常恢复,返回""
'**调 用：fBackupDatabase_a "备份文件名","数据� ......
YXOnline已经接近尾声,为了处理一些界面的问题,测试一个C++的DLL
一个函数,用deasambling看C++的代码是没有错误的,但是到了VB,请看
b的返回值是True 不管C++和VB相互键约定True和False各对应为什么数值
这里已经是True了
但那时显示True = True 仍旧不执行第一个Msgbox
直接跳到Else
而如果省略b = True 为 If b Then ......
