maxi
Silver Üye
- Katılım
- 19 Şub 2020
- Mesajlar
- 29
- Beğeniler
- 8
Merhaba Dostlar
Zamanı ile birlikte kayıt edilen screenshot alma yöntemini gösteriyorum.
"Screenshot Al" Butonuna yazılacak kod ;
1 Adet Kullanılmayan PictureBox , 1 Adet Boş Bir Textbox ve 1 Adet Timer - ( Timer = Enabled + İnterval = 100 ) ;
Timer içine yazılacak kod ;
Bu Kodları Kullanarak İlk belirtilen Kod da ki konumdan istediğiniz konumla değiştirebilirsiniz.
Kodlara internetten zaten ulaşabilirsiniz fakat ben kullandığım yöntemi göstermek için konuyu paylaştım.
Zamanı ile birlikte kayıt edilen screenshot alma yöntemini gösteriyorum.
"Screenshot Al" Butonuna yazılacak kod ;
Kod:
Dim rastgele As New Random
Dim kod As Integer = rastgele.Next(100000)
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
Dim yol As String = "C:\Users\" + Environment.UserName.ToString + "\AppData\Local\Temp\" + BoşTextBox.Text + ".png"
screenshot.Save(yol)
PictureBox1.Load(yol)
screenshot.Dispose()1 Adet Kullanılmayan PictureBox , 1 Adet Boş Bir Textbox ve 1 Adet Timer - ( Timer = Enabled + İnterval = 100 ) ;
Timer içine yazılacak kod ;
Kod:
BoşTextBox.Text = DateTime.Now
BoşTextBox.Text = BoşTextBox.Text.Replace(":", ".")Bu Kodları Kullanarak İlk belirtilen Kod da ki konumdan istediğiniz konumla değiştirebilirsiniz.
Kodlara internetten zaten ulaşabilirsiniz fakat ben kullandığım yöntemi göstermek için konuyu paylaştım.