-
VB演示 FileToSplit分割文件与合并文件
VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。
关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
- 2022-11-15 13:30:03下载
- 积分:1
-
VB6.0 顺序文件写操作的操作演示
VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。
这三种方法是:
把文件的内容一次性的写入
把字符一个一个写入
依次写入顺序文件
- 2022-01-26 17:24:14下载
- 积分:1
-
磁性窗体 VB简单实现方法举例
VB简单实现磁性窗体,将窗体粘合,子窗体连接的任何窗体都粘合上,获取所有窗体的矩形区域,并重新设置粘合,连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中,比如播放列表快接近播放主窗口时,自动吸附到主窗口上,紧贴主窗口边缘,像是有种磁性一样吸附在一起,本窗口中的三个子窗口,都具有自动吸附的磁性感觉,有兴趣可下载本源码学习测试。
- 2022-01-21 20:24:46下载
- 积分:1
-
内核为VB6的一个下载软件开源源码
内核为VB6的一个下载软件开源源码, 界面方面支持悬浮窗、支持TAB窗口选项卡切换内容,操作方便,关于下载文件方面,已经实现的功能:
1.同时下载两个文件
2.支持断点续传
3.支持代理服务器
使用方法:
1.双击开始或停止
2.其他按鼠标右键
- 2022-10-17 00:05:03下载
- 积分:1
-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限,是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性,将操作权限写到Access数据库中,然后读取数据库的数据,通过数据库字段的值决定该菜单是否可以访问,从而达到通过菜单控制每个操作员操作权限的目的。运行程序,选择“销售业务管理”-“销售数据导入”,弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分:1
-
VB求解数学问题,求两个数最大公约数
VB6.0演示一个求解数学问题,求两个数最大公约数,这是个简单的数学问题,数学基础好,用VB很轻松就编写出本程序了。在运行的窗口中,分别输入两个整数,单击按钮,程序将显示两个数的最大公约数是多少。求解的过程代码描述如下:
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出,请重新输入!"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分:1
-
VB.NET API函数画线条示例
VB.NET API函数示例,使用VB api函数画线条的一个例子,如图所示的效果中,鼠标单击两端,即可画出一条直线,主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示,本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分:1
-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号,学会了本例子,是个比较实用的技巧,在一些需要批量生成编号的地方,你都可以借鉴本程序,来实现编号生成,在本例中,是批量生成房屋的编号,用户可选择楼层范围、单元范围等参数后,即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说,都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分:1
-
VB6 FileExists判断文件是否存在
VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或False,然后再进行相关处理。关于FileExists用法,有以下代码供参考:
Dim B As Boolean
B = FileExists(Me.Txt_Path.Text)
If B Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
以上代码段封装在按钮事件中,用户单击按钮后,执行本段代码,判断指定的文件是否存在。
- 2022-07-04 15:21:27下载
- 积分: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