معکوس کردن رنگ نوشته با توجه به تصویر زمینه

[tempali]

سلام
یک سوال: آیا در وی بی میشه رنگ نوشته یک لیبل رو بصورت نگاتیو عکس بک گراند فرم درآورد؟
طوری که اگر رنگ پس زمینه با نوشته یکی بود، زنگ نوشته معکوس رنگ زمینه شده و قابل خواندن باشه؟

[محسن واژدی]

سلام علیکم
برای معکوس کردن رنگ نوشته میتوانید این عمل را در picturebox انجام دهید، برای اینکار DrawMode شی picturebox را بر روی vbInvert تنظیم میکنیم
که پس از آن رنگ متن برچسب در حضور یک تصویر خارجی معکوس خواهد شد:
برای اینکار یک CommandButton و یک PictureBox بر روی فرم قرار داده سپس یک label در آن PictureBox قرار دهید، و کد زیر را در ماژول فرم کپی کنید:

Private Sub Command1_Click()
Picture1.DrawMode = vbInvert
Picture1.Refresh
Picture1.Picture = LoadPicture("c:\my_pic.bmp")
Picture1.PaintPicture Picture1.Picture, 0, 0, , , , , , , vbDstInvert
End Sub


مسیر تصویر را جایگزین "c:\my_pic.bmp" کنید

موفق باشید