十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、首先建立一个简单的示例工程,如下图所示。
成都创新互联从2013年创立,是专业互联网技术服务公司,拥有项目成都网站设计、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元湘西土家族做网站,已为上家服务,为湘西土家族各地企业和个人服务,联系电话:18980820575
2、然后找到要组入的文件,为了方便我直接放到工程源代码路径,如下图所示。
3、在“解决方案资源管理器”下点击“显示所有文件”,就能发现要组入的文件。
4、然后右击目标文件,选择“包括在项目中(J)”,如下图所示。
5、再次右击目标文件,选择“属性”,然后在属性窗口中,在“生成操作”一项处选择”嵌入的资源“。这个是后重新编译文件,OK,待嵌入资源WindowsApplication1.ini成功嵌入,就完成了。
想要嵌入,必须要添加自定义资源,方法如下:
1.在菜单栏选择外接程序——外接程序管理器——选中VB6资源编辑器,在右下角加载行为中勾选“在启动中加载”和“加载/卸载”后点击确定,在工具栏里会增加“手抓魔方”按钮——单击按钮打开“VB 资源编辑器”
2.在“VB 资源编辑器”里单击“添加自定义资源”按钮打开对话框:“打开一个自定义资源”,选择你需要的"hiv"文件即可
这样之后,调用资源需要用到LoadResDeta语句
下面是代码参考:
Private Sub Form_Load()
Dim TempData() As Byte
TempDataPath = "f:\1.hiv" '引号里你可以自定义盘符和路径作为资源的存储地址
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号,具体可以自己在整合资源的时候更改,默认是101与CUSTOM
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
End Sub
输入以上代码,程序一运行f盘下就会出现你的那个hiv文件,是“1.hiv”文件
希望以上代码对你有帮助
新建一个文件,写入下面的代码:
!doctype html
html
head
meta name="viewport" content="initial-scale=1.0, user-scalable=no" /
meta http-equiv="Content-Type" content="text/html; charset=gbk" /
titleBaidu Map V1.2/title
script type="text/javascript" src=";services=true"
!-- add baidu map api --
/script
/head
body
div id="container" style="width: 600px; height: 400px;"
/div
/body
/html
script type="text/javascript"
var map = new BMap.Map("container"); // new Map
var point = new BMap.Point(116.397128, 39.916527); // Location, (经度, 纬度)
map.centerAndZoom(point, 15); // show Map
// 添加缩放功能
map.enableScrollWheelZoom();
map.enableKeyboard();
/script
保存到程序exe同一目录下,文件名:map.html
然后BUTTON点击事件:
WebBrowser1.Navigate(Application.StartupPath "\map.html")
这样就可以了
ps:经纬度可以到百度地图官网去获取
或者到: 去生成代码
我的方案是将相关dll的放入vb的资源文件中,生成exe,在exe执行时先将dll释放到exe目录(或path所在目录),这样就只有1个exe就可以了
很简单,点击菜单“项目”--“WindowsApplication1属性”
在属性面板里点“资源”,这里可添加字符串资源、图片资源、多媒体资源等等。
使用资源很简单,举例如下:
Label1.Text = My.Resources.String1
PictureBox1.Image = My.Resources.小猫
代码是没有错的,但是其中关键是声音文件资源定义字串必须使用根命名空间,不能用程序集名称;还有就是声音文件必须选属性为嵌入资源。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)