VB
超镭
IT
展开
-
VB计算一年中某一天在这一年中是第几周
Private Sub Command1_Click() MsgBox "今天是" & trim(str(Year(Date))) & "年第" & trim(str(GetWeekOfYear(Date))) & "周"End Sub'计算一年中某一天在这一年中是第几周Function GetWeekOfYear(myDate As Date) As Integer Dim result As Integer Dim date1 As Da.原创 2020-12-03 10:09:51 · 2372 阅读 · 0 评论 -
VB6.0操作WPS2019
以下VB6.0代码可以实现WPS2019个人免费版(不含VBA组件)的处理Private Sub Command1_Click() Set xlApp = CreateObject("ket.Application") '后期WPS,WPS2019个人PC版-V11.1.0.9584 '网上查询说et.Application及excel.Application也能,但我测试都会提示错误 Set xlBook = xlApp.Workbooks.Open(...原创 2020-06-09 15:29:10 · 6551 阅读 · 1 评论 -
VB ListView控件各种操作详解
Private Sub Form_Load() 'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。 ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear ...转载 2019-03-25 10:09:21 · 12957 阅读 · 1 评论