تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
انشاء صورة bitmap من خلال API
#1
كاتب الموضوع : AhmedEssawy

في حاله فشل الداله ترجع القيمه null
اما في حاله النجاح فترجع الصورة الجديده .


كود :
Const OBJ_BITMAP = 7
Const OBJ_BRUSH = 2
Const OBJ_FONT = 6
Const OBJ_PAL = 5
Const OBJ_PEN = 1
Const OBJ_EXTPEN = 11
Const OBJ_REGION = 8
Const OBJ_DC = 3
Const OBJ_MEMDC = 10
Const OBJ_METAFILE = 9
Const OBJ_METADC = 4
Const OBJ_ENHMETAFILE = 13
Const OBJ_ENHMETADC = 12
Private Declare Function GetNearestColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetObjectType Lib "gdi32" (ByVal hgdiobj As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim nDC As Long, nBitmap As Long
nDC = CreateCompatibleDC(Me.hdc)
'Create a Black/White bitmap
nBitmap = CreateBitmap(10, 10, 1, 1, ByVal 0&)
SelectObject nDC, nBitmap
'GetObjectType
Select Case GetObjectType(nBitmap)
Case OBJ_BITMAP
MsgBox "Object type: Bitmap"
Case OBJ_BRUSH
MsgBox "Object type: Brush"
Case OBJ_FONT
MsgBox "Object type: Font"
Case OBJ_PAL
MsgBox "Object type: Pal"
Case OBJ_PEN
MsgBox "Object type: Pen"
Case OBJ_EXTPEN
MsgBox "Object type: ExtPen"
Case OBJ_REGION
MsgBox "Object type: Region"
Case OBJ_DC
MsgBox "Object type: Device Context"
Case OBJ_MEMDC
MsgBox "Object type: Memory Device Context"
Case OBJ_METAFILE
MsgBox "Object type: Metafile"
Case OBJ_METADC
MsgBox "Object type: Metafile DC"
Case OBJ_ENHMETAFILE
MsgBox "Object type: Enhanched Meatfile"
Case OBJ_ENHMETADC
MsgBox "Object type: Enhanched Meatfile DC"
End Select
MsgBox "Nearest color: " + GetNearestColor(nDC, vbYellow)
'Clean up
DeleteDC nDC
DeleteObject nBitmap
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] انشاء شاشة دخول لاكثر من مستخدم مع الصلاحيات لكل مستخدم abulayth 6 1,875 02-02-16, 09:45 AM
آخر رد: awidan76
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 688 03-03-15, 12:38 AM
آخر رد: shalapyx
  افتح ملفّ الوورد والأكسل والباوربوينت من خلال برنامجك RaggiTech 0 929 17-10-12, 03:41 PM
آخر رد: RaggiTech
  التقاط صورة من الماسح الضوئي scanner RaggiTech 0 1,385 17-10-12, 02:17 PM
آخر رد: RaggiTech
  نسخ صورة الفورم إلى الحافظة RaggiTech 0 395 17-10-12, 01:11 AM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 273 17-10-12, 01:11 AM
آخر رد: RaggiTech
  للعمل من خلال Dos وارسال واستقبال البيانات RaggiTech 0 428 17-10-12, 12:58 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 546 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 659 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم