因為vb裡沒有什麼linq，所以就用純字串操作了，**如下：
private sub form_load()
dim s$, i%, strdatepre$, d1 as date
strdatepre = datepart("yyyy", now) & "-" & datepart("m", now) & "-"
s = "su mo tu we th fr sa" & vbcrlf
doi = i + 1
d1 = strdatepre & i
if i = 1 then s = s & space((datepart("w", d1) - 1) * 3)
s = s & space(2 - len(cstr(i))) & i & " "
if datepart("w", d1) = 7 then s = s & vbcrlf
if datepart("d", d1 + 1) = 1 then exit do
loop
msgbox s
end sub
su mo tu we th fr sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
private sub form_load()
dim s$, i%, intmonth%, strdatepre$, d1 as date
for intmonth = 1 to 12
strdatepre = datepart("yyyy", now) & "-" & intmonth & "-"
s = datepart("yyyy", now) & "年" & intmonth & "月" & vbcrlf & "su mo tu we th fr sa" & vbcrlf
i = 0
doi = i + 1
d1 = strdatepre & i
if i = 1 then s = s & space((datepart("w", d1) - 1) * 3)
s = s & space(2 - len(cstr(i))) & i & " "
if datepart("d", d1 + 1) = 1 then exit do else if datepart("w", d1) = 7 then s = s & vbcrlf
loop
debug.print s & vbcrlf
next
end sub
2023年1月
su mo tu we th fr sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
2023年2月
su mo tu we th fr sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28
2023年3月
su mo tu we th fr sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 2023年4月
su mo tu we th fr sa
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30
2023年5月
su mo tu we th fr sa
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
2023年6月
su mo tu we th fr sa
1 2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 2023年7月
su mo tu we th fr sa
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31
2023年8月
su mo tu we th fr sa
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
2023年9月
su mo tu we th fr sa
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30
2023年10月
su mo tu we th fr sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
2023年11月
su mo tu we th fr sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
2023年12月
su mo tu we th fr sa
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
VB列印透明內容
在vb6列印的時候，設定印表機的屬性printer.fonttransparent true可以列印出背景透明內容，但有些時候該設定不起作用，可以通過下面的方法解決。private declare function setbkmode lib gdi32 byval hdc as long,byva...
VB6 系統列印常識
在一次做列印的時候，對位置的調整老是不得法，後來通過cbm666老師的幫助才解決問題，分享以下他給的幫助。其中pic 為物件,如圖形框picture等 destx,desty 目標影象位置 destwidth,destheight 目標影象尺寸 scrx,scry 原影象的裁剪座標 scrwidth...
VB中的幾種列印方法
size medium 1.採用visual basic 提供的簡單列印函式printform 方法。應用程式窗體的printform 方法時，visual basic 把窗體的點陣圖送到當前印表機。該方法的優點在於它幾乎不需要任何程式設計，但也有很大缺陷。最為突出的是當低解析度圖形在高解析度印表機...