- 博客(3)
- 资源 (2)
- 收藏
- 关注
转载 播放音乐 与 淡入淡出
Sub PlayFormGreeting() My.Computer.Audio.Play(My.Resources.Resource1.Button7, _ AudioPlayMode.Background) End Sub Sub FormFade(ByVal FType)
2013-08-30 13:14:21 784
原创 写入皮肤
IO.File.WriteAllBytes("SportsCyan.ssk", My.Resources.Resource1.SportsCyan) SkinEngine1.SkinFile = "SportsCyan.ssk"
2013-08-14 09:55:26 617
原创 TEST
Public Sub delay(ByRef Interval As Double) Dim time As DateTime = DateTime.Now Dim Span As Double = Interval * 10000000
2011-08-03 15:30:55 343
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人