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...