查看: 2613|回复: 6

-------------------

[复制链接]

小梨。

2012-4-27 03:42 PM

本帖最后由小梨。于 2012-7-3 11:46 AM 编辑

-----------------------------------

htuomrev

2012-4-27 03:48 PM

没有直接的方法，不过可以用代码自定义。
这里用textbox做例子，你自己改成picturebox就可以了。

TextBox[] theTextBoxes = new TextBox[size];
foreach (TextBox curControl in theTextBoxes)
{
//do stuff
}

复制代码

小梨。

2012-4-27 05:42 PM

本帖最后由小梨。于 2012-4-27 05:44 PM 编辑

没有直接的方法，不过可以用代码自定义。
这里用textbox做例子，你自己改成picturebox就可以了。
htuomrev 发表于 2012-4-27 03:48 PM

你好，谢谢你的回复，我现在做到这样子了

Dim PictureBoxes() = {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5, PictureBox6, PictureBox7, PictureBox8, PictureBox9, PictureBox10}
Dim PictureFiles(9) As Image
Dim i As Integer = 0
For i = 0 To 9
PictureFiles(i) = Image.FromFile("D:\mis\photo\*.jpg")
Next
Dim a As Integer = 0
For a = 0 To 9
PictureBoxes(a).Image = PictureFiles(a)
Next
End Sub

复制代码

现在是这句的问题：

PictureFiles(i) = Image.FromFile("D:\mis\photo\*.jpg")

复制代码

会跳error ： Illegal characters in path.

但如果我写

PictureFiles(i) = Image.FromFile("D:\mis\photo\1.jpg")

复制代码

就没问题，load出来全部都是1.jpg，可是我想做的是load出来整个folder 的jpg 照片。
any clue><

htuomrev

2012-4-27 06:13 PM

回复 3# 小梨。

path 不能出现 '*' 字符 ==''。

PictureFiles(i) = Image.FromFile("D:\mis\photo\" & i & ".jpg")

复制代码

用&把i直concat进去即可。

小梨。

2012-4-27 06:25 PM

回复小梨。

path 不能出现 '*' 字符 ==''。用&把i直concat进去即可。
htuomrev 发表于 2012-4-27 06:13 PM

可是，我其他的jpg都有名字的，比如， blue.jpg, sand.jpg , flower.jpg

htuomrev

2012-4-27 06:44 PM

回复 5# 小梨。

*.jpg是window command用来扫描文件用的，vb可不吃这一套。
你现在有三个方法解决：
一是每次再读取jpg的时候都扫描文件夹一次，自动获取文件名。这个方法你可能要自己google一下了，我没弄过。
二是你再多设置一个array，不过是string，把所有jpg的名字都存在array里，然后根据index获取文件。此方法如上，只不过是实现设定好文件名。
三是把你的jpg名字用index方式来命名0.jpg, 1.jpg, 2.jpg ... n.jpg。

你自己看着办吧。

小梨。

2012-4-27 09:25 PM

回复小梨。

*.jpg是window command用来扫描文件用的，vb可不吃这一套。
你现在有三个方法解决 ...
htuomrev 发表于 2012-4-27 06:44 PM

好的，非常谢谢你。
不好意思麻烦你了。

返回列表

-------------------

浏览过的版块