第61集 日期和进度条
295、 注意事项
注意:64位office无法加载该控件,32位可以运行。
296、 常用的日期控件
有2个,一个是DTPicker,另一个是Calendar。附加控件中选择Microsoft Dtae and Time Picker Control和日历控件 12.0。
DTPicker设置日期格式是,月份要大写。如:yyyy-MM-dd
297、 注册日历控件
Sub 自动注册日期控件()
Dim k
FileCopy ThisWorkbook.path & “/MSCOMCT2.OCX”, “C:\Windows\system32\MSCOMCT3.OCX”
k = Shell(“regsvr32 MSCOMCT2.OCX”)
End Sub
298、 进度条
① 通过TextBox和Label控件组合,实现进度显示的效果。
Private Sub CommandButton1_Click()
Dim x, w, k, n
w = TextBox1.Width
n = 40000
'ProgressBar1.Max = n
'ProgressBar1.Min = 0
'ProgressBar1.Scrolling = ccScrollingSmo
VBA入门到进阶常用知识代码总结61
最新推荐文章于 2021-11-01 15:23:44 发布