自作timerを作成するには？ (ID:86475)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >申し訳ないのですが、もう少し詳しくお教え願えないでしょうか？ なんとなく頭が冴えなくて。(^^; Declare Function QueryPerformanceCounter Lib "Kernel32" (ByRef X As Long) As Short Declare Function QueryPerformanceFrequency Lib "Kernel32" (ByRef X As Long) As Short Dim Ctr1, Ctr2, Freq, Interval, Count As Long Dim Timer1Thread As New System.Threading.Thread(AddressOf Timer1) Private Sub Timer1() QueryPerformanceCounter(Ctr1) Do QueryPerformanceCounter(Ctr2) If (Ctr2 - Ctr1) / Freq >= Interval / 1000 Then QueryPerformanceCounter(Ctr1) '処理を書く Count += 1 Me.Text = Count End If Loop End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Interval = 10 'タイマー mSecで設定 QueryPerformanceFrequency(Freq) Timer1Thread.Start() End Sub もう少し何とかなりそうな気もするんだけど、とりあえず。 Threading.Threadに付いては自分で調べてね。