اشکال در ثبت در پایگاه داده ها

[Easy_Systems]

با سلام
لطفا اشکال کد زیر رو واسه من مشخص کنید
خطای this field is too small میده منم نمی دونم اشکال از کجاست
اگه امکانش هست یک smple code واسه ثبت در پایگه داده واسم بفرستین و اشکال این برنامه رو هم مشخص کنید


من روی کمک همه دوستان حساب می کنم

[malizadeh]

من نفهمیدم تو چرا اینهمه کار خودن رو سخت کردی

به این مثال نگاه کن

[Easy_Systems]

بابت فایلی که واسم فرستادی ممنون
خدا خیرت بده
یک راهنمایی هم می خواستم
یه فرم دارم شامل جند تا کنترل و یه دگمه add و یک دگمه save و یک datagridview میخوام با دگمه add چند تا رو به datagridview اضافه کنم و با دگمه save یکباره همه اونها رو تو پایگاه داده ثبت کنم
یک کد نوشتم که ضمیمه می کنم ولی زیاد به دلم نمی چسبه می خواستم اگه sample باحال واسه اینکار داری زحمت بکشی واسم بفرستی
بازم دمت گرم

[Easy_Systems]

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

[saeed_rezaei]

سلام،
اگه دوستان لطف کنند و هر مشکل و سوال رو در یه تاپیک جداگونه مطرح کنند واسه همه بهتره.
برای انجام عملیاتی که گفتید شما باید سه مرحله برنامه نویسی کنید
1: از فرمتون یه تصویر تهیه کنید. دستورات زیر یه تصویر از فرم رو در متغیر bmp ذخیره می کنند:


Dim bmp AsNew Bitmap(Me.Width, Me.Height)
Dim myrect AsNew Rectangle(0, 0, Me.Width, Me.Height)
Me.DrawToBitmap(bmp, myrect)

2- باید تصویر مورد نظر رو سیاه و سفید کنید. در زیر یه تابع نوشتم
این تابع یه تصویر رو به عنوان نمونه گرفته و سیاه سفیدش می کنه.



Dim cm As ColorMatrix = New ColorMatrix(NewSingle()() _
{NewSingle() {0.299, 0.299, 0.299, 0, 0}, _
NewSingle() {0.587, 0.587, 0.587, 0, 0}, _
NewSingle() {0.114, 0.114, 0.114, 0, 0}, _
NewSingle() {0, 0, 0, 1, 0}, _
NewSingle() {0, 0, 0, 0, 1}})
Dim cm2 As ColorMatrix = New ColorMatrix(NewSingle()() {NewSingle() {0.299, 0.299, 0.299, 0, 0}, NewSingle() {0.587, 0.587, 0.587, 0, 0}, NewSingle() {0.114, 0.114, 0.114, 0, 0}, NewSingle() {0, 0, 0, 1, 0}, NewSingle() {0, 0, 0, 0, 1}})
Try
Dim bmp AsNew Bitmap(img)
Dim imgattr AsNew ImageAttributes()
Dim rc AsNew Rectangle(0, 0, img.Width, img.Height)
Dim g As Graphics = Graphics.FromImage(img)
imgattr.SetColorMatrix(cm2)
g.DrawImage(bmp, rc, 0, 0, img.Width, img.Height, _
GraphicsUnit.Pixel, imgattr)
g.Dispose()
Return img
Catch
Return img
EndTry


3: در مرحله پایانی تصویر مورد نظر رو دوباره در فرم نمایش بدید.

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

[Easy_Systems]

با سلام و تشکر از saeed_rezaei
می بخشید من تازه عضو این سایت شده بودم و با قوانین اینجا زیاد آشنا نبودم
من دارم یک پروژه می نویسم به صورت آموزشی
واسه همینم فکر کردم تمام مشکلاتم رو تو همین تاپیک بگم
بازم تشکر