تصحیح کن پاسخ نامه در .NeT

[VB.NET2005]

آقا من این برنامه رو دارم اما تو ویژوال 6 . هرکی سورس دات نت یا کلا برنامشو داره لطف کنه بزاره خیـــــــــــــــــــــــ لی بهش احتیاج دارم .:بوس:

[VB.NET2005]

لینک برنامه :

http://farzad-ecom.persiangig.com/other/TAS-HIH.rar

[VB.NET2005]

کسی نبود جوابه ما رو بده ؟

[VB.NET2005]

آقایوون مهندس جوابی ندارند ؟:گریه:

[VB.NET2005]

در این رابطه که کسی ما رو راهنمایی نکرد لا اقل بگــیـد چه طوری مختصات یک نقطه رو توی یک عکس پیدا کنم و مثلا اگه رنگ اون نقطه قرمز بوود توی یک لیبل بنویسه قرمز .

[amirsajjadi]

PrivateSub PictureBox1_MouseClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim b AsNew Bitmap(PictureBox1.Image)
Label1.Text = b.GetPixel(e.Location.X, e.Location.Y).ToString
EndIf
EndSub

[VB.NET2005]

ممنوون دوست عزیز .
اما یه سوال دیگه هم دارم : چه طور میشه تو هر نقطه از فرم که کروسر رو راه میبریم تویه یک لیبل مختصات بده .

[amirsajjadi]

ا سلام

این کد رو توی رویداد Form_Load بنویس :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each i As Control In Me.Controls
AddHandler i.MouseMove, AddressOf Form1_MouseMove
Next
End Sub
این کد رو توی رویداد mousemove فرم بنویس :

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Me.Text = Windows.Forms.Cursor.Position.ToString
End Sub

[VB.NET2005]

واقعا ممنون دوست عزیــــز :

فقط اگه به ای سوالم هم جواب بدیید ممنووون میشم :
( مثلا ما یه نقطه به مختصات "125,98" بدست اوردیم بد رنگ اون نقطه رو بگیره تو یه لیبل نشون بده ؟ )
تویه یک تکست باکس مختصاب بدیم اون رنگه نقطه رو بده ؟

[VB.NET2005]

راستی ببخشید دوست عزیز من تو VB.Net 2003 کد را نوشتم ولی :


ForEach i As Control InMe.Controls
AddHandler i.MouseMove, AddressOf Form1_MouseMove
Next


مثله اینکه سینتکس (InMe) اشکال داره . اگه میشه اصلاحش کنید .

[amirsajjadi]

کد رو تصحیح کردم

[VB.NET2005]

فقط اگه به این سوالم هم جواب بدیید ممنووون میشم :
( مثلا ما یه نقطه به مختصات "125,98" بدست اوردیم بد رنگ اون نقطه رو بگیره تو یه لیبل نشون بده ؟ )
تویه یک تکست باکس مختصاب بدیم اون رنگه نقطه رو بده ؟
یا هر طوره دیگه ای که میشه رنگ یک نقطه رو پیدا کرد .

[VB.NET2005]

کســـی نبــــود ؟ ؟ ؟


فقط اگه به این سوالم هم جواب بدیید ممنووون میشم :
( مثلا ما یه نقطه به مختصات "125,98" بدست اوردیم بد رنگ اون نقطه رو بگیره تو یه لیبل نشون بده ؟ )
تویه یک تکست باکس مختصاب بدیم اون رنگه نقطه رو بده ؟
یا هر طوره دیگه ای که میشه رنگ یک نقطه رو پیدا کرد .

[VB.NET2005]

سوال من یه طوره دیگه :

ما یک مختصات بدیم اون رنگه او نقطه رو چک کنه مثلا اگه مشکی بود تویه یک تکست باکس بنویسه "Black" و اگه مثلا قرمز بود بنویسه "Red" .

[VB.NET2005]

کســــــــی نبوووود ؟


ما یک مختصات بدیم اون رنگه او نقطه رو چک کنه مثلا اگه مشکی بود تویه یک تکست باکس بنویسه "Black" و اگه مثلا قرمز بود بنویسه "Red" .

[amirsajjadi]

با سلام
حالا چرا ناراحت میشی
اینم کدی که میخواستی اگه مشکلی داشت بگو تا برطرفش کنم

Dim b As Bitmap = New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format64bppArgb)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each i As Control In Me.Controls
AddHandler i.MouseMove, AddressOf Form1_MouseMove
Next
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim c As Color = b.GetPixel((Windows.Forms.Cursor.Position.X - Me.Location.X), (Windows.Forms.Cursor.Position.Y - Me.Location.Y))
TextBox1.Text = "[" + CStr(c.R) + " , " + CStr(c.G) + " , " + CStr(c.B) + "]"
End Sub

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
End Sub

توضیحات کد : ابتدا متغیری از نوع bitmap با کیفیت 64 بیت (برای بالا بودن کیفیت تصویر و کم کردن درصد خطا در تشخیص رنگ) سپس وقتی فرم لود میشه رویداد mousemove تمام کنترل های فرم رو به آدرس form1_mousemove تغییر میده بعد وقتی که فرم روی صفحه ظاهر میشه یک تصویر از فرم گرفته میشه و در داخل متغیر bitmap ذخیره میشه سپس با حرکت دادن موس رنگ نقاط رو توی تکس باکس نشون میده که شما میتونید با استفاده از select case نام رنگ ها رو توی تکس باکس بنویسید
ضمنا شما میتونید عکس رو تغییر بدید مثلا میتونید یک پیکسل رو تغییر رنگ یا اینکه عکس رو توی فایل ذخیره کنید

[VB.NET2005]

یک دنیا ممنـــــون آقای :
amirsajjadi (http://barnamenevis.org/forum/member.php?u=28521)

[VB.NET2005]

فقط آقای سجادی یه مشکل دیگه هم هــســـت :

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
End Sub


این قسمتو VB 2003 خطا میگیره . اگه میشه برطرفش کنید .

"با تشکر"

[amirsajjadi]

کلاس DrawToBitmap فقط در FrameWork 2.0 است

[VB.NET2005]

یعنی مشکله من به هیچ صورت دیگه ای حل نمیشه ؟ ؟ ؟

[VB.NET2005]

کلاس DrawToBitmap فقط در FrameWork 2.0 است


هیچ راه دیگه ای نیست ؟ ؟ ؟

نمیشه اقایی کنین کدی شبیه به این نرم افزار که در VB6 هست رو به Net2003. تبدیل کنین و اینجا بزاریــن .

http://farzad-ecom.persiangig.com/other/TAS-HIH.rar (http://farzad-ecom.persiangig.com/other/TAS-HIH.rar)

[VB.NET2005]

هیچ راه دیگه ای نیست ؟ ؟ ؟

نمیشه اقایی کنین کدی شبیه به این نرم افزار که در VB6 هست رو به Net2003. تبدیل کنین و اینجا بزاریــن .

http://farzad-ecom.persiangig.com/other/TAS-HIH.rar (http://farzad-ecom.persiangig.com/other/TAS-HIH.rar)




:گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه:

[amirsajjadi]

دوست عزیز خوب این برنامه ی شما میاد روی تصویر کار میکنه نه روی فرم که طریقه کار رو تصویر هم توی پست 6 گفتم

[VB.NET2005]

PrivateSub PictureBox1_MouseClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim b AsNew Bitmap(PictureBox1.Image)
Label1.Text = b.GetPixel(e.Location.X, e.Location.Y).ToString
EndIf
EndSub
ببخشید در VB.2003 این قسمت ها رو اشکال میگیره . اگه میشه اصلاحش کنین .

در ضمن کسی نمیوتونه یه برنامه مثله این :

"http://farzad-ecom.persiangig.com/other/TAS-HIH.rar (http://farzad-ecom.persiangig.com/other/TAS-HIH.rar)"

تو دات نت پیاده کنه اگه کسی میتونه یا علـــــــی .

"با تشکر ویژه از آقای سجادی"

[اَرژنگ]

سورس کد برنامه را از کجا میشه دانلود کرد؟

[VB.NET2005]

سورس کد در VB6 هست و من کد .Net2003 رو می خوام .

لیــنک : http://farzad-ecom.persiangig.com/other/TAS-HIH.rar (http://farzad-ecom.persiangig.com/other/TAS-HIH.rar)

[VB.NET2005]

سورس کد در VB6 هست و من کد .Net2003 رو می خوام .

لیــنک : http://farzad-ecom.persiangig.com/other/TAS-HIH.rar (http://farzad-ecom.persiangig.com/other/TAS-HIH.rar)


اساتید محترم : خواهشن یکی اینو به Net2003. تبدیل کنه .

.: بــا تــشــکــر :.

[VB.NET2005]

اساتید محترم : خواهشن یکی اینو به Net2003. تبدیل کنه .