双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB中如何输出资源文件？

2009-02-26 02:34:47 182 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

bpm520 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB中的资源文件（Resource File）及其用途 Visual Basic（简称VB）是由微软公司开发的一种面向对象的、可视化的、交互式的编程语言。它以其简单易学、功能强大而著称，广泛应用于Windows应用程序的开发。阅读详情

我在程序里建立一个资源文件，里面加入自定义资CUSTOM,编号101，里面是一个123.rar文件。
我想知道，如何能把这个资源文件123.rar，输出到任意位置，我找了很多例子，都没有相关的教程，拜托了！！

...全文

【NAS系统】DSM7.2部署SVN服务早期的群晖版本可以在套件中心找到SVN Server直接安装，然后配置仓库和用户。但‌2提到DSM7.0之后套件中心没有SVN了，得用Docker。阅读详情

bpm520

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

happy_sea 2009-02-26

打赏
举报

    Dim TempFile() As Byte

    Dim FileNum As Integer

    TempFile = LoadResData(101, "CUSTOM")

    FileNum = FreeFile

    Open "d:\123.rar" For Binary Access Write As #FileNum '文件名和路径自己随便改

    Put #FileNum, , TempFile

    Close #FileNum

东方之珠 2009-02-26

打赏
举报

释放资料文件到任意文件夹：

Dim fname As String     

Private Sub command1_click()     

  Dim v     

  Dim byt() As Byte     

  fname="c:\wang\123.rar"     

  If Dir(fname)="" Then     

     v=LoadResData(101,"CUSTOM")     

     byt=v     

     Open fname For Binary As #1     

     Put #1,1,byt()     

     Close #1     

  End If     

End Sub

bpm520 2009-02-26

打赏
举报

还是不明白楼上的意思，10是哪里来的？
我的意思是程序运行后，单击按钮，就能把这个资源保存到硬盘上。
例如：

Private Sub Command1_Click()

CommonDialog1.ShowSave

End Sub

嗷嗷叫的老马 2009-02-26

打赏
举报

来迟了.

顶顶.

winter75 2009-02-26

打赏
举报

LoadResData(101, 10)
101 是ID标识符，10表示用户定义资源

LoadResData 从资源文件装载的数据可以达到 64K

winter75 2009-02-26

打赏
举报

LoadResData(101, 10)
101 是ID标识符，10表示用户定义资源

LoadResData 从资源文件装载的数据可以达到 64K

cih2000zg 2009-02-26

打赏
举报





'此为我写URLDownload下载文件程序保存sub

Private Sub Command4_Click()

On Error Resume Next

Dim aa As String

Dim n As Integer

aa = Text1.Text 'text1是输入网址的地方

n = InStr(aa, "/") '找到字串中带"\"或带"/"的地方

If n = 0 Then

aa = Right(aa, InStr(StrReverse(aa), "\") - 1)'取"\"后的字串，即文件名

ElseIf n <> 0 And n > 0 Then

aa = Right(aa, InStr(StrReverse(aa), "/") - 1)'取"/"后的字串，即文件名

End If

  With CommonDialog1        '调出保存的对话框

   .DialogTitle = "保存文件"

   .FileName = aa           '此时的aa已经是文件名，而不是完整路径

   .Filter = "All files|*.*"

   .ShowSave

  End With

Text2.Text = CommonDialog1.FileName '完整路径

End Sub

✦双11狂欢大促✦

VB中如何输出资源文件？

相关推荐

双11狂欢大促