تقييم الموضوع :
  • 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 3,069 02-02-16, 09:45 AM
آخر رد: awidan76
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 966 03-03-15, 12:38 AM
آخر رد: shalapyx
  افتح ملفّ الوورد والأكسل والباوربوينت من خلال برنامجك RaggiTech 0 1,119 17-10-12, 03:41 PM
آخر رد: RaggiTech
  التقاط صورة من الماسح الضوئي scanner RaggiTech 0 1,572 17-10-12, 02:17 PM
آخر رد: RaggiTech
  نسخ صورة الفورم إلى الحافظة RaggiTech 0 516 17-10-12, 01:11 AM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 418 17-10-12, 01:11 AM
آخر رد: RaggiTech
  للعمل من خلال Dos وارسال واستقبال البيانات RaggiTech 0 573 17-10-12, 12:58 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 688 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 821 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,246 17-10-12, 12:51 AM
آخر رد: RaggiTech

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


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