- 博客(0)
- 资源 (1)
空空如也
vb编程入门-打造属于自己的记事本
代码
Private Sub Command1_Click()
Text1.FontSize = Text2.Text
End Sub
Private Sub Command2_Click()
Open App.Path & "\保存.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
Text1.ForeColor = Label1.BackColor
End Sub
Private Sub Label2_Click()
Text1.ForeColor = Label2.BackColor
End Sub
Private Sub Label3_Click()
Text1.BackColor = Label3.BackColor
End Sub
Private Sub Label4_Click()
Text1.BackColor = Label4.BackColor
End Sub
Private Sub Timer1_Timer()
Label5.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
End Sub
2009-05-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人