如何才能让image放置在最前面
怎么才能让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
需要将实现图片的放大缩小功能,怎么才能将它放置在别的控件最前面呢?比如说想放在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