189 8069 5689
MouseEnter 鼠标进入
创新互联建站服务项目包括谢通门网站建设、谢通门网站制作、谢通门网页制作以及谢通门网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，谢通门网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到谢通门省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
MouseLeave 鼠标离开
PictureBox1.ImageLocation =“路径"
很简单的方法，貌似没有。这个需要自己写很多代码：
用一个ListView控件。
判断滚动条当前所显示的图片集合，获取它们的物理路径。
用Bitmap.FromImage方法把这些图片读出来，
然后获取缩略图，
把缩略图用Graphics.DrawImage()绘制出来。
我可以提供Bitmap如何获取缩略图的方法：
''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary
Public Function ThumbnailCallback() As Boolean
Return False
End Function
''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary
Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image
Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)
Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)
End Function
新建一个Winform，拖两个图片框。图片框1在设计器中选择一个图片（尺寸在图片框容纳为佳）。如下代码测试通过：
private void button1_Click(object sender, EventArgs e)
{
Image img1 = this.pictureBox1.Image;
Image img2 = CropToCircle(img1);
this.pictureBox2.Image = img2;
}
public Image CropToCircle(Image img1)
{
Image img2 = new Bitmap(img1.Width, img1.Height,
img1.PixelFormat);
Graphics g = Graphics.FromImage(img2);
using (Brush br =
new SolidBrush(SystemColors.Control))//背景色
{
g.FillRectangle(br, 0, 0,
img2.Width, img2.Height);
}
GraphicsPath path = new GraphicsPath();
path.AddEllipse(0, 0, img2.Width, img2.Height);
g.SetClip(path);
g.DrawImage(img1, 0, 0);
return img2;
}
Dim bmp As New Bitmap("打开图片的路径")
bmp.Save("保存图片的路径")
Dim t As New TextBox()
Dim p As New PictureBox
p.Image = bmp 'picture等支持image的控件。
t.CreateGraphics.DrawImage(bmp, New Point) '文本控件。
Me.BackgroundImage = bmp '窗体
me.backgroundimage=image.fromfile(apppath+"picture")
主要的错误是你的"picture"这里错了，apppath后面就应该接你要载入的图片的名字，比如说是02.jpeg，那就应该是
me.backgroundimage=image.fromfile(apppath+"\02.jpeg")，注意要加\和图片的后缀名。
这样了：
CType(Me.Controls("PictureBox11"), PictureBox).Image = My.Resources.image1
Find 返回数组，元素类型为Object。
Item() 可以把控件名作关键字，但也返回Object。这个方法是默认的，可以省略。
CType 转换引用类型。
大概如此，我是2008，没vb6那般的控件数组。