Ekran Görüntüsü Yakalama Sorunu

Cevaplar

• 

  12 yıl önce yazılmış

  harryistal

  49 cevap - 24 soru

      Public Function OrantiliBoyutlandir(ByVal pic As Bitmap, ByVal yeniyol As String, Optional ByVal genislik As Double = 400) As String
          Try
              Dim myBitmap As New Bitmap(pic)
              Dim ResimYukseklik As Double = myBitmap.Height
              'resmin yüksekliğini alıyor
              Dim ResimUzunluk As Double = myBitmap.Width
              'resmin genişliğini alıyor
              Dim sabit As Double = genislik
              ' resmimizi px genişliğinde sabitliyoruz
              Dim oran As Double = 0
              If ResimUzunluk > sabit Then
                  oran = ResimUzunluk / ResimYukseklik
                  ResimUzunluk = sabit
                  ResimYukseklik = sabit / oran
              End If
              Dim resim_ As New Bitmap(myBitmap, Convert.ToInt32(ResimUzunluk), Convert.ToInt32(ResimYukseklik))
              Dim regKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(System.IO.Path.GetExtension(yol))
              mimeType = regKey.GetValue("Content Type").ToString()
              Dim qualityParam As New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 90&)
              Dim jpegCodec As ImageCodecInfo = GetEncoderInfo(mimeType)
              Dim encoderParams As New EncoderParameters(1)
              encoderParams.Param(0) = qualityParam
              myBitmap.Dispose()
              If File.Exists(yeniyol) = True Then File.Delete(yeniyol)
              resim_.Save(yeniyol, jpegCodec, encoderParams)
              resim_.Dispose()
              Return ""
          Catch errArgument As ArgumentException
              Return errArgument.Message
          End Try
      End Function
  

  
  al arkadsm resim_.save bilgisayarında yda server da herhangi cikis verdigin yola kaydeder onun yerine picturebox1.image = resim_ yaparsan picturebox cıkısı alırsın istedigin boyutta cıkıs alabilrsin orantılı sekilde boyutlanır