登录
首页 » VB源码 » VB 演示如何使用WeekdayName获取星期名称

VB 演示如何使用WeekdayName获取星期名称

于 2022-11-30 发布 文件大小:2.12 kB
0 70
下载积分: 2 下载次数: 1

代码说明:

VB 演示如何获取星期名称,这里获取星期几是使用了VB内置的WeekdayName函数,将获取到的日期和星期几直接显示在Text控件中,下面是这个函数的具体用法:   Private Sub Command1_Click()   Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)   End Sub   Private Sub Form_Load()   Text1.Text = Date   Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)   End Sub   在VB6.0 IDE环境中编译此源代码,生成如演示截图所示的运行效果。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB 生成中文验证的控件附实例调用
    VB 生成验证码的控件附实例调用例子,支持中文的验证码控件,内含Demo和验证码控件源码,使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数,0到6随机数,0到15随机数,从1到15的随机数,从0到14的随机数等,生成了超多的随机数数组,来生成复杂的中文和数学验证码混合体,请参见例子中的使用方法,运行效果如测试截图所示。
    2022-12-01 05:10:03下载
    积分:1
  • VB Socket获取主机名和IP地址
    VB Socket获取主机名和IP地址,获取主机名是使用了VB中的GetComputerName直接得到,然后对Socket初始化,使用gethostbyname取得主机地址,再获取到IP后进行转化为标准的IP格式。转换过程如下:   RtlMoveMemory host, hostent_addr, LenB(host)   RtlMoveMemory hostip_addr, host.hAddrList, 4   ReDim temp_ip_address(1 To host.hLength)   RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength   For i = 1 To host.hLength    ip_address = ip_address & temp_ip_address(i) & "."   Next i   ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)   MsgBox "IP:" + ip_address
    2022-10-23 19:55:03下载
    积分:1
  • VB制作可移动按钮位置的Toolbar工具栏
    VB制作可移动按钮位置的工具栏,这个窗口中的Toolbar允许用户自己调整位置,可以拖动至指定位置,记得word中的工具栏就是这样,当你改变默认的工具栏布局时,程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗?")弹出确认信息。另外,本范例也可看作是一个在VB窗口中制作图标菜单的好范例,如示例图所示的效果。
    2022-11-01 12:50:03下载
    积分:1
  • VB 数据库连接通用类
    VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
    2023-04-15 17:45:04下载
    积分:1
  • VB Http proxy代理服务器
    Http proxy,由VB6.0编写的代理服务器的源码,要测试代理示例,请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2,此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后,它连接到真实服务器并传递标头数据。   打开程序后,可单击监听按钮,实现代码服务的监听功能,也可适时停止这个功能。   本源码来自于国外。
    2022-09-10 03:25:03下载
    积分:1
  • VB NET写的DVD播放器
    播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。   播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。   本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
    2023-05-18 15:05:03下载
    积分:1
  • VB NET SQLSERVER 酒店客房管理系统
    VB NET SQLSERVER 酒店管理系统,功能模块:基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等,只是一个基础级的酒店客户管理程序,测试前请把Database下的数据库附加,修改数据库连接字符串,然后运行Debug中的exe程序。
    2023-04-22 15:20:03下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • vb实现调用其他应用程序的菜单
    vb演示如何调用其他应用程序菜单的方法,程序演示了在VB程序中,调用 windows记事本程序的菜单,不过测试发现,本程序在Windows 7中失效了,本代码写于2010年的,有些早了,当时可能只考虑了Windows XP,可能需要对以下代码加以修正,才能适用于windows 7/10环境:   hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")   If hwnd = 0 Then Exit Sub   hMainMenu = GetMenu(hwnd)   hMenu = GetSubMenu(hMainMenu, 0)   MenuID = GetMenuItemID(hMenu, 3)   AppActivate "无标题 - 记事本菜单"   Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
    2022-06-26 16:44:01下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载