Konu: VFP form içinde dilbert
Web kontrol içinde radikal gazetesinin günlük karikatürlerini gösterir.
Test amacıyla yapışmıştır.
Visual Fox Pro
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