读书人

如何才能让image放置在最前面

发布时间: 2013-06-26 14:29:32 作者: rapoo

怎么才能让image放置在最前面?
需要将实现图片的放大缩小功能,怎么才能将它放置在别的控件最前面呢?比如说想放在text上面,冒似不能够哎,picture虽然可以放在最前面但又不能改变大小.
[解决办法]
就使用Picture控件,并使用下面的代码实现Image的功能:

Private Sub Command1_Click()
Dim p As StdPicture
Set p = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\未命名.bmp")

Pic1.Width = Pic1.ScaleX(p.Width * 0.01, 6, Pic1.ScaleMode)
Pic1.Height = Pic1.ScaleY(p.Height * 0.01, 6, Pic1.ScaleMode)
Set Pic1.Picture = p
End Sub

读书人网 >VB

热点推荐