的确用Winform比较方便,呵呵,自己写的代码,给后面的人一个帮助 Public Function AddData() As String Dim aryID() As String = New String() {"id1", "id2", "id3", "id4"} Dim ro As New Random() Dim i, j, k As Integer, dat1 As Date i = ro.Next(0, 4) j = ro.Next(0, 2) k = ro.Next(0,60) dat1 = DateAdd(DateInterval.Second, k, Now()) aryValue = New Object() {aryID(i).ToString, dat1, j} 数据库操作 End Function Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed AddData() Label1.Text = CStr(CInt(Label1.Text) + 1) End Sub
Public Function AddData() As String
Dim aryID() As String = New String() {"id1", "id2", "id3", "id4"}
Dim ro As New Random()
Dim i, j, k As Integer, dat1 As Date i = ro.Next(0, 4)
j = ro.Next(0, 2)
k = ro.Next(0,60)
dat1 = DateAdd(DateInterval.Second, k, Now())
aryValue = New Object() {aryID(i).ToString, dat1, j}
数据库操作
End Function Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
AddData()
Label1.Text = CStr(CInt(Label1.Text) + 1)
End Sub