timer1.interval

1先从窗体工具箱里面将timer控件拖到窗体上,达到下面效果

2在timer1上点击右键属性

右边那个interval属性设置就是调节timer1时间间隔的,也可以在代码里面写timer1.Interval = 200;(200就是间隔时间

3

双击属性里面的控件事件里面的tick

然后在代码里面添加好按钮触发事件后添加代码如下

        private void timer1_Tick(object sender, EventArgs e)
        {
            if (textBox1.Text == "")
                textBox1.Text = "HelloWorld";
            else
                textBox1.Text = "";
        }

        private void button1_Click(object sender, EventArgs e)
        {
            if (!timer1.Enabled)
            {
                timer1.Start();
                timer1.Enabled = true;
            }
            else
            {
                timer1.Enabled = false;
                timer1.Stop();
            }

追问

请问interval 的间隔是什么意思？秒数？分钟?

追答

是毫秒1000=1秒

VB中Timer的间隔最大为65535ms。

Timer控件是一个定时发生某个动作的控件，它有一个重要属性Interval，这个值设定每个多长时间执行一次动作，单位是毫秒，还有一个重要事件是Timer，双击Timer控件即可自动产生这个事件的框架，在这个框架里面写入每隔Interval毫秒就要执行的代码动作。

可以通过编程实现长时间：

Private   Sub   Form_Load()             

Timer1.Interval   =   60000             

Timer1.Enabled   =   True     

End   Sub     

Private   Sub   Timer1_Timer()             

Static   s_Minutes   As   Long             

s_Minutes   =   s_Minutes   +   1             

If   s_Minutes   =   60   Then                     

s_Minutes   =   0                     

Debug.Print   "一小时到了"            

End   If     End   Sub  

Interval 属性
返回或设置对 Timer 控件的计时事件各调用间的毫秒数。
设置值 描述
0 （缺省值）使 Timer 控件无效。
1 to 65,535 设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True
时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。

timer每次循环都会执行TIck事件，Tick可以看做一般的函数，只不过是另开了一个线程执行的罢了。

1、timer1.Interval 设置时间间隔

timer1.Tick 到达时间间隔时触发事件

test_tick 时间处理函数

2、通常要执行需要使用 timer1.Start();//启动定时器 timer1.Stop();.//关闭定时器方法

一般代码过程如下：

private void Form_Load(object sender, EventArgs e)
{timer1.Interval   =   1000;  
timer1.Start();}
      private   void   test_Tick(...) 
{
//每隔一秒需要执行的函数体,timer start后每隔一秒就会执行该函数
}

Timer控件的Interval属性设置值为：1 to 65,535。设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True
时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。
所以你可设置它为200。

尽量不要在VB中使用多个Timer，这样会占用很多内存资源，而且随着时间增加内存的消耗也会增加。可以在一个Timer中利用一个计数器来分别执行不同的任务，比如：

Private Sub Form_Load()
Timer1.Interval = 1000  '1秒循环一次
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static t As Long  't是秒数计数器
t = t + 1
If t Mod 17 = 0 Then
    '每隔17秒执行任务1
ElseIf t Mod 23 = 0 Then
    '每隔23秒执行任务2
ElseIf t Mod 8 = 0 Then
    '每隔8秒执行任务3
    '依此类推
End If
End Sub

private IList<string> path = new List<string>();
//存储路径,可以自由的选取文件夹
int i = 0,j=0;//i循环用，j累计图片个数用
private void Form3_Load(object sender, EventArgs e)
//画面加载所加载的事件
{
FolderBrowserDialog folderDialog = new FolderBrowserDialog();
if (folderDialog.ShowDialog() == DialogResult.OK)
//跳出的窗口不点OK键，系统什么事都不做
{
DirectoryInfo directoryInfo = new DirectoryInfo(folderDialog.SelectedPath);
FileInfo[] fileInfos = directoryInfo.GetFiles();
foreach (FileInfo fileInfo in fileInfos)
{

if (Path.GetExtension(fileInfo.Name).Equals(".jpg"))
//只寻找后缀名是jpg的图片
{
path.Add(fileInfo.FullName);//将找到的文件添加到数据集中
j++;
}
}
}
timer1.Enabled = true;
timer1.Interval = 2000;//设置时间和可用性
}
private void timer1_Tick(object sender, EventArgs e)
//自己拉一个timer控件到画面，双击
{
if (i < j)
//当数据集中还存在数据时
{
Bitmap curBitmap = (Bitmap)Image.FromFile(path[i].ToString());
pictureBox1.SizeMode = PictureBoxSizeMode.Zoom;
pictureBox1.Image = curBitmap;
i++;//以上都是绑定图片到pincture控件中
}
else
{
i = 0;//实现无线循环显示图片，此时所需要的时间是2倍
}
}

'首先先引用Microsoft Scripting RunTime
'放置3个timer控件，依次命名为timer1，timer2，timer_time
'将下面代码放到代码框中。
Dim size_a As Long, size_b As Long, time_5 As Integer
Dim fso1 As New FileSystemObject
Dim folder1 As Folder

Private Sub Form_Load()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改
Print folder1.Size, time_5
Timer1.Interval = 1
Timer2.Interval = 2
Timer_time.Interval = 9999
End Sub

Private Sub Timer_time_Timer()
time_5 = time_5 + 10
If time_5 >= 300 Then
Shell "d:\play.exe" '文件的位置，根据自己的修改
Shell "d:\sendmail.exe" '文件的位置，根据自己的修改
End If
End Sub

Private Sub Timer1_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改

size_a = folder1.Size
If size_b <> size_a Then time_5 = 0
End Sub
Private Sub Timer2_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改

size_b = folder1.Size
End Sub

追问

请问一下Microsoft Scripting RunTime是怎么样引用的 能说一下吗

//姓名数据
string[] names = { "张三", "李四", "王五", "诸葛亮", "张飞", "关羽", "李白", "张亮", "荆轲", "吕布" };
private void button1_Click(object sender, EventArgs e)
{
    //开始或暂停timer1
    timer1.Enabled = button1.Text == "开始" ? true : false;
    //修改按钮文字
    button1.Text = button1.Text == "开始" ? "暂停" : "开始";
}
private void timer1_Tick(object sender, EventArgs e)
{
    //随机显示一个姓名
    label1.Text = names[new Random().Next(0, names.Length)];
}

private void Form1_Load(object sender, EventArgs e)
{
    //姓名显示速度
    timer1.Interval = 40;
}

追问

运行就出现这个提示，怎么解决