Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

.png support


gizmo1
 Share

Recommended Posts

well png and tiff i believe don't work with eclipse, how ever its possible for it to work with vb6, i found this alpha image thingy on teh internet:
http://files.filefront.com/aicalphaimageocx/;12223284;/fileinfo.html
and i know cyrus used it to support .png. anyways if you can figure it out, can you give me a tut on how to get it working on the sub: sub custommenupicture
cause i did it and my images are blank now  :huh:
Link to comment
Share on other sites

lol, well look at this :P:
```
If casestring = "loadpiccustommenu" Then

        CustomIndex = parse$(1)
        strfilename = parse$(2)
        CustomX = Val(parse$(3))
        CustomY = Val(parse$(4))

        If strfilename = "" Then
        strfilename = "MEGAUBERBLANKNESSOFUNHOLYPOWER"
        End If

        If FileExist(strfilename) = True Then

        frmCustom1.picCustom(CustomIndex).AutoSize = True
              If frmCustom1.picCustom(CustomIndex).LoadImage_FromFile(strfilename) Then
              End If
        frmCustom1.picCustom(CustomIndex).Top = CustomY
        frmCustom1.picCustom(CustomIndex).Left = CustomX
        frmCustom1.picCustom(CustomIndex).Visible = True

        Else

        frmCustom1.picCustom(CustomIndex).ClearImage
        frmCustom1.picCustom(CustomIndex).Visible = False
        End If

        Exit Sub
    End If
```
Link to comment
Share on other sites

I'm not sure if it'll work but just change the number to the one you want so for you it'll be For i = **2** To 3, I guess.. lol I've never tried it.

Private Sub Form_Load()
    Dim i As Long
    Dim Ending As String

    For i = 1 To 3
        If i = 1 Then
            Ending = ".gif"
        End If

        If i = 2 Then
            Ending = ".jpg"
        End If

        If i = 3 Then
            Ending = ".png"
        End If

        If FileExists("GUI\IPConfig" & Ending) Then
            frmIpconfig.Picture = LoadPicture(App.Path & "\GUI\IPConfig" & Ending)
        End If
    Next i
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...