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

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

于 2022-11-30 发布 文件大小:2.12 kB
0 74
下载积分: 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.NET 获取全局鼠标坐标范例
    VB.NET 获取全局coordinate鼠标坐标,显示窗体内的XY坐标,窗体外凡是显示屏幕的任意位置都可以显示出坐标,获取全局鼠标坐标,测试截图是获取本窗口外的鼠标坐标,请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后,将执行以下代码获取全局坐标:   GetCursorPos(p)   tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)   tooltip1.Active = True
    2022-11-10 13:15:03下载
    积分:1
  • vb.net 捕获键盘按键和鼠标XY坐标位置
    vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:   Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()   获取键盘按下:   Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()
    2023-06-22 15:00:03下载
    积分:1
  • VB演示 FileToSplit分割文件与合并文件
    VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。   关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
    2022-11-15 13:30:03下载
    积分:1
  • VB OutLook折叠展开的主界面菜单
    VB OutLook式主界面菜单,可折叠和展开,类似WindowsXP的界面左侧菜单,如示例图所示,本示例菜单效果请看左侧的图文式菜单,鼠标单击后可向下滑开,显示出二级的图文菜单,再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用,本源码是仿写的这种菜单。
    2022-05-14 02:45:19下载
    积分:1
  • VB输入限制:只允许输入汉字
    VB输入限制功能一例:只允许输入汉字,本实例只允许用户输入汉字,如果输入其它类型的字符,程序将不允许输入,且会提醒用户。原理是获取键盘上的ASCII值,并判断是否在中文汉字的范围,若不在,就禁止输入。实现本功能的关键代码,分享给大家:   If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then    KeyAscii = 0    MsgBox "只允许输入汉字!", 48, "提示"   End If   因为是对键盘的控制实现对输入的限制,因此若鼠标复制了一段包含其它字符的文字,则程序无能为力,因为鼠标不在监控范围。
    2023-02-18 18:05:03下载
    积分:1
  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • 分享一个VB Excel表格生成模块
    分享一个VB Excel表格生成模块,借助了模块中的ChangeToExcel.ocx组件来生成,使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。   Excel表格生成模块为该组件的源代码文件,你还可以通过源码对组件功能进行调整。   Demo文件夹下是使用此组件导出Excel文件的例子,单击按钮即可生成Excel文件。
    2022-11-26 13:10:03下载
    积分:1
  • VB将程序图标添加到托盘
    VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
    2022-03-24 10:49:35下载
    积分:1
  • VB让窗口标题栏闪烁效果
    VB让窗口标题栏闪烁效果源码,不过我测试没有发现标题栏闪烁,咋回事呢?实现的思路是:声明API函数Flashwindow,然后编写下面的代码:   Call FlashWindow(hwnd, 1)   If Me.Caption = "闪烁的标题栏" Then    Me.Caption = "欢迎使用管理软件! "   Else    Me.Caption = "闪烁的标题栏-www.codesc.net"   End If
    2022-08-08 08:27:55下载
    积分:1
  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载