[RESOLVED] 2 questions

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

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?

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 ?

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

VB Code:

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

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

VB Code:

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

Danke
Thanx
Ευχάριστω

This is the only languages to tell thanx

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

the 1 question is ok the other one still remains
:(

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

VB Code:

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

thanxs
i am going to set it to solved now