Search:

thank you VictorN

both zero

Dim s As Long s = GetDIBits(DestinationHDC, DestinationBitmap, 0, bm.bmHeight, gptr, bi, DIB_RGB_COLORS)
If (s = 0) Then
MsgBox "error " + vbTab + CStr(GetLastError())
...

so far i did these code:

Friend Sub DrawImageRectanglePoints(DestinationHDC As Long, Points() As Position3D, WorldSize As Size3D) 'Points(0) is the Upper-Left
'Points(1) is the Upper-Right...

using the GetCurrentObject() with HDC, i can get the actual HBitmap handle....but i need ask more 2 things:
1 - how can i get the BITMAPINFOHEADER from HBitmap?
2 - do i need create the DIB or the...

i have these 2 functions for get pixels:

Public Sub GetImageData(ByRef SourcehBitmap As Long, ByRef SourceHDC As Long, ByRef ImageData() As Byte)

'Declare variables of the necessary bitmap...

i use these functions for rotate a pixel...
1 - we get the pixel(the Z is zero) on RotationImage() and GetPixel();
2 - all angles(X, Y and Z) must be converted in Radians(the computer use Radians...

heres the functions that i use for rotation 3D:

//RotateImage.h:
#include <iostream>
#include <windows.h>
#include <math.h>


struct PointAPI
{

i can't find that option :(
PS: if i use a 'private' on UDT's and the function that have that parameters being 'private', i will not get that error... but the function must be used.. so must be...

ok.. the type is public, but i get, now, an error on type:

Public Type POINTL X As Long
Y As Long
End Type
"compiler error: cannot define a public user-defined type within a private...

Public Sub DrawImageTrapezoid(ByRef Points() As POINTL, ByVal DestinationHDC As Long, ByVal TranspColor As Long)
"Compiler error:
Private enum and user defined types cannot be used as parameters ou...

heres the error message:
https://imgur.com/a/hOjFifj
and now the 'array parentheses':

Option Explicit

Private GDIsi As GDIPlusStartupInput, gToken As Long, hGraphics As Long, hBitmap As Long

i created a class:

Option Explicit

Private GDIsi As GDIPlusStartupInput, gToken As Long, hGraphics As Long, hBitmap As Long


Private Type POINTL
X As Long
Y As Long

no.... but i'm trying understand if the values from points() to texturepoints() are correct or not :(
i'm confused... the texture go to the 1st to the 2nd points without problems... i belive the 3...

wow i found 1 problem: if the point have a negative value, i will get big numbers... ok these problem will be fixed. after i learn 1 math.
heres the values:
35907
but what i did wrong with values?

VictorN: even not be C code... what you think about the image?
heres a pseud-rectangle(A to D):
B |-----------|C

A |-----------| D
"A pointer to an array of three points in logical space that...

finally i'm using it, but i'm getting the wrong shape width..

'Get the four vectors
'Floor:
'Vector1: low-left
FillPosition3D NewPosition3D(0), Position.X, Position.Y,...

correct me anotherthing: even if i fix it, the PlgBlt() can be used on a plane? or the results will be not what we expected?
i mean drawed the texture.. like create a street

PlgBlt Me.hDC, points2, Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &O0, &O0, &O0
error by ref argument....

how use\add GDIPLUS on VB6?

yes

Dim points2(4) As POINTAPI
points2(0) = Points(0)
points2(1) = Points(1)
points2(2) = Points(2)
points2(3) = Points(3)
PlgBlt Me.hDC, points2(0), Picture1.hDC, 0, 0,...

i'm trying now testing the function:

'Convert all 3D vectors to 2D vectors(for screen): Dim i As Integer
For i = 0 To 3
Points(i) = ConvertPositon3DTo2D(NewPosition3D(i),...

thank you so much for all... thank you

maybe i was confused.. nothing more.. sorry

i'm sorry, but you miss some words?
"... VB is the upper-right corner, and VC and the lower-left corner then it looks..."

is like:
(upper-left)VA - VB(upper-right)
(low-right)VC - VD(low-left)