两个小小的vb问题，求教各位高手。 1.如何在statusbar中显示当天的星期2.如何在菜单中的旁边加入图形 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 1、把statusbar的某一窗格的样式设成 0 - sbrText，然后用Weekday函数编程实现。Weekday 函数 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。语法Weekday(date, [firstdayofweek])Weekday 函数语法有下列的命名参数：部分 描述 date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。 设置firstdayofweek 参数有以下设定值：常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 VbSunday 1 星期日（缺省值） vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 返回值Weekday 函数可以返回以下诸值：常数 值 描述 vbSunday 1 星期日 vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 2、要用API函数实现了，其实用好了可以做出XP风格的菜单来。AppendMenu 在指定的菜单里添加一个菜单项 CheckMenuItem 复选或撤消复选指定的菜单条目 CheckMenuRadioItem 指定一个菜单条目被复选成“单选”项目 CreateMenu 创建新菜单 CreatePopupMenu 创建一个空的弹出式菜单 DeleteMenu 删除指定的菜单条目 DestroyMenu 删除指定的菜单 DrawMenuBar 为指定的窗口重画菜单 EnableMenuItem 允许或禁止指定的菜单条目 GetMenu 取得窗口中一个菜单的句柄 GetMenuCheckMarkDimensions 返回一个菜单复选符的大小 GetMenuContextHelpId 取得一个菜单的帮助场景ID GetMenuDefaultItem 判断菜单中的哪个条目是默认条目 GetMenuItemCount 返回菜单中条目（菜单项）的数量 GetMenuItemID 返回位于菜单中指定位置处的条目的菜单ID GetMenuItemInfo 取得（接收）与一个菜单条目有关的特定信息 GetMenuItemRect 在一个矩形中装载指定菜单条目的屏幕坐标信息 GetMenuState 取得与指定菜单条目状态有关的信息 GetMenuString 取得指定菜单条目的字串 GetSubMenu 取得一个弹出式菜单的句柄，它位于菜单中指定的位置 GetSystemMenu 取得指定窗口的系统菜单的句柄 HiliteMenuItem 控制顶级菜单条目的加亮显示状态 InsertMenu 在菜单的指定位置处插入一个菜单条目，并根据需要将其他条目向下移动 InsertMenuItem 插入一个新菜单条目 IsMenu 判断指定的句柄是否为一个菜单的句柄 LoadMenu 从指定的模块或应用程序实例中载入一个菜单 LoadMenuIndirect 载入一个菜单 MenuItemFromPoint 判断哪个菜单条目包含了屏幕上一个指定的点 ModifyMenu 改变菜单条目 RemoveMenu 删除指定的菜单条目 SetMenu 设置窗口菜单 SetMenuContextHelpId 设置一个菜单的帮助场景ID SetMenuDefaultItem 将一个菜单条目设为默认条目 SetMenuItemBitmaps 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√） SetMenuItemInfo 为一个菜单条目设置指定的信息 TrackPopupMenu 在屏幕的任意地方显示一个弹出式菜单 TrackPopupMenuEx 与TrackPopupMenu相似，只是它提供了额外的功能 具体用法网上有详细的帮助文档，英文过关的话看MSDN也行。 :) 等等，第一个问题具体怎么写啊？如在FORM LOAD 中 Option ExplicitPrivate Sub Form_Load()StatusBar1.Panels(1).Style = sbrTextStatusBar1.Panels(1).Text = Weekday(Now)End Sub 出差北京，可能要春节前夕才能回来！！ 自己做的小软件突然无法卸载 关于VSFlexGrid，急急！！！！ 水晶报表横向打印记录 郁闷.....treeview，datagrid控件使用方法 我在武汉想求兼职 VB中的串口通信问题，高手请进。 怎么在VB的函数声明里包含二维数组 请问ADO能用在ActiveX DLL中吗? 如何让decimal型字段保留2位小数，并且能够四舍五入？ 我的刚装的VB用不成，老是说读内存出错,帮帮忙吧..... 串口通讯程序问题（VB中使用多个串口同时采集数据，急急！！！谢谢）
返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。语法Weekday(date, [firstdayofweek])Weekday 函数语法有下列的命名参数：部分 描述
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。
设置firstdayofweek 参数有以下设定值：常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
返回值Weekday 函数可以返回以下诸值：常数 值 描述
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
CheckMenuItem 复选或撤消复选指定的菜单条目
CheckMenuRadioItem 指定一个菜单条目被复选成“单选”项目
CreateMenu 创建新菜单
CreatePopupMenu 创建一个空的弹出式菜单
DeleteMenu 删除指定的菜单条目
DestroyMenu 删除指定的菜单
DrawMenuBar 为指定的窗口重画菜单
EnableMenuItem 允许或禁止指定的菜单条目
GetMenu 取得窗口中一个菜单的句柄
GetMenuCheckMarkDimensions 返回一个菜单复选符的大小
GetMenuContextHelpId 取得一个菜单的帮助场景ID
GetMenuDefaultItem 判断菜单中的哪个条目是默认条目
GetMenuItemCount 返回菜单中条目（菜单项）的数量
GetMenuItemID 返回位于菜单中指定位置处的条目的菜单ID
GetMenuItemInfo 取得（接收）与一个菜单条目有关的特定信息
GetMenuItemRect 在一个矩形中装载指定菜单条目的屏幕坐标信息
GetMenuState 取得与指定菜单条目状态有关的信息
GetMenuString 取得指定菜单条目的字串
GetSubMenu 取得一个弹出式菜单的句柄，它位于菜单中指定的位置
GetSystemMenu 取得指定窗口的系统菜单的句柄
HiliteMenuItem 控制顶级菜单条目的加亮显示状态
InsertMenu 在菜单的指定位置处插入一个菜单条目，并根据需要将其他条目向下移动
InsertMenuItem 插入一个新菜单条目
IsMenu 判断指定的句柄是否为一个菜单的句柄
LoadMenu 从指定的模块或应用程序实例中载入一个菜单
LoadMenuIndirect 载入一个菜单
MenuItemFromPoint 判断哪个菜单条目包含了屏幕上一个指定的点
ModifyMenu 改变菜单条目
RemoveMenu 删除指定的菜单条目
SetMenu 设置窗口菜单
SetMenuContextHelpId 设置一个菜单的帮助场景ID
SetMenuDefaultItem 将一个菜单条目设为默认条目
SetMenuItemBitmaps 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√）
SetMenuItemInfo 为一个菜单条目设置指定的信息
TrackPopupMenu 在屏幕的任意地方显示一个弹出式菜单
TrackPopupMenuEx 与TrackPopupMenu相似，只是它提供了额外的功能
具体用法网上有详细的帮助文档，英文过关的话看MSDN也行。 :)
StatusBar1.Panels(1).Style = sbrText
StatusBar1.Panels(1).Text = Weekday(Now)
End Sub