vb 单机一下按钮换一个图片的代码怎么写
1个回答
展开全部
放一个picturebox 和一个commandButton
private sub form1_load()
command1.caption="更换图片"
picture1.picture="URL" '把URL换成初始图片链接
dim i
private sub Command1_click()
i=0
do
i=i+1
select case i
case 1
picture1.picture="URL" 'URL为图片1的链接
case 2
picture1.picture="URL" 'URL为图片2的链接
case 3
picture1.picture="URL" 'URL为图片3的链接
case else
i=0
end select
end sub
private sub form1_load()
command1.caption="更换图片"
picture1.picture="URL" '把URL换成初始图片链接
dim i
private sub Command1_click()
i=0
do
i=i+1
select case i
case 1
picture1.picture="URL" 'URL为图片1的链接
case 2
picture1.picture="URL" 'URL为图片2的链接
case 3
picture1.picture="URL" 'URL为图片3的链接
case else
i=0
end select
end sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
