Results 1 to 4 of 4

Thread: [SOLVED] Image display question

  1. #1

    Thread Starter
    Hyperactive Member phrozeman's Avatar
    Join Date
    Apr 2000
    Location
    Netherlands
    Posts
    442

    [SOLVED] Image display question

    Hello folks,

    Please take a look at the image below, how can i get the white corners transparent?

    Thanks in advance!
    Attached Images Attached Images  
    Last edited by phrozeman; Nov 7th, 2002 at 05:41 AM.
    There's a certain mystique when I speak, that you notice that it's sorta unique, cause you know it's me

  2. #2
    Banned Michael_Kamen's Avatar
    Join Date
    May 2001
    Location
    The Netherlands
    Posts
    1,180
    use MicroAngelo

  3. #3

    Thread Starter
    Hyperactive Member phrozeman's Avatar
    Join Date
    Apr 2000
    Location
    Netherlands
    Posts
    442
    i know how to get them transparent in a Imaging application, but after using them in vb they aint transparent anymore

    I seen a piece of code before, but i can't find it
    There's a certain mystique when I speak, that you notice that it's sorta unique, cause you know it's me

  4. #4

    Thread Starter
    Hyperactive Member phrozeman's Avatar
    Join Date
    Apr 2000
    Location
    Netherlands
    Posts
    442
    VB Code:
    1. Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
    2. Private Sub Form_Load()
    3.     'KPD-Team 1999
    4.     'URL: [url]http://www.allapi.net/[/url]
    5.     'E-Mail: [email][email protected][/email]
    6.     Picture1.AutoSize = True
    7.     'API uses pixels
    8.     Picture1.ScaleMode = vbPixels
    9.     Picture2.ScaleMode = vbPixels
    10. End Sub
    11.  
    12. Private Sub Picture2_Paint()
    13.     DoEvents
    14.     TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite
    15. End Sub

    Found an API for it
    There's a certain mystique when I speak, that you notice that it's sorta unique, cause you know it's me

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width