タイトル : Re: 矩形領域の移動 投稿日 : 2006/04/29(Sat) 14:51 投稿者 : 花ちゃん
Timerコントロールイベントを使わなければいいのでは。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim sTime0 As DateTime = Now For i As Integer = 0 To 200 PictureBox1.Left = PictureBox1.Left + 1 Next i Dim eTime0 As DateTime = Now MessageBox.Show(eTime0.Subtract(sTime0).TotalSeconds & " 秒かかりました。") End Sub 0.20 秒(1000/秒) Pentium4 1.70GHz 640MB(RAM) |