Picturebox控件加载图片的方法如下：
      Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg")
如果将Picturebox控件的AutoSize属性设为True的话，可以让图片框自动适应图片的大小，但无法让图片自动适应图片框的大小。
解决方法有两种：
方法一：使用PaintPicture方法，代码如下
      Picbox1.PaintPicture LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg"), 0, 0, Picbox1.ScaleWidth, Picbox1.ScaleHeight

方法二: 使用Image控件，将其放入PictureBox中，并设其属性Stretch=True，使得图片自动适应image。代码如下
      Image2.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg", vbLPLarge, vbLPColor)
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时，查询结果可能会如图所示：
 

 
 
而我们需要的是：
 

 
 
这本来是一个很简单的调整MSHFlexGrid列宽的问题，只需要设置AllowUserResizing即可，如图：
 

 
 
但是我刚开始没有注意到这个属性，所以就百度了自动调整MSHFlexGrid列宽的方法，需要自定义一个过程：
 
 
Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
    Dim i, j As Integer
    Dim dblWidth As Double
    With gridCur
        For i = 0 To .Cols - 1
            dblWidth = 0
            If .ColWidth(i) <> 0 Then
                For j = 0 To .Rows - 1
                    If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
                        dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                    End If
                Next
                .ColWidth(i) = dblWidth + dblIncWidth + 100
            End If
        Next
    End With
End Sub
然后再调出 ： Call AdjustColWidth(frmLineHis, myFlexGrid)

 
          这个过程的关键就是要知道form窗体有TextWidth方法，
Textwidth方法则返回一个文本字符串的宽度值。

 
 
   因为知道了Textwidth方法，我们就能使任何输入内容为文本字符类控件自动调节到最适合宽度，因为还有TextHeight方法，我们就能调整任何输入内容为文本字符类控件自动调节到最适合高度。我们知道label控件有AutoSize属性，而把上述代码封装起来就是输入内容为文本字符类控件的AutoSize属性。
 
   问题虽小，但是有一个从特殊到一般的思考过程。任何问题都能归类，任何解决问题的方法提升后都能解决一类问题！
 

 
 
*自动调整MSHFlexGrid各列列宽为最合适的宽度参考文章：
 
http://li25686686.blog.163.com/blog/static/3684873720105644729263/
 
 

 
 

 
 

 
 

 
 

 

  
   
 Picture的AutoSize属性设为True的话可以让图片框自动适应图片大小，但是图片不能适应图片框大小； 
 

   
    
  Image的Stretch属性设为True的话可以让图片自动适应图像框大小。
 
 
 

  
 
 
 
 

   
    
  如果仅仅是为了显示的话，那么用Image图像框就可以满足需求了，但是我还想获取图片中某个点的颜色。Picture1.Point(x,y)可以获取Picture1的(x,y)坐标处的颜色（注意单位默认不是像素，而是Twip。单位可在Picture1的ScaleMode属性中设置，设为Pixel就是以像素位单位了），但是Image不能用Point这个方法。
 
 
 

   
    
  所以才有了下面的这个方法，让图片适应图片框大小：
 
 
 

   
    
  先是用一个隐藏的Image或者Picture打开一个图片（注意如果是用Picture的话要把AutoRedraw属性设为True），然后在另一个可见的Picture上画图：Picture1.PaintPictureImage1.Picture, 0, 0, Picture1.Width,Picture1.Height，完成的功能就是吧Image1已经打开的图片画到Picture1上。
 
 
 

   
    
   下面是程序代码：
 
 
 

  Image1.Stretch = True
 
 
 

  Image1.Picture = LoadPicture("……")
 
 
 

  Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width,Picture1.Height
 
 
 

  
 
 
 
 

   
    
  顺便说一下，使用Picture1.Point(x,y)返回的是一个24位数，共3个字节，低位的1个字节是R，中间的1个是G，高位的1个字节是B。
 
 

原创文章，转载请注明出处！
 
Code：
 
Imports System.IO
 Public Class Form1
     Dim picBoxX, picBoxY, picX, picY, FormWith, FormHeight As Int32
     Dim num1, num2, num3, num4 As Int32
     Dim localFilePath, FilePathEx(), FilePath, newFileName As String
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         picBoxX = PictureBox1.Width
         picBoxY = PictureBox1.Height
         FormWith = Me.Width
         FormHeight = Me.Height
         NumericUpDown3.Value = 0
         NumericUpDown4.Value = 0
         NumericUpDown3.Maximum = 200  '最大两倍放大
         NumericUpDown4.Maximum = 200  '最大两倍放大
     End Sub
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Dim mystream As Stream
         'OpenFileDialog1.InitialDirectory = Application.StartupPath 'or System.IO.Directory.GetCurrentDirectory()
         OpenFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
         OpenFileDialog1.Filter = " 支持格式|*.bmp;*.gif;*.jpg;*.png|BMP 文件(*.BMP)|*.BMP|JPG 文件(*.JPG)|*.JPG|GIF 文件(*.GIF)|*.GIF|PNG 文件(*.PNG)|*.PNG"
         OpenFileDialog1.FilterIndex = 3
         OpenFileDialog1.RestoreDirectory = True
 
 
         If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
             mystream = OpenFileDialog1.OpenFile()
             If Not (mystream Is Nothing) Then
                 PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
                 Me.PictureBox1.ImageLocation = OpenFileDialog1.FileName
                 Me.TextBox1.Text = Me.PictureBox1.ImageLocation
 
 
                 PictureBox1.SizeMode = PictureBoxSizeMode.Zoom '缩放模式  
 
 
                 picX = PictureBox1.Image.Width
                 picY = PictureBox1.Image.Height
                 picBoxX = Me.PictureBox1.Width
                 picBoxY = Me.PictureBox1.Height
                 Label1.Text = "宽度已缩放为：" & CInt((picBoxX / picX) * 100) & "%; 高度已缩放为：" & CInt((picBoxY / picY) * 100) & "%"
 
 
                 NumericUpDown1.Maximum = picX + picX  '最大两倍放大
                 NumericUpDown2.Maximum = picY + picY  '最大两倍放大
 
 
                 NumericUpDown1.Value = picX.ToString
                 NumericUpDown2.Value = picY.ToString
 
                 num1 = picX
                 num2 = picY
                 num3 = 100
                 num4 = 100
 
                 NumericUpDown1.Value = num1.ToString
                 NumericUpDown2.Value = num2.ToString
                 NumericUpDown3.Value = num3
                 NumericUpDown4.Value = num4
 
                 mystream.Close()
 
             End If
         End If
     End Sub
 

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         If TextBox1.Text <> "" Then
             PictureBox1.Image = System.Drawing.Image.FromFile(TextBox1.Text)
             If Button2.Text = "图片真实大小显示" Then
                 PictureBox1.AutoSize = True '缩放模式
                 Me.Width = picX + 60
                 Me.Height = picY + 60
                 Button2.Text = "图片缩放预览显示"
                 Label1.Text = "宽度已缩放为：100%" & "; 高度已缩放为：100%"
             ElseIf Button2.Text = "图片缩放预览显示" Then
                 PictureBox1.AutoSize = False
                 Me.Width = FormWith
                 Me.Height = FormHeight
                 PictureBox1.SizeMode = PictureBoxSizeMode.Zoom '缩放模式
                 Button2.Text = "图片真实大小显示"
                 Label1.Text = "宽度已缩放为：" & CInt((picBoxX / picX) * 100) & "%; 高度已缩放为：" & CInt((picBoxY / picY) * 100) & "%"
             End If
         Else
             MsgBox("请载入图片...")
         End If
     End Sub
 
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         SaveFileDialog1.Filter = " 支持格式|*.bmp;*.gif;*.jpg;*.png|BMP 文件(*.BMP)|*.BMP|JPG 文件(*.JPG)|*.JPG|GIF 文件(*.GIF)|*.GIF|PNG 文件(*.PNG)|*.PNG"
         SaveFileDialog1.FilterIndex = 3
         SaveFileDialog1.RestoreDirectory = True
 
         localFilePath = Me.TextBox1.Text
         FilePathEx = localFilePath.Split("\\")
         FilePath = ""
 
         For i = 0 To FilePathEx.Length - 2
             FilePath &= FilePathEx(i) & "\"
         Next
 
         newFileName = Now.ToString("yyyymmmddHHmmss") & " Width_" & num1 & "_Height_" & num2 & " " & FilePathEx(FilePathEx.Length - 1)
         Try
             Dim saveImage As New System.Drawing.Bitmap(Me.PictureBox1.Image, num1, num2)
             saveImage.Save(FilePath & newFileName)
             PictureBox1.Image = System.Drawing.Image.FromFile(FilePath & newFileName)
             Label1.Text = "新图片" & newFileName & "已保存到桌面"
             If num1 < picBoxX And num2 < picBoxY Then
                 PictureBox1.SizeMode = PictureBoxSizeMode.Normal
                 PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
             Else
                 PictureBox1.AutoSize = True
                 Me.Width = num1 + 100
                 Me.Height = num2 + 180
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
 
     Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
         num1 = CInt(NumericUpDown1.Value)
     End Sub
     Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
         num2 = CInt(NumericUpDown2.Value)
     End Sub
 
     Private Sub NumericUpDown3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
         NumericUpDown1.Value = (CInt(NumericUpDown3.Value) / 100) * picX
         num1 = NumericUpDown1.Value
     End Sub
     Private Sub NumericUpDown4_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
         NumericUpDown2.Value = (CInt(NumericUpDown4.Value) / 100) * picY
         num2 = NumericUpDown2.Value
     End Sub
 

 End Class
 
 
程序界面1：
 

 
 
程序界面2：