| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1795 人关注过本帖
标题:换背景图
取消只看楼主 加入收藏
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
换背景图
大神看看,我要的是每次就显示一个,点击一次换一个应该怎么搞。
程序代码:
Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i As Integer
i = i + 1
If i = 10 Then i = 1
Form1.PaintPicture LoadPicture("D:\1111\" & i & ".jpg"), 0, 0
End Sub
        
图片名称为1-9.JPG

[此贴子已经被作者于2016-9-5 19:35编辑过]

2016-09-05 18:48
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
收藏
得分:0 
回复 2楼 肇励影
大神,不懂你的高科技,我做出来是加载所有图片
程序代码:
Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i As Integer
For i = 1 To 9
Form1.PaintPicture LoadPicture("D:\1111\" & i & ".jpg"), 0, 0
Next
End Sub
2016-09-06 11:33
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
收藏
得分:0 
回复 3楼 风吹过b
谢谢 完美解决
程序代码:
Private Sub Command1_Click()
Form1.AutoRedraw = True
If File1.ListIndex < File1.ListCount - 1 Then       '如果选择的图像小于总图像数
    File1.ListIndex = File1.ListIndex + 1           '无选择时,listindex =-1 ,加1后就变成第1项。
Else
    File1.ListIndex = 0         '返回到第一项
End If
Form1.Cls '先清除
'载入当前选择的图像
Form1.PaintPicture LoadPicture("D:\1111\" & File1.List(File1.ListIndex)), 0, 0
End Sub
Private Sub Form_Load()
File1.Path = "d:\1111"
File1.Visible = False
End Sub

我在代码里面加了个清除命令,这个不会有什么影响吧

[此贴子已经被作者于2016-9-6 14:14编辑过]

2016-09-06 12:00
快速回复:换背景图
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030076 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved