[RESOLVED] 2 questions

[jullaras]

Hello again

This time my mind want to create a picture browser
i have written this code

cdl.Filter = "Picture Files(*.Jpg,*.Gif,*.Bitmap)|*.Jpg;*.Gif;*.Bitmap"
cdl.DialogTitle = "Open File"
Form1.Picture1.Picture = (cdl.FileName)
and it is not working
what does it need ?

Let's go to the next question
when i write code like this
IF A=Tom then
MsgBox"dfsdf"
END IF
IF A= Jerry then
MsgBox"DSFdsf"
end if
when i write Jerry it doesn't working
what is the couse of the problem ?

Thanx in advance

[dark_shadow]

in your first example your missing the
cdl.open to show the dialog box
and try this for your second question

IF A=Tom then
MsgBox"dfsdf"
elseIF A= Jerry then
MsgBox"DSFdsf"
end if
now a question to you: are jerry and tom varables?

[jullaras]

First i forgot it but i wrote it and nothing happedn there is something to do with filename because it tells Type mismatch
For your question no i put random names
but i 'll be pleased if you answer to my question
ok ?

[shirazamod]

If Jerry and Tom aren't variables then they require inverted commas around them, ie:

IF A="Tom" then
MsgBox"dfsdf"
END IF
IF A= "Jerry" then
MsgBox"DSFdsf"
end if

[bushmobile]

you can also use a Select Case construct to make it easier to follow:

Select Case A
    Case "Tom"
        MsgBox "dfsdf"
    Case "Jerry"
        MsgBox "sdfadf"
End Select

[jullaras]

Danke
Thanx
Ευχάριστω

This is the only languages to tell thanx

[shirazamod]

If your problem is solved then please click 'Thread Tools' > 'Mark Thread Resolved'
Thanks!

[jullaras]

the 1 question is ok the other one still remains

[bushmobile]

you need to call .ShowOpen to show the dialog box:

cdl.Filter = "Picture Files(*.Jpg,*.Gif,*.Bitmap)|*.Jpg;*.Gif;*.Bitmap"
cdl.DialogTitle = "Open File"
cdl.ShowOpen
Form1.Picture1.Picture = LoadPicture(cdl.FileName)

[jullaras]

thanxs
i am going to set it to solved now