日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vb如何调用计算机日历,跪求vb.net简易日历制作的源代码

發(fā)布時間:2023/12/20 编程问答 32 豆豆
生活随笔 收集整理的這篇文章主要介紹了 vb如何调用计算机日历,跪求vb.net简易日历制作的源代码 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

該樓層疑似違規(guī)已被系統折疊?隱藏此樓查看此樓

我們要的計算機VB考試要求設計一個簡易日歷。還需要答辯 每一個步驟需要知道是怎么來的。下面是網上找的編寫的簡易日歷的VB。請高手給出每個步驟的答辯:

一、設計思路

1.要達到的目的

①窗體加載自動提取并顯示當前日期

②能選擇1960-2060之間的任一年份

③單擊確定后顯示所選日期

④節(jié)日等在選定日期后以MsgBox形式提示

⑤單擊退出關閉窗體

⑥根據所選年份和月份,確定顯示天數的個數

⑦年月日及下方的顯示只可讀不可輸入

⑧選擇某一日期后凹陷顯示并在窗體下方顯示所選擇的日期及其星期

2.關鍵問題的解決

①根據所選年份和月份,確定顯示天數的個數

②顯示節(jié)日——利用MsgBox等函數

③選擇某一日期后凹陷顯示并在窗體下方顯示所選擇的日期及其星期——修改Label的BorderStyle屬性

④年月日及下方的顯示只可讀不可輸入——修改ComboBox的BorderStyle屬性和TextBox的Locked屬性

二、模塊之間的調用關系,或程序流程圖

還有相對獨立的bnyes,bnexit模塊

三、部分程序關鍵源代碼及注釋

Private Sub checkdate(month%, year%)

Dim i%, value%, datebn$

For i% = 28 To 32

datebn$ = (Str$(month%) + "/" + Str$(i%) + "/" + Str$(year%))

If IsDate(datebn$) Then

value% = i%

Else

Call visualnumber(value%)

Exit Sub

End If

Next i%

End Sub

Private Sub visualnumber(number%)

Dim i%

For i% = 28 To 30

bndate(i%).Visible = False

Next i%

For i% = 28 To number% - 1

bndate(i%).Visible = True

Next i%

End Sub ’ 根據所選年份和月份,確定顯示天數的個數

總結

以上是生活随笔為你收集整理的vb如何调用计算机日历,跪求vb.net简易日历制作的源代码的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。