التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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
}}}
تم الشكر بواسطة:


الردود في هذا الموضوع
انشاء صورة bitmap من خلال API - بواسطة Raggi Tech - 17-10-12, 12:24 AM


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


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