需要将实现图片的放大缩小功能,怎么才能将它放置在别的控件最前面呢?比如说想放在text上面,冒似不能够哎,picture虽然可以放在最前面但又不能改变大小.

解决方案 »

  1.   

    Image 控件放 PictureBox 中,PictureBox 按照 Image 大小调整。
      

  2.   


    既然用到了picture控件, 那不如直接用picture加载图片
      

  3.   

    就使用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
      

  4.   

    继续求教一下,如何才能获得图片的像数大小?我是想了解象PS那样的分层是怎么回事,就是说在一张大的图片上贴了很多小图片,移动图片的时候大小图片都会一同样的数值移动,点其中任何一个小图片又能知道这个小图片在大图片中的位置编号等数据,就象是PS做图样,那个好神奇的.
      

  5.   

    继续求教一下,如何才能获得图片的像数大小?看上面代码:
    Pic1.Width = Pic1.ScaleX(p.Width * 0.01, 6, Pic1.ScaleMode)
    Pic1.Height = Pic1.ScaleY(p.Height * 0.01, 6, Pic1.ScaleMode)这个就是,单位为你pic1的尺寸单位
      

  6.   

    我是想了解象PS那样的分层是怎么回事,就是说在一张大的图片上贴了很多小图片,移动图片的时候大小图片都会一同样的数值移动,点其中任何一个小图片又能知道这个小图片在大图片中的位置编号等数据,就象是PS做图样,那个好神奇的. 你将每个小图片想象为一堆小纸片,背景想象为一张大纸,贴图相当你将小纸片放入到大纸中,现在,你来管理这些小纸片,好好想象一下,该如何管理这些,或许你就有思路了
      

  7.   

    大概理解应该怎么做了,但是不明白的是,在image控件里,当它大于窗口后怎么才能获得当前鼠标在图中的像素位置.对这个搞不清楚.
      

  8.   

    找到一个例子"VB图像标尺示例",但我想用imgae,继续求问在image下得到像素方面的例子有没有?