闪烁的文字可以在屏幕上起到明显的提示作用。通过使用VB的Timer控件,程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果,这种方法同样适用于其它多种控件。
当你在窗体上加入Timer控件时,它只出现在设计时,而不会在运行时出现可见的控件图标。Timer控件带有两个重要的参数。Interval(间隔)属性用来确定Timer控件多久触发一次,其单位为毫秒,因此当该值为500时,就表示一秒钟会触发两次。Enabled(使能)属性用来确定Timer控件是运行(Enabled = True)还是停止(Enabled = False)状态。
实际的闪烁是在Timer事件中完成的,Timer控件每次触发,程序都会调用Timer事件。我们可以将Label控件的ForeColor属性设置为黑色(可见)以及和BackColor属性一致的颜色(文字和背景色一致,相当于不可见)。以下代码可以完成检验ForeColor属性的任务:
Private Sub Timer1_Timer()
If Label1.ForeColor = Label1.BackColor Then
Label1.ForeColor = vbBlack
Else
Label1.ForeColor = Label1.BackColor
End If
End Sub
另外,你也可以让文字采用不同的颜色,比如交替采用红色和绿色:
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen
Else
Label1.ForeColor = vbRed
End If
End Sub
当你停止文字闪烁时,还要确定文字的状态是可见的并且采用了合适的色彩。要完成这个功能,你需要在停止闪烁时加入以下代码设置ForeColor属性:
Timer1.Enabled = False
Label1.ForeColor = vbBlack
10 VB/VB.NET/C#导出到Excel的方法
先在VB的工程中引用“Microsoft Excel 11.0 Object ”11.0是版本号,不重要的,Excel2000是9.0
'申明变量
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
'使用模板
Set xlBook = xlApp.Workbooks.Open(App.Path & "\普通.xls")
On Error GoTo 0
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlSheet.Activate
'处理数据,填充Excel表
xlSheet.Cells(3, 4) = TextQuery.Text '产品名称
……
xlApp.Visible = True '显示表格
Set xlApp = Nothing '交还控制给Excel
Set xlBoook = Nothing
Set xlSheet = Nothing
到此,导出到Excel完成,在.NET中,只需改动少许即可运行,只是C#的语法有些区别。
责任编辑:cyth