锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net资源文件 vbnet filestream

IT技术文件

如何把VB.NET内部资源文件复制到磁盘上可以查看附件，或则使用以下代码 。应该注释的满全了 。
随便建一个窗口工程，窗口代码帖入以下代码 。
Imports System.IO
Imports System.Text
Imports System.Reflection
【vb.net资源文件 vbnet filestream】Public Class Form1
Const ResName As String = "123.txt" ' 需要保存的资源名
Const BufferSize As Integer = 4096' 复制时缓冲的大小
Private Sub Demo()
' 变量声明
Dim strDisplayText As StringBuilder ' 保存输出信息
Dim strResName As String' 保存目标资源的名称
' 变量初始化
strDisplayText = New StringBuilder()
strResName = String.Empty
' 获取所有资源
strDisplayText.AppendLine("文件中存在以下资源:")
For Each strName As String In Assembly.GetExecutingAssembly.GetManifestResourceNames()
strDisplayText.AppendLine(""strName)
' 获得目标资源的全名
If strName.EndsWith("."ResName) Then
strResName = strName
End If
Next
' 目标资源不存在
strDisplayText.AppendLine()
If strResName = String.Empty Then
strDisplayText.AppendLine("抱歉 ， 没有找名为"""ResName"""的资源")
Else ' 复制资源的代码
' 打开资源文件，在End Using的时候自动关闭 。
Using ms As UnmanagedMemoryStream = Assembly.GetExecutingAssembly.GetManifestResourceStream(strResName)
' 打开磁盘文件，在End Using的时候自动关闭 。
Using fs As New FileStream("C:\"ResName, FileMode.Create)
' 变量声明
Dim Buffer(BufferSize - 1) As Byte' 复制文件时的缓冲数组
Dim ReadCount As Integer' 此次读取数据的数量
' 还有数据可以读取的情况，一直循环
ReadCount = ms.Read(Buffer, 0, BufferSize)
While ReadCount0
fs.Write(Buffer, 0, ReadCount) ' 写入到磁盘文件
ReadCount = ms.Read(Buffer, 0, BufferSize)
End While
End Using
End Using
strDisplayText.AppendLine("文件已经复制完毕 。")
End If
' 显示消息
MessageBox.Show(strDisplayText.ToString())
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Demo()
End
End Sub
End Class
VB.net 如何同时播放多个资源文件内的wav用API mciSendString可以同时播放多个声音，需要提供路径 。
资源文件很麻烦，要用反射读取出来，再用IO写到磁盘路径 。
你是做游戏把？软糖建议是不要使用资源文件 ， 而使用本地文件 。
用个BGM文件夹保存背景音乐，用SE文件夹保存音效（学习RPG Maker的做法）
API代码奉上，具体实现模块字数超过最大值，请下载附件
Imports System.Text
''' summary
''' 可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音频文件,*不支持OGG
''' /summary
Public Class 音频设备
'声明API函数: mciSendString
System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")
Public Shared Function mciSendString(strCommand As String,
strReturn As StringBuilder,
iReturnLength As Integer,
hwndCallback As Integer) As Integer
End Function
'声明API函数: mciGetErrorString
System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")
Public Shared Function mciGetErrorString(errCode As Integer,
errMsg As StringBuilder,
buflen As Integer) As Integer
调用方法
Public Class Form1
Dim 音频设备 As New 音频设备
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim 路径 = "F:\音乐文件名.mp3"
音频设备.打开("自定义名称1", 路径)
音频设备.播放("自定义名称1")
'音频设备.暂停("自定义名称1")
'音频设备.继续("自定义名称1")
'音频设备.关闭("自定义名称1")
End Sub
End Class
如满意，请采纳，还有不懂的请追问，谢谢 。
VB.net 释放资源文件你也遇到这样vb.net资源文件的问题,vb.net资源文件我也是刚解决,下面代码
我vb.net资源文件的文件在资源中类型为
array
Dim
resources
As
System.Resources.ResourceManager
=
My.Resources.ResourceManager
Dim
b()
As
Byte
=
resources.GetObject("psd文件在资源中的名称")
Dim
s
As
IO.Stream
=
File.Create(Filepath)'要保存的路径
s.Write(b,
0,
b.Length)
s.Close()
vb.net2008中怎样调用资源文件中的MDB数据库在此本人使用ADO对象访问ACCESS数据库，但ADO对象在使用前你先要进行添加，启动VB6后 ， 单击菜单“工程-引用” ， 打开引用对话框，选择“Microsoft ActiveX Data Objects 2.0 Library”，将其勾?。?（以2.0版本为例，实际可以选择系统中的最高版本如本人的就是2.6版本），然后在当前目录下建立一个名为“学生”的ACCESS数据库 ， 其中表名为“表”,字段共有：学号，姓名，年龄，性别四个字段，接下来就是设计界面了(自己设计)
现在介绍如何使用代码访问ACCESS数据库：
在代码窗口中编写一个返回字符型的函数
Function Connection() As String
'数据库的连接设置配置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="App.Path"\学生.mdb"
End Function
该函数用于连接数据库用
Private Form_Load()
Dim cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
cnn.Open Connection
Set Rst = New ADODB.Recordset
Rst.Open "select * from 表", cnn, adOpenKeyset, adLockOptimistic
End Sub
注：
Dim cnn As New ADODB.Connection创建一个ADO数据库连接对象
Dim Rst As New ADODB.Recordset为创建一个ADO数据库记录对象
select * from 表 是SQL查询语言，这里为数据源，意思就是打开数据库“学生”中的表“表”
下面是将数据库表中的字段值显示出来的一个过程
Sub View()
Dim i As Integer
For i = 0 To 2
Text1(i) = Rst.Fields(i)'text1为控件数组
Next
If (Rst.Fields(3) = True) Then
Text1(3) = "男"
Else
Text1(3) = "女"
End If
End Sub
要访问ACCESS数据库就这样可以实现，访问SQL也差不多，稍有不同，回答完毕，如还有问题请继续和我联系，本人是专使用VB SQL/Delphi SQL开发数据库管理系统的程序员 。
VB.net如何调用资源文件(resx)里的图片？放在解决方案资源管理器还没完 。进入项目属性，资源 ， 把解决方案资源管理器里的资源文件拖进来，改个便于调用的名称，然后My.Resources里面就可以调用了 。如果是VS可以识别的 ， 那么就直接是Bitmap类型的，可以隐式转换成Image类型 。
VB.NET释放资源文件的办法？Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "C:\Data.mdb" '文件释放路径
Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
Dim b() As Byte = resources.GetObject("Data")
Dim s As IO.Stream
Try
s = IO.File.Create(path)
s.Write(b, 0, b.Length)
s.Close()
MessageBox.Show("资源释放成功")
Catch ex As Exception
MessageBox.Show("资源释放失败！Result="ex.Message)
End Try
End Sub
关于vb.net资源文件和vbnet filestream的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：关于mysql判断两个时间大小写的信息

    下一篇：小宝宝和小熊游戏单机，小熊和小孩歌曲