kod şu şekilde;
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Resim Dosyası Aç"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Jpg Dosya(*.jpg)|*.jpg|Bütün Dosyalar(*.*)|*.*"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
End Sub
Private Sub Command3_Click()
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture(Text2.Text)
End Sub
çıkış saatine denk geldi tam detaylı yapamadım ama çözeceğiniz şekilde yaptım
veri tabanını "respath" diye bi alan ekledim ve resmin yolunu kaydettirdim.
form açılıca text2 deki resim yolunu alıyor ve resmi picture nesnesine load yapıyor
adodc nin response yordamına aynı kodu yazman gerekli
kolay gelsin
deneme_coskun.rar
(Dosya Boyutu: 31,07 KB | İndirme Sayısı: 68)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
#1
