最近刚写的程序！专门解决你的vb程序文件多的问题！

最新推荐文章于 2022-02-23 15:02:25 发布
最新推荐文章于 2022-02-23 15:02:25 发布
阅读量2k 收藏
点赞数
文章标签： vb c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lights/article/details/6135
版权
我们写的程序往往会包含很多文件！
我写了个程序把他们合成一个！

使用方法！
选中所有需要的文件（目前不包括子目录，需要你自己改！）
点上主要的运行程序，然后点右键（一般你的程序只会有一个运行程序，但我经常是两个）

把输出文件名改成你需要的名字！（如c:/my.exe,我没管路径的事^_^）
点打包-----OK

删除所有文件 ，只要c:/my.exe 即可！哈哈 纯VB编的.
看这里  exp

源代码看附件，源代码使用方法！
把那个bas加入一个工程，编译，改名为ready.dat
把那个frm加入一个工程，编译
两个文件放在一起，运行！！
呵呵，我的例子只有一个文件，自己想吧！！我们写的程序往往会包含很多文件！
我写了个程序把他们合成一个！

使用方法！
选中所有需要的文件（目前不包括子目录，需要你自己改！）
点上主要的运行程序，然后点右键（一般你的程序只会有一个运行程序，但我经常是两个）

把输出文件名改成你需要的名字！（如c:/my.exe,我没管路径的事^_^）
点打包-----OK

删除所有文件 ，只要c:/my.exe 即可！哈哈 纯VB编的.
看这里  exp

源代码看附件，源代码使用方法！
把那个bas加入一个工程，编译，改名为ready.dat
把那个frm加入一个工程，编译
两个文件放在一起，运行！！
呵呵，我的例子只有一个文件，自己想吧！！

 

sf_2004614155938.rar (3975bytes)

lights
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
VB源码 选取多个文件
08-16
VB源码 选取多个文件，多选的例子，供大家参考
让英文操作系统正确显示中文
infoncust的专栏
04-17 3587
刚装的英文版Windows 2000/XP操作系统，不能正确显示中文。解决的方法有两种：1、在安装过程中解决问题。在Windows XP安装过程中，进行到“区域与语言”那部分时，不要急着按下一步，仔细看一下，这里微软是有说明的，问你是不是需要安装东亚语言的支持文件？当然是要选择安装，它又会告诉需要多占用200M左右的空间，点击确定，稍等一段时间文件拷贝就会完成，这样安装完后的E版Windows X
如何解决VB6程序在Win7不能运行的问题~
英布之剑的CSDN Blog
11-17 9701
因为Windows7的UAC机制限制非Admin权限的程序存取Program Files和Windows目录的文件等一些限制，因此导致很多旧的VB6（包括所有Visual系列）程序在Windows7无法运行或运行异常。 原因是这些旧的程序默认是没有权限申请设置的，所以当然就没有Admin权限了。因此，您必须通用采用右键“以管理员身分运行”的方式解决。 但依然有一些程序还是无法运行，这时
Windows 安装IIS出现的问题（无法安装IIS，提示“安装程序无法复制文件IISApp.vbs”）
01-10
这就是典型的windows安全数据库出问题了，可以用以下方法来解决这个问题： Windows安全资料库，在%WinDir%\Security\database里。 台湾的资料库，大陆称为数据库。 在Windows作业系统里带有专门的Esentutl.exe工具，...
作业管理系统论文
06-04
因为传统的对学生作业管理是在服务器上建立一个FTP服务器，然后对学生用户设置一个专门的帐号，只允许对作业进行上传，然后学生将作业上传到服务器里对应的班级文件夹下面，传统方式无法解决的问题有：不能防止学生...
JAVA上百实例源码以及开源项目
01-03
　Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java文件传输实例不可错过，Java网络编程技能的提升很有帮助。 Java聊天程序，包括服务端和...
rar压缩软件.rar
02-13
RAR 是一个让你在命令行模式中管理压缩文件的控制台应用。RAR 提供压缩、加 密、数据恢复和许多其它此手册中描述的其它功能。 RAR 只支持 RAR 格式压缩文件，它默认有 .rar 扩展名。不支持ZIP 和其他格 式。即使...
C#微软培训资料
01-22
18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
K8s 很难么？带你从头到尾捋一遍，不信你学不会
民工哥的博客
02-23 8379
点击关注公众号，回复“1024”获取2TB学习资源！为什么要学习 Kubernetes?虽然 Docker 已经很强大了，但是在实际使用上还是有诸多不便，比如集群管理、资源调度、文件管理等...
使用VB.net写一个hex文件转bin文件的程序
最新发布
06-12
以下是一个简单的VB.net程序，可以将hex文件转换为bin文件： ```vb.net Imports System.IO Public Class Form1 Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click '打开Hex文件 Dim hexFile As New StreamReader(txtHexFile.Text) '创建Bin文件 Dim binFile As New BinaryWriter(File.Open(txtBinFile.Text, FileMode.Create)) '读取每一行Hex数据 While Not hexFile.EndOfStream Dim hexData As String = hexFile.ReadLine() '跳过注释行 If Not hexData.StartsWith(":") Then Continue While End If '将Hex数据转换为字节数组 Dim hexBytes As Byte() = Enumerable.Range(0, hexData.Length).Where(Function(x) x Mod 2 = 0).[Select](Function(x) Convert.ToByte(hexData.Substring(x, 2), 16)).ToArray() '计算数据长度和地址 Dim dataLength As Integer = hexBytes(0) Dim address As Integer = (hexBytes(1) << 8) Or hexBytes(2) '将数据写入Bin文件 For i As Integer = 0 To dataLength - 1 binFile.Write(hexBytes(i + 4)) Next End While '关闭文件 hexFile.Close() binFile.Close() MessageBox.Show("转换完成！") End Sub Private Sub btnBrowseHex_Click(sender As Object, e As EventArgs) Handles btnBrowseHex.Click '选择Hex文件 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then txtHexFile.Text = OpenFileDialog1.FileName End If End Sub Private Sub btnBrowseBin_Click(sender As Object, e As EventArgs) Handles btnBrowseBin.Click '选择Bin文件 If SaveFileDialog1.ShowDialog() = DialogResult.OK Then txtBinFile.Text = SaveFileDialog1.FileName End If End Sub End Class ``` 该程序需要三个控件：两个文本框用于选择Hex文件和保存Bin文件，一个按钮用于开始转换。在转换过程中，程序将逐行读取Hex文件，并将每一行数据转换为字节数组。然后，程序会计算数据长度和地址，并将数据写入Bin文件。最后，程序会关闭文件并显示一个消息框，提示转换已完成。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

lights

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值