谁知道Form上图片如何平铺,在线等...

??

解决方案 »

  1.   

    最简单的方法就是把一个PICTUREBOX放在FORM上，大小始终和FORM保持同步（一样大小）。
    PICTUREBOX的边框设置为FLAT就可以了啊。
      

  2.   

    如果你觉得这个方法不好。就要复杂一点了。你要把图片读取出来，根据图片大小和FORM大小的比例，一个像素一个像素的画点上去也是可以的。
      

  3.   

    用一个image控件,让它的大小与form一样大,
    将image的stretch属性设为true,
    再将图片加载进去.     一定要注意先后顺序.
      

  4.   

    要平铺？
    用窗体paintpicture不就可以完成吗？
      

  5.   

    Get the size of the picture,then use Paintpicutre function
      

  6.   

    dim x1 as single,y1 as single
    dim pwidth as single,pheight as single
    pwidth=image1.width
    pheight=image1.height
    y1=0
    do while y1<form1.scalewidth
     x1=0
     do while x1<form1.scalewidth
    doevents
    me.paintpicture image1.picture,x1,y1,pwidth,pheight
    x1=x1+pwidth
    loop
    y1=y1+pheight
    loop
    image1为你要平铺的图片