【菜鸟求助】走过路过的大湿们帮帮忙
vb.net吧
全部回复
仅看楼主
level 1
摩洛哥吗 楼主
2016年10月25日 14点10分 1
level 1
摩洛哥吗 楼主
Button的text属性如何在‘启动’和‘停止’中切换?
2016年10月25日 14点10分 2
level 1
摩洛哥吗 楼主
[心碎]木有人么?// A \\ 【哭】
2016年10月25日 14点10分 3
level 1
摩洛哥吗 楼主
我还是洗洗睡吧。QAQ
2016年10月25日 14点10分 4
level 1
摩洛哥吗 楼主
。。。。。。##轻轻的我来了,正如我轻轻的走。我轻轻地招手,作别西天的云彩。##
(一。一/// )
2016年10月25日 14点10分 5
还需要做吗
2016年10月26日 04点10分
level 1
Public Class Form1
'只加了三种颜色,其它自己加,学编程还是要自己动手才行,VB.Net入门真的很简单
Dim Lab_Color(2) As Color '定义颜色数组,存入所需颜色,注意数组元素维数
Dim Lan_N As Integer = 0 '颜色显示计数
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "停止" Then '判断当前按钮显示的内容
Timer1.Stop()
Button1.Text = "开始"
Else
Timer1.Start()
Button1.Text = "停止"
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.ForeColor = Lab_Color(Lan_N) '显示颜色
If Lan_N = Lab_Color.Length - 1 Then '判断是否为最后一种颜色
Lan_N = 0
Else
Lan_N = Lan_N + 1
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Lab_Color = {Color.Red, Color.Lime, Color.Blue} '给颜色数组赋值
End Sub
End Class
2016年10月28日 15点10分 6
level 1
摩洛哥吗 楼主
谢谢![哈哈][真棒]
2016年10月28日 17点10分 7
1