Buton yardımı ile forma resim eklemek

[yoolgezer]

Merhaba arkadaşlar,

Arkadaşlar Buton yardımı ile forma resim ekleme sistemini bir türlü yapamıyorum. benzer konuları okuyorum, uyguluyorum olmuyor hata veriyor.
sizden ricam nasıl yapıldığını görüntülü olarak anlatabilirmisiniz.

form kısmında ad, soyad ve gözat butonuna tıkladığımda resim yüklensin istiyorum herhangi bir kişiye.!

 

[simendifer]

sevgili kardeşim bende sizin gibi resim ekleme konusunda çok zorlandım sizin gibi ama sonunda başardım sayın modalı hocamızın yardımlarıyla onu takip etmenizi öneririm
sorunuzu çözdüm araçlar makro visualbasıc denetleyici tools da referanslar var orda microsoft office 11.0 object library eklemeniz lazım butonların tıklandıgında olay yordamında ki kodları inceleyin ayrıca taploda resim adında bir alan oluşturmuşsunuz ve özelliğini sayı yapmışsınız sayı olmaz metin olması lazım bunları iyi inceleyiniz

 

[yoolgezer]

Merhaba yardımlarınız içn teşekkürler,
gönderdiğiniz ekteki dosyayı indirdim. fakat Form2'ye tıkladığımda açmaya çalıştığımda hata veriyor, bende hata penceresini ekledim bakın isterseniz.

 

[modalı]

Sayın yoolgezer,

Sayın simendifer ne yapmanız gerektiğini anlattı. Uygulamanızda referans eksikliği var.

Formu tasarım görünümünde açın, kod yazma penceresini etkinleştirin, menü çubuğunda Tools menüsünden References... i tıklayın ve uygulamanızın referanslarına göz gezdirin. Eğer Solunda missing yazılı referans var ise onayını kaldırın ve uygulamayı kapatıp tekrar açın.

Tekrar hata alıyorsanız refaransların içinde M icrosoft office 1X.0 object library ın olup olmadığını kontrol edin yoksa listeden arayıp ekleyin. Uygulamanızı kapatıp tekrar çalıştırın.

İyi çalışmalar

 

[acy06]

Eklediğim Resimler Kayboluyor

Sayın Modalı;

Sizin vermiş olduğunuz resim ekleme kodlarını kendi programıma uyguladım. Çok teşekkür ederim.

Sorunum şu eklediğim resimleri başka bir klasörden çağırıyorum. Programı başka bir bilgisayarda açtığımda resimler yok oluyor. Sebebi ne olabilir. Programı ekliyorum... Bir bakabilirmisiniz...

Şimdiden teşekkürler.

 

[hsntvsnl]

Merhaba paylaşım için teşekkürler

Benim sorum gözat penceresi açıldığı zaman mesala

C:\deneme\deneme klasörünü açmasını istiyorum

yardımlarınızı bekliyorum

 

[modalı]

Merhaba paylaşım için teşekkürler

Benim sorum gözat penceresi açıldığı zaman mesala

C:\deneme\deneme klasörünü açmasını istiyorum

yardımlarınızı bekliyorum

Sayın hsntvsnl,

Sub getFileName()
    ' Displays the Office File Open dialog to choose a file name
    ' for the current employee record.  If the user selects a file
    ' display it in the image control.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select Employee Picture"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![ad].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub

Kodundaki

.InitialFileName = CurrentProject.path

satırını

.InitialFileName = C:\deneme\deneme

olarak değiştirin.

İyi çalışmalar

 

[hsntvsnl]

Sayın Modalı,

Yardımlarınız için teşekkür ederim