VB中如何嵌入EXE文件

'一嵌入EXE文件

'使用VB资源编辑器(如果没有,请选择菜单-外接程序-外接程序管理器,在里面找到VB资源编辑器选择启动和加载即可)添加CUSTOM资源,保存

'然后在VB资源里加载即可,下面以编号为101的CUSTOM资源为例子

Private Sub Form_Load()

Dim Temp() As Byte

Temp = LoadResData(101, "CUSTOM")

Open "C:\lkfsdklfasexe" For Binary As #1

Put #1, , Temp()

Close #1

End Sub

'二打开网页

Shell "Explorerexe " & chr(34) & ">

'需引用microsoft excel 110 object library

Option Explicit

Dim xlApp As New ExcelApplication

Dim xlBook As ExcelWorkbook

Dim xlSheet As ExcelWorksheet

Private Sub Command1_Click()

Dim arr, temparr(), i As Integer, s As String

arr = Split(Text1)

[a1]Resize(UBound(arr)) = xlAppWorksheetFunctionTranspose(arr)

MsgBox "导入完成！"

Command2Enabled = True

End SubPrivate Sub Command2_Click()

Dim arr

arr = xlSheetUsedRange

MsgBox "有数据的单元格：" & UBound(arr, 1) UBound(arr, 2) '对这个数组的数据你可以进行处理，也可以保存。

End SubPrivate Sub Form_Load()

xlAppCaption = "test"

Set xlBook = xlAppWorkbooksAdd

Set xlSheet = xlBookWorksheets(1)

xlAppVisible = True

Command1Caption = "导入": Command2Caption = "导出"

Command2Enabled = False

Text1 = "aaaaa aaaaaa sssssssss dddddddddd ffffffffffffffffff dddddddddddddddddd"

End Sub

一个按钮，一个文本框，把文本框设置成多行显示。

代码如下：

Imports SystemIO

Public Class Form1

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

Dim r As New StreamReader(ApplicationStartupPath & "\ABCtxt", SystemTextEncodingDefault) '用StreamReader打开文本文件

Dim s As String

TextBox1Text = ""

Do While rPeek > -1 '是否到文件尾

s = rReadLine '从打开的文件中读取一行内容

TextBox1Text = TextBox1Text & s & vbCrLf '添加到文本框TextBox1Text的后面并回车

Loop

rClose() '关闭对象

End Sub

End Class

open apppath & "\dirtxt" for output as #1

d=dir("d:\tmp\")

do until d=""

print #1,d

d=dir

loop

close #1

以上是把D:\tmp文件夹中的所有文件名写到当前目录的dirtxt文件中

以上就是关于VB中如何嵌入EXE文件全部的内容，包括:VB中如何嵌入EXE文件、求一段用VB编写的将txt文件导入access的程序，能运行通过的、VB中怎么导入和导出数据! 请详细点等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！