vb中timer的event

panhao1

本来是grasshopper视屏教程要出的关于委托和多线程的内容，这里辉哥要得急，简单点说下

首先是要声明timer类 这里声明就有两种 先说第一种

直接声明 和C#一样
  Private Sub RunScript(ByVal x As Boolean, ByVal y As Object, ByRef A As Object)
    'your code goes here…
    If s Then
  timer = New System.Windows.Forms.Timer
    timer.Interval = 100
    AddHandler timer.Tick, AddressOf Timer_Tick
      timer.Start()
      s = False
    End If
    A = int
  End Sub
  '<Custom additional code>
  Dim timer As  System.Windows.Forms.Timer
  Dim int As int32 = 0
  Dim s As Boolean = True
  Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    int += 1
    If int > 100  Then timer.Stop():int = 0
    owner.ExpireSolution(True)
  End Sub

但是不幸的是C#可以直接+=来添加委托
而vb必须要AddHandler关键字

再就是第二种声明

Private Sub RunScript(ByVal x As Object, ByVal y As Object, ByRef A As Object)
    If s Then
      timer = New System.Windows.Forms.Timer
      timer.Interval = 100
      timer.Start()
      s = False
    End If
    A = int
  End Sub
'<Custom additional code>

  Private WithEvents timer As System.Windows.Forms.Timer
  Dim int As int32 = 0
  Dim s As Boolean = True
  Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles timer.tick
    int += 1
    If int > 100  Then timer.Stop():int = 0
    owner.ExpireSolution(True)
  End Sub

WithEvents 来声明一个带事件的类 然后用handles来接委托


看不懂没关系 复制代码就可以用
timer会从0跑到100停下来
timer。start和timer。stop可以自己设置条件

winseedme

看不懂 不过还是支持楼主

ememery

good。。。。。。

元未觉醒1984

不错，学习了

元未觉醒1984

请问辉哥是？

skysurene

收藏起来慢慢看

36j9d3s5

Q2-5054898-9深圳专业代聊TB深圳特服代聊&
Q:25=05489=89  156-0850288-3 深圳专业代聊TB特服代聊TB专业发帖团队TB为你带来大量客户。点击百度快照
假设看不到信息，请点击右下角“百度百度快照”。本团队是网络专业代聊，由8人组成，日手工发帖量6000，有24万论坛的数据。
Q:25=05489=89  156-0850288-3
可以让你需要传播的信息2天之内发送到各大搜索引擎（如百度，谷歌等）。就有源源不断的客户通过发出去的信息找到您的或者客户QQ。
我们通过专业，热情，耐心的介绍，打消客户的顾虑，给客户分析性价比，让客户纷纷拨打您的需要商品或者服务。
本团队自2008年创办，已有3年的历史和经验，为全国各地拥有资源或者商品的老板谋取了巨大的网络蛋糕。希望有更多的老板与联手，创造更多的财富。
……………………网络专业代聊，特服代聊，专业发帖团队，为你带来大量客户。
Q:25=05489=89  156-0850288-3

ememery

重新搜索到这篇帖子，对我非常有用。谢谢！