Question

VB制作抽奖软件

我想做的抽奖软件是：按“开始”，文本框里的名字开始闪烁变化，按“停止”，名字停止变化，文本框显示的名字即为中奖的名字；然后名字源于读取文本里一行行的名字。另外，通过拖动滚动条来控制名字闪烁变化的快慢。只是不知道怎么弄；下面是目前的程序：Imports System.IOPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub HScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged Timer1.Interval = HScrollBar1.Value End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim F4 As New StreamReader("C:\Users\Stevenl\Desktop\文本源咯.txt") Dim text As String text = F4.ReadLine() TextBox1.Text = text F4.Close() End SubEnd Class
是VB.net的哈

Answer 1

通过拖动滚动条来控制名字闪烁变化的快慢。
比如你TXT有100个名字，‘
那么设定滚动条为100，当你拉动的时候，就会闪烁！！

追问

.....那还得手动拉动么ˊ_>ˋ

追答

不用手动啊！同timer控件

Answer 2

你这个是vb6.0还是vb.net?
我只会vb6.0

追问

是net的……我也不知道区别大不大

追答

net和vb是两回事。