在 vb.net 如何将一个图像平埔输出呢?

方法一:

using (Image image = Image.FromFile(@"e:\pic.jpg")) 
{ 
    using (TextureBrush brush = new TextureBrush(image)) 
    { 
        brush.TranslateTransform(x, y); 
        g.FillRectangle(brush, x, y, image.Width, image.Height);  
        g.Restore(state);  
    } 
} 

方法二:

          Dim sx As Single = IIf((pImg.HorizontalResolution > 0.0), (g.DpiX / pImg.HorizontalResolution), 1)
          Dim sy As Single = IIf((pImg.VerticalResolution > 0.0), (g.DpiY / pImg.VerticalResolution), 1)
             Using brush As TextureBrush = New TextureBrush(pImg, System.Drawing.Drawing2D.WrapMode.Tile)
                brush.TranslateTransform(CSng(prtDest.X), CSng(prtDest.Y))
                brush.ScaleTransform(sx, sy)
                g.FillRectangle(brush, prtDest)
              End Using

TextureBrush是支持Matrix变换的，所以使用TranslateTransform就可以影响其Origin位置。