Search:

Type: Posts; User: joaquim

Page 1 of 13 1 2 3 4

Search: Search took 36.23 seconds.

  1. Replies
    6
    Views
    737

    Re: how can i walk throw the line?

    i found why i get that empty pixels... have to do with camera size... thank you so much for all
  2. Replies
    6
    Views
    737

    Re: how can i walk throw the line?

    - for get the line points is from up to bottom
    - for draw the image is bottom to up
  3. Replies
    6
    Views
    737

    Re: how can i walk throw the line?

    i'm testing more these function, but i don't get some points and i don't know why :(

    'if the line don't use Z, the Z value must be zero
    Public Function GetLinePoints(ByRef Origin As Position3D,...
  4. Re: VB6: how get RGB from ARGB color?

    thank you so much for all.. i continue had some bad colors with some images... but, for now, i can draw an image on 3D plane.... i must use DIB's for speed and more ;)
    now i must fix another...
  5. Re: VB6: how get RGB from ARGB color?

    i found these code:

    GdipBitmapGetPixel hBitmap, X, Y, color
    r = (color And &HFF)
    g = ((color \ &H100) And &HFF)
    b = ((color \ &H10000) And &HFF)
    ...
  6. Re: VB6: how get RGB from ARGB color?

    see these test code(ok combined GDIPLUS with GDI, but it's only a test):

    Dim color As Long
    GdipBitmapGetPixel hBitmap, X, Y, color
    If (color = CLR_INVALID) Then Exit For...
  7. [RESOLVED] VB6: how get RGB from ARGB color?

    i need get Red, Green and Blue from ARGB... how can i do it?
  8. Re: VB6: how rotate an image 2D using 3D formulas?

    that's impossible rotate an image correctly.
    so i had learned another way.
    we can get the line points:

    'if the line don't use Z, the Z value must be zero
    Public Function GetLinePoints(ByRef...
  9. Replies
    0
    Views
    93

    how use array parameters?

    heres a function for get line points:

    Public Function GetLinePoints(Origin As Position3D, Destiny As Position3D) As Position3D()
    Dim Steps As Double
    Dim Points() As Position3D

    ...
  10. VB6: how rotate an image 2D using 3D formulas?

    using an image, we can rotate the pixel using 3D math:

    'Module1:
    Option Explicit


    Type POINTL
    X As Long
    Y As Long
    End Type
  11. Replies
    2
    Views
    191

    Re: how avoid the overflow error?

    'X axis (Pitch)
    PosY = PosY * Cos(AngleX) - PosZ * Sin(AngleX)
    PosZ = PosY * Sin(AngleX) + PosZ * Cos(AngleX)
    the 'PosZ': "-1, #INF"....
    i get very big numbers... but don't make sence...
  12. Replies
    2
    Views
    191

    how avoid the overflow error?

    i did the RotationImage():

    'Rotate an image:
    Public Sub RotationImage(ByRef HDCDestination As Long, ByRef HDCSource As Long, ByVal AngleX As Double, ByVal AngleY As Double, ByVal AngleZ As...
  13. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    now i can control it:

    Private Sub TrapezoidBlt(ByVal PctTop As Long, ScanZ As Single, ByVal DestinationHDC As Long, PosX As Long, PosY As Long, ByVal TranspColor As Long)
    Dim ScanLines As...
  14. Re: vb6: how use an user type parameter on a class function\sub?

    heres the error message:
    https://imgur.com/a/hOjFifj
  15. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    i can't control the draw position :(

    Private Sub TrapezoidBltUpdate(ByVal PctTop As Long, ByRef pos As POINTAPI, ByVal zpos As Long, ByVal DestinationHDC As Long, ByVal TranspColor As Long)
    ...
  16. Re: vb6: how use an user type parameter on a class function\sub?

    DataMiser: the error message is on Compilation step.
  17. Re: vb6: how use an user type parameter on a class function\sub?

    on a module:

    Option Explicit

    Public Declare Function GetLastError Lib "kernel32" () As Long
    Public Declare Function GetActiveWindow Lib "user32" () As Long

    Public Declare Function ArrPtr...
  18. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    mms_: using Matrix can we rotate an image?
    the GDIPLUS only rotate the Y or X or both?
    the Z angle can be converted or added to X and Y angle?
  19. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    my best thot was rotation the image using DIB's(or the GDIPLUS) on a pixel way.. they are faster...
    the image have Z=0... so from here i can rotate the image... but i can't get the angle by a...
  20. Re: vb6: how use an user type parameter on a class function\sub?

    i never did a DLL\lib.. but i can learn it ;)
  21. Re: vb6: how use an user type parameter on a class function\sub?

    dilettante: imagine that i have 10 types, so i need create 10 class's :(
    so the best is create all types\structures and declare all GDIPLUS functions\sub's on a module and then i can use it on a...
  22. Re: vb6: how use an user type parameter on a class function\sub?

    wqweto: so everytime that i share the class, i must share the module file too?
    why i can't create a type, inside the class, and use it on class?
  23. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    dilettante: correct me 1 thing: the GDIPLUS rotation can use Z and Y?
    LaVolpe: thank you.. now i get it.. thank you
  24. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    "ColorMap() is an array of pairs of ARGB colors, each pair being "old color" and "new color" to substitute."
    but i don't know how works :(
    "Not sure why you want to pixel-fiddle. I thought you...
  25. Re: VB6: GDIPLUS - how change pixels colors on a faster way

    how works 'ColorMap'(i don't know that hexadecimal values)?
    ok.. the AlphaPic is a class(not tested the project)...
    i need ask more 1 thing: the GdipBitmapGetPixel() and GdipBitmapSetPixel(), must...
  26. VB6: GDIPLUS - how change pixels colors on a faster way

    using GDIPLUS, how can i change the pixel colors(or swap colors) on a faster way?
  27. vb6: how use an user type parameter on a class function\sub?

    Private Type POINTL
    X As Long
    Y As Long
    End Type

    Friend Sub DrawImage(DestinationHDC As Long, ByRef Position As POINTL)
    GdipDrawImage hGraphics, hBitmap, Position.X, Position.Y...
  28. Re: how can i get the GDI+ declaration functions\types?

    the trapezoidBlt() draws from X zero(just using the form entire size).... can i start on X=100 and Y=100?
    the PosY = PctTop + Y? and PosX = Width + Y?
  29. Re: how can i get the GDI+ declaration functions\types?

    ok.. i need understand: what is the difference between trapezoid and parallelogram shapes?
    PctTop is what? the start position? i need understand the start positions and their width's for i use the ...
  30. Re: how can i get the GDI+ declaration functions\types?

    the points() are the filled shaped coordinates
  31. Re: how can i get the GDI+ declaration functions\types?

    i found the big problem: everyone can make their own types\enums\consts names... and if i'm not prepared for it, i can make some problems.
    is there anyway for we detect these type of errors?

    now...
  32. Re: how can i get the GDI+ declaration functions\types?

    wow.. the DrawImage():

    Private Function DrawImage(FileName As String, hDC As Long, x As Long, y As Long) As Boolean
    On Error Resume Next
    Dim GDIsi As GDIPlusStartupInput, gToken As Long,...
  33. Re: how can i get the GDI+ declaration functions\types?

    "OutOfMemory : Indicates that the operating system is out of memory and could not allocate memory to process the function call"
  34. Re: how can i get the GDI+ declaration functions\types?

    status = GdipLoadImageFromFile(StrPtr(filename), hBitmap)
    MsgBox CStr(status)
    i get '3'
  35. Re: how can i get the GDI+ declaration functions\types?

    On Error GoTo 0
    Call GdipCreateFromHDC(Me.hdc, hGraphics)
    If hGraphics Then
    Call GdipLoadImageFromFile(StrPtr(filename), hBitmap)
    If hBitmap Then
    MsgBox "hey"...
  36. Re: how can i get the GDI+ declaration functions\types?

    Private Sub DrawPlane(Position As Position3D, size As Size3D, Rotation As Angle3D, WorldSize As Size3D)
    Dim Points(4) As POINTAPI
    Dim NewPoint As POINTAPI
    Dim NewPosition3D(4) As...
  37. Re: how can i get the GDI+ declaration functions\types?

    passel that's why i'm using the GDI+, but seems that you have right: i don't understand what i'm missing... sorry.
    i did i new function that works draw an image:

    Private Function...
  38. Re: how can i get the GDI+ declaration functions\types?

    thank you so much for all
    now how can i learn using that functions?
    i have a C\C++ tutorial\pdf from MSDN, but they have some differences from C\C++ to VB6.
    i need understand, for now, the...
  39. how can i get the GDI+ declaration functions\types?

    how can i get the GDI+ declaration functions\types?
    i have find these module: https://github.com/tannerhelland/pd2D/blob/master/src/GDIPlus.bas
    but some types are missed :(
    for now, i only need...
  40. Replies
    109
    Views
    96,665

    Re: [VB6] GDI+ Usage & Samples

    LaVolpe where can i see the GDIPlus functions declarations for VB6?
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Click Here to Expand Forum to Full Width