图像框切换图片-极语言

增加注意事项:

图片格式必须为bmp格式,

图片必须在程序所在文件夹内,

使用软件wps图片查看器工具箱里的图片格式转换成bmp格式,成功显示图片(使用网上的网页版工具,转换出来的bmp文件无效,不知为何),

 

比如我有两张图片3.bmp、4.bmp。

 

程序代码如下:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭 停止
    为 单击左键{左键点击(参数)}
    处理窗口(窗口,消息,参数,数据)
结束
程序段 窗体启动

结束

程序段 按钮2_点击
整数 图片1=加载图像(0,"3.bmp",0,0,0,$10);
发送消息(图像框1,$172,0,图片1);
结束    

程序段 按钮3_点击
整数 图片2=加载图像(0,"4.bmp",0,0,0,$10);
发送消息(图像框1,$172,0,图片2);    
结束

画板信息如下:

 

画板代码如下:

整数 窗体,图像框1,按钮2,按钮3;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-1332)>>1,上=(桌面.高-916)>>1;
窗体=创建窗口($0,程序.名称,"窗口标题",$10C80840,左,上,1332,916,0,0,0,0);
图像框1=创建窗口($0,"Static","",$5000000E,30,35,1050,825,窗体,1,$400000,0);
按钮2=创建窗口($0,"Button","图片1",$50000000,1095,110,105,50,窗体,2,3,0);
按钮3=创建窗口($0,"Button","图片2",$50000000,1100,180,95,45,窗体,3,3,0);
桌面.左=窗体;窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 2 按钮2_点击
为 3 按钮3_点击
}

编译运行后:

 

 

posted @ 2024-04-13 12:42  Rkey  阅读(93)  评论(0)    收藏  举报