登录
首页 » VB源码 » 在状态栏中显示当前状态-VB范例

在状态栏中显示当前状态-VB范例

于 2023-03-24 发布 文件大小:3.88 kB
0 94
下载积分: 2 下载次数: 1

代码说明:

VB6.0在状态栏中显示当前状态,演示程序以一个画图程序来演示窗口状态栏的变化,当我们画直线、执行操作: 画正方形,执行操作: 画圆的时候,会显示出状态,要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了,很早的VB示例中就实现了,因此本源码比较基础了,高手请绕行。

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

发表评论

0 个回复

  • VB.NET 轻松提速打字游戏
    VB.NET 轻松提速打字游戏源代码,同时调用了MID背景音乐文件,边打字边听音乐。程序功能:打字时间设置、倒计时、打字难易程序设置、背景音乐和文字设置、游戏速度设置、窗口背景颜色设置、音乐开关设置等,其实这是一个打字小游戏,从窗口顶部会随机掉下来字母,敲击键盘上对应的字母键即可消除该字符,算打字成功。本趣味打字帮助大家面对键盘只会‘一指弹’炼成‘弹指神功’的炉火纯清的地步。   在编写时保证了窗体大小发生变化时保证窗体下面几个界面元素不会混乱,同时也调用了Windows编程库,比如Windows MediaPlayer的相关组件AxInterop.WMPLib.dll/Interop.WMPLib.dll,用于播放背景声音。程序中的随机生成器,即每次产生的随机种子不一样,很有用,用来生成随机掉下来的字母。
    2022-04-12 19:44:43下载
    积分:1
  • 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 人事管理系统 SQLSERVER版
    VB.NET 人事管理系统 SQLSERVER版,这个系统主要是练习VB.NET与数据库方面的操作,功能不复杂,包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时,有一个启动窗口效果,带渐变的动画。
    2022-07-11 07:49:30下载
    积分:1
  • 超强的音频格式文件处理动态库
    这个代码是一个支持不同音频格式的声音动态库文件,支持声音回放、音频编码、解码。他能解码(所以也能播放)WAV, MP3, OGG Vorbis, WMA, APE和CDA, 以及编码 WAV, MP3, OGG Vorbis, WMA和APE。在音频流回放上使用了 DirectSound 8(所以你需要dx8vb.dll),支持DSP,频谱分析,可视化效果等数据控制。文件夹内的示例说明:1、通吃音乐播放器 Ver 2.0(支持播放所有格式的音频文件,支持显示文件TAG,3种可视化效果(频率、时间、dBFS显示);2、CD提取转换工具 Ver 1.0(提取CD内音轨并转换为所有的支持格式);3、音频格式文件转换器 Ver 1.0(各种音频格式的相互转换);4、简单示例(一个简单的背景回放示例)。需要说明的是其中需要的部分编解码文件需要第三方的支持,以下是下载地址: APE 和 MP3: 源码中已经包含了dx8vb.dll,编译前记得引用。
    2023-04-25 07:40:03下载
    积分:1
  • VB 演示如何使用WeekdayName获取星期名称
    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环境中编译此源代码,生成如演示截图所示的运行效果。
    2022-11-30 01:55:03下载
    积分:1
  • VB Http proxy代理服务器
    Http proxy,由VB6.0编写的代理服务器的源码,要测试代理示例,请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2,此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后,它连接到真实服务器并传递标头数据。   打开程序后,可单击监听按钮,实现代码服务的监听功能,也可适时停止这个功能。   本源码来自于国外。
    2022-09-10 03:25:03下载
    积分:1
  • VB 6.0 利用文本框组输入数据
    VB 6.0 利用文本框组输入数据,你会发现这量个矩阵类型的输入框,输入完一组数据后,会提示输入第二组,当所有都输入完成后,以3行4列的矩阵方式输出数组元素,输入的过程中支持光标的自动定位功能,你可以了解一些提高输入效率的基本操作,有利于提高软件的使用体验。
    2022-08-17 01:05:20下载
    积分:1
  • VB6.0 使用列表播放midi等媒体文件
    VB6.0 使用列表播放midi等媒体文件,代码中添加了注释,了解VB如何操作MIDI文件进行播放,核心是调用了msdxm.ocx文件,如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-03-23 18:50:41下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • VB 6.0 AscW将汉字转换为Unicode字符代
    本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:   Private Sub Command1_Click()    Text2.Text = AscW(Text1)   End Sub   Private Sub Command2_Click()    Unload Me   End Sub
    2022-08-09 07:08:37下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载