VFP form içinde dilbert

public oform7,purl1,purl2,purl3

purl1="http://www.radikal.com.tr/ozel_resim.php?yol=veriler&resim_tarih="

purl2=tarmark(dtoc(date(),1))

purl3="&dosya=dilbert.gif&resim_baslik=Dilbert"

oform7=createobject("DILBFORM1")

oform7.addobject("oweb","cweb")

oform7.addobject("DTP1","dtPicker")

oform7.addobject("OBX1","CBX1")

oform7.show()

oform7.tara()

return

 

define class dilbform1 as form

    top=0

    left=0

    height=670

    width=770

    name="DILBform1"

    showwindow=2

    caption="DILBERT"

    procedure tara

        ccc=m.purl1+m.purl2+m.purl3

        thisform.oweb.navigate(ccc)

    endproc

enddefine

 

define class dtpicker as olecontrol

    oleclass="MSComCtl2.DtPicker.2"

    top=640

    left=670

    height=24

    width=90

    visible=.t.

    anchor=12

    procedure change

        m.purl2=tarmark(dtoc(oform7.dtp1.object.value,1))

        thisform.tara()

    endproc

enddefine

 

define class cbx1 as combobox

    top=640

    left=560

    width=100

    anchor=12

    visible=.t.

 

    procedure init

        with this

            .additem("Dilbert")

            .additem("Garfield")

            .additem("Cathy")

            .additem("tehlikeli")

            .additem("Ademler ve Havvalar")

            .value="Dilbert"

        endwith

    endproc

    procedure click

        do case

            case this.value="Dilbert"

                purl3="&dosya=dilbert.gif&resim_baslik=Dilbert"

            case this.value="Garfield"

                purl3="&dosya=garfield.gif&resim_baslik=Garfield"

            case this.value="Cathy"

                purl3="&dosya=cathy.gif&resim_baslik=Cathy"

            case this.value="tehlikeli"

                purl3="&dosya=tehlikeli.gif&resim_baslik=tehlikeli"

            case this.value="Ademler ve Havvalar"

                purl3="&dosya=adem.gif&resim_baslik=Ademler ve Havvalar"

        endcase

        thisform.tara()

    endproc

enddefine

 

define class cweb as olecontrol

    visible=.t.

    oleclass="shell.explorer.2"

    top=10

    left=10

    height=620

    width=750

    anchor=15

enddefine

 

procedure tarmark (ii)

    return left(ii,4)+"/"+substr(ii,5,2)+"/"+substr(ii,7,2)

endproc