如何用vb编写桌面便签

1 设置form背悄则景图片即picture属性

2 设置form无边框即boderstyle属性

3 里面放置一个textbox

4 完悉早善功能启陆棚

Private Sub Command1_Click()

Dim i, j, iHour, iMinute, iSecond As Integer

i = Val(Text1.Text)

iSecond = i Mod 60

i = i \裂团 60

iMinute = i Mod 60

i = i \ 60

iHour = i Mod 60

Label1.Caption = Str(iHour) &"小时" &Str(iMinute) &"分" &Str(iSecond) &"肆碧橘秒慧埋"

End Sub

首先：选中标签，闭咐在它的属性里面找到Font （后面一半默认是宋体），并蠢点一下Font，“轿蔽纯宋体”后面出现省略号，点省略号，在d出的对话框里改。

然后：再双击窗体，输入

Private Sub Form_Load()

Label1.BackColor = vbRed

End Sub

然后点运行，就可以了

---