Başlangıç > Kodlar > VB.NET ile resim görüntülemek ve boyutlandırmak

VB.NET ile resim görüntülemek ve boyutlandırmak


Resimlerinizi görüntüleyin va boyutlandırın. (VB.net için )

Ayarlara aşağıdaki resim linkinden bakın


Yukarıdaki Linke bakarak formunuzu ona göre dizayn etmeyi unutmayın.

Kullanılacaklar:
Form name özelliği  'ResimReSizer'
3 adet radio Button
3 Adet  Button ( Hakkında isimli Buttonu istiyorsanız 2. bir form düzenlemelisiniz)
2 Adet Group Box

Kodlar ;

Public Class ResimReSizer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OpenFileDialog1 As New OpenFileDialog

RadioButton1.Checked = True
PictureBox1.SizeMode = PictureBoxSizeMode.Normal

With OpenFileDialog1

.CheckFileExists = True

.ShowReadOnly = False

.Filter = "All Files|*.*|Bitmap Files (*)|*;*.gif;*.jpg"

.FilterIndex = 2

If .ShowDialog = DialogResult.OK Then

'berlilene dosyayı bicturebox un içine ekliyoruz

PictureBox1.Image = Image.FromFile(.FileName)

End If

End With
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
PictureBox1.SizeMode = PictureBoxSizeMode.Normal
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
PictureBox1.SizeMode =
PictureBoxSizeMode.StretchImage

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
End Sub

Private Sub ResimReSizer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True
PictureBox1.SizeMode = PictureBoxSizeMode.Normal
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: