فرم با گوشه های گرد در Vb6

[MSJS]

فورم به گوشه های گرد در Vb6

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

 

[the_king]

من برای نمونه فرمی را ساختم که از ظاهر فروم مجید آنلاین استفاده می کنه.



طبق طراحی این برنامه، تمامی نقاطی که در تصویر فرم (Picture) با رنگ Magenta (صورتی یا Red 255, Green 0, Blue 255)
مشخص شوند را بصورت شیشه ای (Transparent) فرض می کند.
کافی است که تصویر موجود در فرم را تغییر دهید تا شفافیت فرم بر اساس تصویر جدید تغییر کند.

من یک روتین با نام SetRegion ساختم که تمامی مراحل پیچیده انجام این کار را در خود پنهان کرده است.
سرعت پردازش تصویر در این روتین به واسطه استفاده بهینه از توابع API سیستم عامل کاملا مطلوب است.
کافی است که فرم مربوطه را به عنوان تک پارامتر این روتین مشخص کنید، مثلا :

Private Sub Form_Load()
    [B]SetRegion[/B] Me
End Sub

همچنین این برنامه از یک دکمه Cmd اختصاصی استفاده می کند که کد آن بصورت UserControl موجود است.