Gözat İletişim Kutusu Açtırma
-
herkese slmlar... "gözat" kutusuyla bilgisayarın içeriğini görüntülemek ve yalnızca benim
belirleyeceğim formata sahip dosyaların seçiebilmesini istiom... bunu nasıl yapabilirim...
bi de seçilen dosyanın ismini nası alabirim... -
hoja ilk once form'a command ekle...sonra components'den Microsoft Common Dialog Control 'u ekle...sonra form'a comman dialog'u ekle...
aşağıdaki kodlari bide...normal olarak,hehehe :))
Private Sub Command1_Click()
Dim sFile As String
With CommonDialog1
.DialogTitle = "Open"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "All Files (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
'ToDo: add code to process the opened file
End Sub
yukardaki *.* yerine *.jpg veya istedigin dosya tipini yaz iste, oyle kafana gore takıl....
hadi kolay gelsin.....


-
Sağolasın çok işime yaradı...
-
eywalla dostum saol
Toplam Hit: 2136 Toplam Mesaj: 4
