چه جوری میشه فورم را اندازه یک عکس کرد و دور آن را برید.

واضح آرشیو وب فارسی:سایت ریسک: AghaMoez29-06-2006, 09:54 AMفوري و مهم !! چه جوري ميشه تو vb فرم رو اندازه ي شكل عكس كرد درواقع قسمت هاي اضافي آن را بريد. Arasx29-06-2006, 11:39 AMدوست عزيز من يك پروژه مثال دارم اگه مي خواي ميل بزار بدم برات.. AghaMoez05-07-2006, 02:35 PMچه جوری میشه فورم را اندازه یک عکس کرد و دور آن را برید. :) :) R£ɀД05-07-2006, 03:11 PMبراي اين كار 3 تا مثال داشتم كه براتون آپلود كردم لينك هاشون رو ميزارم: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! راستي مطلب زير رو هم خيلي وقت پيش از يك جايي پيدا كرده بودم ولي منبعش رو الان نمي دونم(خودم امتحان نكردم) فرض کنيد يک image غير مستطيلي داريد که مي خواهيد از آن بعنوان فرم برنامه تان استفاده کنيد ۱ - تصوير فرم مورد نظرتان را طراحي کرده و با فرمت bmp ذخيره کنيد . دقت نماييد که بايستي image خود را درون يک کادر مستطيلي قرار دهيد که با يک رنگ با RGB مشخص رنگ آميزي شده است : ۲ - يک فرم ويژوال بيسيک ايجاد کنيد و خاصيت BorderStyle آنرا صفر نماييد . 3 - در متد Form Load بايستي image مورد نظر را به فرمتان assign کنيد : Me.picture=loadpicture(yourimagename)x Me.width=Me.picture.width Me.height=Me.picture.height 4 - سپس بايستي يک ناحيه از اين image بسازيد که نسبت به رنگ RGB اي که در بالا به آن اشاره کردم transparent باشد . اگر فرض کنيم اين رنگ ، رنگ سياه باشد ( r=0 , g=0, b=0 ) : LRegion=MakeRgn(yourimagename,0,0,0)x 5 - حال بايستي ناحيه مشخص شده را بعنوان فرم برنامه تان قرار دهيد : call SetWindowRgn(Me.hwnd,LRegion,True)x 6 - يک ماژوال ايجاد کنيد و خطوط زير را در آن بنويسيد : Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function MakeRgn Lib "Region.dll" (ByVal FileName As String, ByVal R As Integer, ByVal g As Integer, ByVal b As Integer) As Long Public Declare Function DeleteRgn Lib "Region.dll" (ByVal Region As Long)x Global lRegion As Long 7 - در متد Form Unload عبارت زير را قرار دهيد : Call DeleteRgn(LRegion)x نکته ۱: بوسيله روتين زير مي توانيد فرم خود را در وسط صفحه قرار دهيد : Sub CenterForm(frm As Form) frm.Left = (Screen.Width - frm.Width) / 2 frm.Top = (Screen.Height - frm.Height) / 2 End Sub AghaMoez06-07-2006, 03:44 PMاگه به ايميلم بفرستي ممنونت ميشم AghaMoez06-07-2006, 03:51 PMاين منظورم نبود يك بار ديگه ميگم ميخوام كه اگر بقلاي عكسم سفيد است يا اگه مثلآ اون عكسم يك آيكن بقلاش ديده نشه نمي دونم منظورم رو تونستم بگم يا نه AghaMoez06-07-2006, 03:54 PMميخوام فورمم رو ببرم ميخوام كه اگر بقلاي عكسم سفيد است يا اگه مثلآ اون عكسم يك آيكن بقلاش ديده نشه R£ɀД06-07-2006, 04:08 PMهمون پست بالا رو ويرايش كردم . فكر كنم مشكل ديگه حله. hippo06-07-2006, 04:57 PMبايد عكس تو فتوشاپ درست كني با عصايه جادويي دوره عكسه تا انتخاب كن بعد پاكش كن و عكس را ذخيره كن Payman_6207-07-2006, 02:27 AMبايد عكس تو فتوشاپ درست كني با عصايه جادويي دوره عكسه تا انتخاب كن بعد پاكش كن و عكس را ذخيره كن محض اطلاعوتون عرض کنم این جا انجمن ویژوال بیسیک هست نه فوتوشاپ. AghaMoez18-07-2006, 02:26 PMميگه... فايل Region.dl not found Payman_6218-07-2006, 03:31 PMهمین فایل رو از نت بگیر بذار تو سیستم32 black_storm19-07-2006, 09:37 PMمن مدتی با Open GL در وی بی کار کرده ام اما به خاطر کمبود منابع نتوانستم ادامه بدهم - کسی هست در این زمینه کمک کم باشد ---- فقط بگم آخر سه بعدی سازی و بازی سازی در vb است - میگی نه امتحان کن - ---- به هر حال من در خدمتم ! black_storm20-07-2006, 02:25 PMاقا من ocx ان را ساختا ام امکانات --برش تصاویر به هر شکل بالا یا پایین کردن alpha فرم یا تصویر به هر اندازه توضیح : با کم یا زیاد کردن آلفا می توانید پشت فرم را ببینید - ترکیبی از هر دو - قابلیت حذف هر نوع رنگی که دوست داشتید - اجرای آسان متد های آن مثلا transparent color transparent = true or false opacity = true or false opacity value = 0 to 255 , .... ------ اقا من در خدمتم - یه ندایی بدید ! AghaMoez20-07-2006, 04:18 PMخوب بزارش تا ما دانلودش كنيم لطفآ برنامه Ocx رو بزار ممنونم R£ɀД29-07-2006, 06:20 PMخوب براتون يك مثال هم از فرم شيشه اي آپلود كردم مي تونيد از لينك زير بگيريد: http://www.reza-s.persiangig.com/other/form%20vb/shisheh.rar black_storm29-07-2006, 08:54 PMدوست عزيز اصل مطلب : تابع setwindowlayerdattribute هست nimazh05-08-2006, 01:44 PMسلام خدمت عزيزان مي خواستم بهم بگين چطور مي شه از كل فرم پرينت گرفت آخه فرم بزرگه و ميله هاي كناري پنجره ها در مد ويرايش كار نمي كنند و فقط قسمتي از فرم پرينت مي شه... يا برنامه اي نيست كه فرم رئ به عكس تبديم كنه؟؟ ممنون ايميل : [email protected] سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 458]