[安卓4 0屏保默认图片在哪个文件夹能在里面加图片吗我的手机屏保只]我试过3.6的系统不知道一不一样你可以参考一下，必须软件--re管理器，最好用汉化版 第一：打开R.E管理器--进入system文件夹打开app文件夹选择TwWallpaperChooser.apk~点住~选择弹...+阅读

添加文件列表控件，filelist

Dim Shunxu As Integer, zongshu As Integer, strfilename As String

Private Sub Form_Load()

File1.Path = ＂d:\＂ ' ＂d:\123\图片文件夹＂ '文件夹路径

File1.Pattern = ＂*.gif＂ '文件格式

Timer1.Interval = 1000

Timer1.Enabled = True

zongshu = File1.ListCount '总数

Shunxu = 0

End Sub

Private Sub Timer1_Timer()

If zongshu >0 Then

strfilename = File1.List(Shunxu) '图片文件名

Image1.Picture = LoadPicture(File1.Path + ＂\＂ + strfilename) '图片文件路径

Shunxu = Shunxu + 1

If Shunxu = zongshu - 1 Then

Shunxu = 0

End If

End If

End Sub

以下为关联文档：

EXCEL VBA遍历控件按钮并逐个添加背景图片答：Sheet12.Shapes（＂大师＂ & num） 返回shape对象，shape对象没有Picture属性。 而“Sheet12.大师131”返回与此 OLE 对象相联系的 OLE 自动化对象，比如：CommandButton。该对象有pictu...