11-07-2009, 18:01
anlamsız konuşmanın bir faydası yok biz nasılki sizin bir kodunuzu kullandığım zaman bu kodda şu kişiden faydalandım diyor isem onu bekliyorum ben gerektiği yerde gereken saygıyı gösteririm aynı şeyin banada yapılmasını isterim modalı arkadaşa gerçekten saygı duyarım ancak belirtmesini beklerdim bu soruna daha önce falanca kişi çözüm getirmişti diye neyse o kadarda önemli değil acrobat readerin nesnesini tabiki ben yapmadım zaten öyle bir şeyde ima etmedim edememde bunu yapan acrobat reader şirketi tabiki sdk sında bunun nasıl kullanılacağınıda gösteriyor ancak şu anda siz öyle bir tavır takındınızki sanki siz kod yazınca activex leride kendiniz yapıyormuş gibi bir tavır içine girdiniz unutmayalım hiç birimize kodlar vahiy ile gelmiyor lazım olunca bir kısmını buluyır bir kısmını kendimiz ekliyoruz
windowsun browser desteği olmasa idi kim herhangi bir klasörden bir nesneyi çağırabilir yada onu form üzerinde gösterebilirdi
neyse uzatmaya gerek yok kodun getfile kısmı microsoft amcaya ait acro kısmı ise acrobat firmasına fakat bu kısım tamamen bana aittir
Private Sub pdfekle_Click()
getFileName
End Sub
Private Sub pdf_AfterUpdate()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub
Sub getFileName()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "pdf", "*.pdf"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![pdf].Value = fileName
Me![SAYI].SetFocus
End If
End With
End Sub
Private Sub Form_Current()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub
windowsun browser desteği olmasa idi kim herhangi bir klasörden bir nesneyi çağırabilir yada onu form üzerinde gösterebilirdi
neyse uzatmaya gerek yok kodun getfile kısmı microsoft amcaya ait acro kısmı ise acrobat firmasına fakat bu kısım tamamen bana aittir
Private Sub pdfekle_Click()
getFileName
End Sub
Private Sub pdf_AfterUpdate()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub
Sub getFileName()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "pdf", "*.pdf"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![pdf].Value = fileName
Me![SAYI].SetFocus
End If
End With
End Sub
Private Sub Form_Current()
If pdf.Value <> " " Then
ACRO.src = pdf.Value
End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub


