怎么把日期选择控件的星期几改为只要星期几后面的数字？

Question

如题。把日期选择框(MonthView)的星期几去掉星期二字。例如：
星期日 星期一 星期二 ……
改为：
日 一 二 ……
否则按照前面的格式，日期选择框显示的太大了。

Answer 1

Dim Week$
Week = Right(WeekdayName(Weekday(now)), 1)
或
Week = Right(WeekdayName(Weekday("2008/05/14")), 1)或Week = Right(WeekdayName(Weekday(MonthView变量)), 1)

Answer 2

他说的好像是 DTPicker的框

Answer 3

呵呵 谢谢楼上, 楼主要问问题自己都不想花点时间写清楚点, 那我也没辙啦.如果是控件上面的话, 如果它有句柄就可以使用 Sendmessage 改掉它

Answer 4

Option Explicit
Dim aa$
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
   aa = MonthView1.Year & "/" & MonthView1.Month & "/" & MonthView1.Day
   'MsgBox WeekdayName(Weekday(aa))
   MsgBox Right(WeekdayName(Weekday(aa)), 1)
End Sub

Answer 5

我在中文系统下，使用日期选择框MonthView控件时，“5月2008”下面的星期几的显示栏，会显示为
“星期日 星期一 星期二 星期三 星期四 星期五 星期六”
这样就导致日期选择框的宽度变得很宽，我想要上图所示日文系统下的样式，日期栏只显示：
“日 一 二 三 四 五 六”
这样，当弹出日期选择框MonthView控件时，宽度就会窄一些了。

Answer 6

谢谢，老师。
我查了一下msdn，弄明白了各函数的意思。
第一次用vb，麻烦大家了。