Merhaba arkadaşlar, yeni bir proje üzerinde çalışıyorum ve projeye renk seçici ekledim. Kullandığım harici bir renk seçici var, onda bir kamera ve zoom özelliği var, onuda projeme dahil etmek istiyorum. Fare imlecinin gezdiği yeri hem seçili karede gösterip hemde zoom yapıyor, olayı videoya aldım konuya ekliyorum. Konu hakkında bilgisi olan aradığım kodu ve ya kaynak kodunu bulabileceğim bir site önerirse sevinirim. Lütfen anlamayanlar saçma ve boş yorum yazmasın, teşekkürler.
Renk seçici (color picker) zoom olayı yardım ?
- Konuyu başlatan ARTHUR48
- Başlangıç tarihi
- Durum
Tutti mi chiedono perché ho imparato questa lingua
Süper Üye
Mouseyi gezdirdiğin yeri formda göstermek istiyorsan şunları yap:
Formuna bi 2 picturebox,1 timer ekle, enabled true yap ve timere gir şu kodu yaz:
Dim masaüstüSz As Size
masaüstüSz = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim Yükseklik As Integer = masaüstüSz.Height
Dim Genislik As Integer = masaüstüSz.Width
PictureBox1.Width = Width
PictureBox1.Left = 0
PictureBox1.Top = 0
PictureBox1.Height = Height
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
Dim szz As Size = My.Computer.Screen.Bounds
Dim grafik As Graphics = PictureBox1.CreateGraphics()
Dim _RSM As Bitmap
_RSM = New Bitmap(szz.Width, szz.Height, grafik)
Dim hafıza As Graphics = Graphics.FromImage(_RSM)
hafıza.CopyFromScreen(PictureBox1.Location.X, PictureBox1.Location.Y, 0, 0, szz)
PictureBox2.Image = _RSM
Formuna bi 2 picturebox,1 timer ekle, enabled true yap ve timere gir şu kodu yaz:
Dim masaüstüSz As Size
masaüstüSz = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim Yükseklik As Integer = masaüstüSz.Height
Dim Genislik As Integer = masaüstüSz.Width
PictureBox1.Width = Width
PictureBox1.Left = 0
PictureBox1.Top = 0
PictureBox1.Height = Height
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
Dim szz As Size = My.Computer.Screen.Bounds
Dim grafik As Graphics = PictureBox1.CreateGraphics()
Dim _RSM As Bitmap
_RSM = New Bitmap(szz.Width, szz.Height, grafik)
Dim hafıza As Graphics = Graphics.FromImage(_RSM)
hafıza.CopyFromScreen(PictureBox1.Location.X, PictureBox1.Location.Y, 0, 0, szz)
PictureBox2.Image = _RSM
- Konuyu başlatan
- #3
Eyvallah, bakalım işime yarayacakmı.
Error 1 Value of type 'System.Drawing.Rectangle' cannot be converted to 'System.Drawing.Size'. Hatası verdi.
Son düzenleme:
Tutti mi chiedono perché ho imparato questa lingua
Süper Üye
Yanlış yazmışım bide şöyle dene(Bounds.Size olacaktı)
Dim masaüstüSz As Size
masaüstüSz = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim Yükseklik As Integer = masaüstüSz.Height
Dim Genislik As Integer = masaüstüSz.Width
PictureBox1.Width = Width
PictureBox1.Left = 0
PictureBox1.Top = 0
PictureBox1.Height = Height
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
Dim szz As Size = My.Computer.Screen.Bounds.Size
Dim grafik As Graphics = PictureBox1.CreateGraphics()
Dim _RSM As Bitmap
_RSM = New Bitmap(szz.Width, szz.Height, grafik)
Dim hafıza As Graphics = Graphics.FromImage(_RSM)
hafıza.CopyFromScreen(PictureBox1.Location.X, PictureBox1.Location.Y, 0, 0, szz)
PictureBox2.Image = _RSM
Ayrıca form1 ün üstüne şunları tanımlamalısın:
Imports System.ComponentModel
Imports System.Drawing.Drawing2D
- Konuyu başlatan
- #5
ımportları daha önce tanımlamıştım. bu şekilde yapınca formu gezdirdiğimde görünrü dğişiyor, fareyi takip etmiyor ve parametre hatası veriyor bu seferde. ama aradığıma yakın. üzerinde biraz oynama yapıyım bakalım, sağol. "timer intervali yükseltince hata kalktı" ama tam istediğim işlem değil.
Son düzenleme:
- Konuyu başlatan
- #6
Seçkin Üye
kral kısa şekilde banada özetleyebilir misin anlamadımdaDaha basit bir kaç kodla hallettim, yardımın için teşekkür ederim. Çok basit bir işlemmiş aslında
Tutti mi chiedono perché ho imparato questa lingua
Süper Üye
Sevindim yaptığın yolu tahmin etmek isterimDaha basit bir kaç kodla hallettim, yardımın için teşekkür ederim. Çok basit bir işlemmiş aslında
Kesin prntsc tuşuna bastırıp clipboarddan picturebox aktardın dimi
- Konuyu başlatan
- #9
Senin kodlara benzer bir kod aslında ve elimde olan bir kodu arıyormuşum, komik olanda buSevindim yaptığın yolu tahmin etmek isterim
Kesin prntsc tuşuna bastırıp clipboarddan picturebox aktardın dimi
Yaptığım color picker de farenin altındaki pixsel rengini okuma kodu eklemiştim, onu ekran görüntüsü alma olayına çevirdim timer interval 1 (senin kodda timer interval 1 kabul etmemişti yükseltmek gerekiyordu), picturebox yerinede gunabuton ekledim (ımage olan her ıtem eklenebilir). Birde zoom olayı ekledim tam istediğim gibi oldu. İstersen kodları atıyım sana.Renk seçiciyi Ps cs6 daki ne benzer bir şey yapmak istiyorum, bu biraz uğraştıracak, detaya ihtiyacım var, bu konuda bilgin varmı. İşte:
Post automatically merged:
bir aşağıda yazdım bak, burdaki kodlar üzerinde biraz değişiklik yaparsan da yapabilirsin.kral kısa şekilde banada özetleyebilir misin anlamadımda
Seçkin Üye
tamamdır eywallahSenin kodlara benzer bir kod aslında ve elimde olan bir kodu arıyormuşum, komik olanda bu
Renk seçiciyi Ps cs6 daki ne benzer bir şey yapmak istiyorum, bu biraz uğraştıracak, detaya ihtiyacım var, bu konuda bilgin varmı. İşte:
Post automatically merged:
bir aşağıda yazdım bak, burdaki kodlar üzerinde biraz değişiklik yaparsan da yapabilirsin.
Tutti mi chiedono perché ho imparato questa lingua
Süper Üye
Ps yi sık kullanan biri değilim eve geçince bi bakıcam nasılmış renk seçicisi eğer yapabildiğim bişeyse yardımcı olurumSenin kodlara benzer bir kod aslında ve elimde olan bir kodu arıyormuşum, komik olanda bu
Renk seçiciyi Ps cs6 daki ne benzer bir şey yapmak istiyorum, bu biraz uğraştıracak, detaya ihtiyacım var, bu konuda bilgin varmı. İşte:
Post automatically merged:
bir aşağıda yazdım bak, burdaki kodlar üzerinde biraz değişiklik yaparsan da yapabilirsin.
- Durum