addimage don't load picture?

Discussion in 'Questions (Windows Mobile)' started by tvrman, Sep 2, 2007.

  1. tvrman

    tvrman Member Licensed User

    hello below doesn't load the picture ??

    A1.Add(AppPath & "\" & r)
    AddImage("Panel1",image ,0,row, 120, 120)
    Control(image).image= A1.Item(0)

    it works like below

    Control(image).image= "image1.jpg"

    also tried which also not works

    picture = Apppath & "\" & "image.jpg"

    Control(image).image= picture


    did i miss something?

    cheers
     
  2. agraham

    agraham Expert Licensed User

    Yes, the quotes around the control name!

    Control("image1").image= "image.jpg"
     
  3. tvrman

    tvrman Member Licensed User

    This has been done because image = variable it contains the picture
    object like image1 image2 ....

    i'm having problems with the picture name image.jpg which seems cannot
    be put in a variable.

    cheers
     
  4. specci48

    specci48 Well-Known Member Licensed User

    Hi tvrman,

    I tried the following small code and it works:
    Code:
    Sub Globals
    End Sub

    Sub App_Start
    r = 
    "Img1.gif"
    A1.Add(AppPath & 
    "\" & r)
    r = 
    "Img2.gif"
    A1.Add(AppPath & 
    "\" & r)
    r = 
    "Img3.gif"
    A1.Add(AppPath & 
    "\" & r)
    For i = 0 To A1.Count - 1
       
    image = A1.Item(i)
       row = i * 
    100
       AddImage(
    "Form1"image0, row, 5050)
       
    Control(image).image= A1.Item(i)
    Next
       Form1.Show
    End Sub
    What have you done different to this code?


    specci48
     
  5. agraham

    agraham Expert Licensed User

    Sorry, I misunderstood the problem. However the following works fine on my system. Form1 is totally blank to begin with.
    Code:
    Sub App_Start
       Form1.Show
                 
    image="image1" ' missed this line originally
       AddPanel("Form1","Panel1",0,0,100,100)
       r = 
    "image.jpg"
       AddArrayList(
    "A1")
       A1.Add(AppPath & 
    "\" & r)
       AddImage(
    "Panel1",image ,0,row, 120120)
       
    Control(image).image= A1.Item(0)
    End Sub

    EDIT: Opps - missed a line out. Intriguingly it worked without the variable "image" being assigned anything!
     
    Last edited: Sep 3, 2007
  6. tvrman

    tvrman Member Licensed User

    Hi guys

    it works!!!

    c = StrIndexOf (r ,".jpg",0)
    If c = -1 Then
    AddLabel("Panel1", "'" & Label & "'" ,0,row, 800, 15, r)
    Else
    AddArrayList("A1")
    A1.Add(AppPath & "\" & r)
    AddImage("Panel1",image ,0,row, 420, 120)
    Control(image).image = A1.Item(0)
    row = row + 45

    End If


    I have made an terrible mistake, i read an file and compaire each row
    i the row contains .jpg then put an image on the panel and show it
    because the image was one wich i have taken in 3 mega pix (high res) and the size of it, i saw only one part of the picture and that one was one of the
    left upper corner wich was only black (grey) i though it didn't load the picture at all, stupid me..

    :sign0013::sign0148:
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice