-
VB生成圆形图表,圆饼百分比图表
VB成绩统计饼图,生成圆形图表,圆饼百分比图表的例子,这种图表相信大家见多了,这个例子介绍了VB简单生成圆饼图的方法,对初学VB的朋友会有帮助,通过这个图表,你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的,用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例,各个比例用不同的颜色填充,让结果一清二楚,源代码运行于VB6.0环境 ,运行效果如下图所示。
- 2022-05-15 05:38:34下载
- 积分:1
-
vb6.0 字节数组和字符串的相互转换
vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
- 2023-03-14 07:50:04下载
- 积分:1
-
vb.net 读取INI文件示例
vb.net vs2008读取INI文件示例,ini文件名为 Send.ini,代码中包括了一个读ini API函数。
Ini文件说明:
[节名] []中的节名对应此API的第一参数
Name=内容 Name对应此API的第二参数
API的第三参数是没有取到匹配内容时返回的字符串;
API的第四参数是要返回的字符串;
API的第五参数是字符串缓冲的长度,一般255;
API的第六参数是INI文件的路径。
- 2022-02-20 08:44:55下载
- 积分:1
-
VB6.0 屏幕滚动字幕(文字滚动)
VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:
Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分:1
-
VB Val与汉字的相互转化
VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:
把数字转换成字符串,把字符串转换成数字。
- 2022-02-10 12:28:52下载
- 积分:1
-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子,支持中文的验证码控件,内含Demo和验证码控件源码,使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数,0到6随机数,0到15随机数,从1到15的随机数,从0到14的随机数等,生成了超多的随机数数组,来生成复杂的中文和数学验证码混合体,请参见例子中的使用方法,运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分:1
-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
- 2022-10-27 20:55:03下载
- 积分:1
-
VB 记录鼠标行为,判断左键右键
VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:
If GetAsyncKeyState(VK_LBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标左键 "
ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标右键 "
End If
- 2022-02-28 11:29:47下载
- 积分:1
-
vb.net 键盘鼠标全局线程钩子
vb.net 键盘鼠标全局线程钩子实例源码,源码中包括了HOOk的源码和Test项目源码,HookCode目录中是HOOk的源代码,TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下,与exe同级,运行效果如下图所示。
- 2022-01-21 21:24:31下载
- 积分:1
-
支持代理的VB FTP服务器程序
一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。
- 2022-03-06 02:53:34下载
- 积分:1