怎样实现延时显示

2006-10-27 03:59:04 156 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

unity里如何隐藏物体实现延时显示方法一：update计时器实现 1、操作：新建一个空物体cube和Cubepanel，隐藏cube，脚本挂在cube上。 using System.Collections; using System.Collections.Generic; using UnityEngine; public class activeShow : MonoBehaviour { public GameObject cube; string message = null; private floa 阅读详情

提取数据库里的数据
然后在标签里依次显示出来
并且是每6秒显示一次

...全文

单片机——C51实验含Proteus仿真（定时器、外部中断，中断、延时实现数码管动态显示）单片机——C51实验含Proteus仿真（定时器、外部中断，中断、延时实现数码管动态显示）阅读详情

e_qqzyong

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

www_123du_com 2006-10-29

打赏
举报

发送者：e_qqzyong 发送时间：2006-10-28 11:53:34 删除回复

我有236HANG行数据
每行数据分别在7个标签控件中显示
而且每6秒刷新一次，依次把所有行数据显示出来
_______________________________________________

如果是每6秒刷新一次，重新到数据库取所有数据重新显示，那么用个Timer吧。

www_123du_com 2006-10-27

打赏
举报

延时就用Thread.Sleep(6000);

不过看你的需求没太看懂，似乎用Timer就行了。

e_qqzyong 2006-10-27

打赏
举报

Public Class Form1
Inherits System.Windows.Forms.Form
Dim objConnection As SqlConnection = New SqlConnection("server=bxg-zouyong;database=zpySQL11;user id=sa;password=")
Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT N,CO,COO,O,Ar,H,HO from sheet3 ", objConnection)
Dim objDataSet As DataSet
Dim objDataView As DataView
Dim objCurrencyManager As CurrencyManagere
Private Sub FillDataSetAndView()
Try
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "sheet3")
objDataView = New DataView(objDataSet.Tables("sheet3"))
objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)
Catch sqlexception As SqlException
MessageBox.Show(sqlexception.Message)
End Try
End Sub
Private Sub BindingFields()
lblCO.DataBindings.Clear()
lblCO2.DataBindings.Clear()
lblO.DataBindings.Clear()
lblH.DataBindings.Clear()
lblAr.DataBindings.Clear()
lblHO.DataBindings.Clear()
lblN.DataBindings.Clear()
lblCO.DataBindings.Add("Text", objDataView, "CO")
lblCO2.DataBindings.Add("Text", objDataView, "COO")
lblO.DataBindings.Add("Text", objDataView, "O")
lblH.DataBindings.Add("Text", objDataView, "H")
lblAr.DataBindings.Add("Text", objDataView, "Ar")
lblHO.DataBindings.Add("Text", objDataView, "HO")
lblN.DataBindings.Add("Text", objDataView, "N")
End Sub
Private Sub ShowPosition()
lblPosition.Text = objCurrencyManager.Count & " of " & objCurrencyManager.Position + 1
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FillDataSetAndView()
BindingFields()
ShowPosition()
End Sub

Private Sub btnBegin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBegin.Click
Dim i As Integer
For i = 1 To objCurrencyManager.Count
ShowPosition()

objCurrencyManager.Position += 1
Now.AddSeconds(6)
Next

End Sub
End Class
为什么

Knight94 2006-10-27

打赏
举报

Thread.Sleep( 6000 ) 'Sleep 6 seconds

怎样实现 延时显示

相关推荐

怎样实现延时显示