السلام عليكم
همممممم ،،، هل تقصد الشفافية ..
لديك اربعة خيارات :
0- Native(Pure) VB
1- API وتحديداً BitBlt
2- DirectX7 or DirectX8 (صعب للمبتدأين)
3- المحركات المجانية (Revolution3D - AXDE::MF - TrueVision - 3DState)
على حسب نوع البرنامج والوضائف المستخدمة فيه يتم إستخدام واحد من الأنواع الثلاثة
وللأسف انت لم توضح كامل خصائص البرنامج ولكن ربما يكون النوع الثاني
لحسن الحظ لدي مثال قديم برمجته ليشرح BitBlt API Function تجده مع المرفق
على كل حال تستطيع العمل مع دوال VB فقط (VB Built in) حتى بدون دوال API
وهذا مثال على السريع يوضح كيف نتخلص من اللون الأبيض مثلاً
كود:
Private Sub Form_Load()
Dim I As Long, I2 As Long
Me.Show
For I = 0 To Picture1.Height - 1
For I2 = 0 To Picture1.Width - 1
If Picture1.Point(I2, I) <> RGB(255, 255, 255) Then Picture2.PSet (I2, I), Picture1.Point(I2, I)
Next I2
DoEvents
Next I
End Sub
بالتوفيق