[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
相关文档：
1.语言/环境基础
--项目的组成
--语言基础
----变量的作用域和生存期
----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句)
----静态数组和动态数组(数组的声明,上下界确定,动态数组的使用,定义新的之后,怎么保留以前的数据)
----主要的系统函数和过程(By ......
'在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
......
Option Explicit
Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ......
自定义数据库链接类(Access)是链接Access数据库时使用的类。
补足：Application.StartupPath.ToString是指定生成.EXE文件的路径，把数据库和执行文件存放到一起时，不管安装后在什么路径都无需特定指定。
Imports System.Data.OleDb
#Region "全局变量"
Private mTimeo ......
1. 各种进制转换函数 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,
1.
各种进制转换函数
� ......
