1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Resim Büyüteci


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Formumuza 2 adet form,1 Adet trackbar ,1 adet open filedialog,1 Adet buton ve 1 Adette trackbar ekliyoruz.1.Forma Trackbarla butonu yerleştiriyoruz.2.forma sadece picturebox'ı yerleştiriyoruz.
    Kod:
    Dim y, x As Integer
    'Butonun click olayına
    Form2.Show()
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Form2.PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
            End If
    'formun load olayına
    TrackBar1.Maximum = 4
            TrackBar1.Minimum = 1
            TrackBar1.TickFrequency = 1
            x = Form2.PictureBox1.Width
            y = Form2.PictureBox1.Height
    'trackabara çift tıklayarak
    Form2.PictureBox1.Width = x * TrackBar1.Value
            Form2.PictureBox1.Height = y * TrackBar1.Value