- 博客(1)
- 资源 (1)
- 收藏
- 关注
VB 万年历(带农历)类+Demo.rar
VB 万年历
Private Sub Form_Load()
Me.Text1.Font.Name = "宋体"
Me.Text1.Font.Size = 9
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = 1
End If
End Sub
Private Sub Form_Resize()
Me.Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
2013-01-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人