昆山保洁公司,习永盛,查移动手机通话记录
private sub ds按钮1_buttonclick(sender as object) handles ds按钮1.buttonclick
dim t as new threading.thread(addressof doit)
t.isbackground = true
t.start()
end sub
private sub doit()
for i as integer = 1000 to 0 step -1
ds进度条1.当前值 = i
dim cl as color = color.fromargb(255 * (1 - i / 1000), 255 * (i / 1000), 0)
ds进度条1.前景颜色 = cl
ds标签1.text = "<color=255,200,0>hp</color> " & i
threading.thread.sleep(10)
application.doevents()
next
ds进度条1.当前值 = 0
ds标签1.text = "<color=255,200,0>hp</color> 0"
end sub
private sub form1_load(sender as object, e as eventargs) handles mybase.load
checkforillegalcrossthreadcalls = false
end sub
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
asp.net搭建博客,使用BlogEngine.NET+MySql搭建博客
网友评论