社区
Delphi
帖子详情
Delphi中有没有象VB的"loadrespicture"的函数?
monday
2000-04-22 04:38:00
Delphi中有没有象VB的“loadrespicture”用于从RES文件取数据的函数?
...全文
184
9
打赏
收藏
Delphi中有没有象VB的"loadrespicture"的函数?
Delphi中有没有象VB的“loadrespicture”用于从RES文件取数据的函数?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
monday
2000-05-08
打赏
举报
回复
我无法加分,提示说我无权删除这份帖子。
monday
2000-04-28
打赏
举报
回复
真是多谢!my mail:52057@yeah.net,其实你可点击本页面上的我的名字,另外怎么加分知道吗
Lin
2000-04-28
打赏
举报
回复
Monday:
我写了个Demo,你的Mail?
monday
2000-04-27
打赏
举报
回复
先要谢谢Lin.
但我加了。我还尝试直接在同工程名的.res中添加bitmap,但还是同样的提示。您能邮份成功的样本过来吗。对了,论坛的加分好象不能用,你知道怎么加分吗?
monday
2000-04-26
打赏
举报
回复
但我确定RES文件中有名为xxx的bitmap,RES是用Delphi中的ImageEditor做的.
Lin
2000-04-26
打赏
举报
回复
那一定就是你的单元少了一行,务必加上:
{$R XXXXX.Res}
Lin
2000-04-25
打赏
举报
回复
那可能是你的执行文件确实没有包含Resource xxxx,解决方法如下:
1、你得手工编写一个扩展名为rc的文件,并将其加入到工程文件;譬如:
...
1000 BITMAP DISCARDABLE "Res\Background.bmp"
TEST BITMAP DISCARDABLE "Res\Test.bmp"
...
2、假设有一个SpeedButton1,可以装入图象:
SpeedButton1.Glyph.LoadFromResourceID(hInstance, 1000); //按资源ID装入
SpeedButton1.Glyph.LoadFromResourceName(hInstance, 'TEST');//按资源名字装入
monday
2000-04-23
打赏
举报
回复
可是,我不知道怎么用,我在LoadFromResourceName中的THandle参数用HInstance,可老出现resource xxxx not found的错误。真谢谢你了。
Lin
2000-04-22
打赏
举报
回复
有啊:TBitmap的LoadFromResourceID和LoadFromResourceName方法。
VB
重写AI
中
国
象
棋的界面引擎源代码
内容索引:
VB
源码,图形处理,
象
棋 发觉以前的AI
中
国
象
棋的界面引擎有点问题,决定重写,先用
Load
Re
sPi
ctu
re方法把资源图片读入 Pi
ctu
reBox
中
,再Blt到窗体上,缺点显而易见,我曾尝试用内存DC(代码
中
的被屏蔽部分),但还是不会怎么弄。注: 1.不考虑搞一堆 Pi
ctu
reBox 或 ImageBox 的方法; 2. 不考虑读外部bmp文件的方法。 建议: 把大量图片加入到资源文件
中
,然后再用一个image控件做成数组,图片在数组
中
显示,这样能提高显示速度。 注: 1、只有一个image控件数组,靠程序在界面上显示图片,即没有大量的
如何制作与使用 .RES 资源文件
'这是从资源文件里调用ms
vb
vm60.dll 注册的代码 '本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. '要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main '否则有可能在还没进入窗体执行注册的动作前,就产生错误而
中
断了 '尤其是98系统之下的ms
vb
vm60.dll '先建立一个资源文件, 在 Custom 101 装载 ms
vb
vm60.dll Global winsys$, appdisk$, aa$ Sub Main() On Error Resume Next If App.PrevInstance Then MsgBox "本系统已运行
中
, 不得重复加载!!",
vb
OKOnly, "菜鸟多媒体桌面工具": End appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") winsys = GetSyspath Call regdllocx Form1.Show End Sub Private Sub regdllocx() On Error Resume Next Dim byt() As Byte aa = winsys & "ms
vb
vm60.dll" If Dir(aa) = "" Then byt =
Load
ResData(101, "CUSTOM") Open aa For Binary As #1 Put #1, 1, byt() Close #1 End If If Dir(aa) <> "" Then aa = "Regsvr32 /s " & aa Call Shell(aa,
vb
Hide) End If End Sub Public Function GetSyspath() As String '获取system32路径 aa = Trim(Environ("ComSpec")) GetSyspath = Mid(aa, 1, InStrRev(aa, "\")) End Function '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘 'Me.Icon =
Load
Re
sPi
ctu
re(101,
vb
ResIcon) '注释:加载图标 'Pi
ctu
re1.Pi
ctu
re =
Load
Re
sPi
ctu
re(101,
vb
ResBitmap) '注释:加载位图 'Command1.MouseIcon =
Load
Re
sPi
ctu
re(101,
vb
ResCursor) '注释:加载光标' '播放 WAVE 声音(只允许.wav) Option Explicit Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Private Sub Command1_Click() Dim bArr() As Byte bArr =
Load
ResData(101, "CUSTOM") DoEvents sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub 本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/cbm666/archive/2008/03/08/2158287.aspx
load
re
spi
ctu
re
用以从资源 (.res) 文件装载位图、图标或光标。 语法
Load
Re
sPi
ctu
re(index, format)
Load
Re
sPi
ctu
re
函数
的语法包含下列部分:部分 描述 index 必需的。一个整数或字符串,它用来指定资源文件
中
数据的标识符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。format 必需的。一个数值或常数,如下列“设置...
vb
函数
大全
Abs
函数
返回数的绝对值。 And 运算符 执行两个表达式的逻辑连接。 Array
函数
返回含一数组的 变体 。 Asc
函数
返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn
函数
返回数的反正切值。 调用语句 将控制移交 Sub 或 Function 过程。 CBool
函数
返回已被转换为 Boolean 子类型的变体的表达式。
Windows API一日一练(20)
Load
Icon和
Load
Cursor
函数
-程序图标设置和鼠标的样式
主目录传送门 https://blog.csdn.net/zb774095236/article/details/108291755 本次学习的源码模板下载: 1.百度云:https://pan.baidu.com/s/1gCzgIJtWEBgGcIsUwRWPSA 提取码:f5dv 学习目标: 在上期的基础源码版本上学习之前用到的
函数
哈哈 看看对话框的
中
鼠标的样子和程序的图标显示 学习内容: 一、 项目参考 新增
函数
解释
Load
Icon
Load
Cursor 1.h...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章