AccessTr.neT

Tam Versiyon: Dosya Açma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba Arkadaşlar,

Merak Ettiğim Bir Konu Var.
Formda Bir TextBox Ve Bir Buton Var. Textboxda Adres Yazacak Örnek:"C:\Users\kubilay\Pictures\ka.png" Aç Butonu Dediğinde İse *.png dosyaları nerde açılıyorsa orada açılacak.Mesala *.txt Dosyası Metin Editörlerinde, *.bmp Dosyaları Resim Editörlerinde... Nasıl Bir Yol İzlemeliyim?
Kubilay Kardeşim;
Burada shell fonksiyonunu kullanıyoruz. Bu fonksiyon komutayı geçici olarak Windowsa devrediyor. O da eğer kendisinde tanımlıysa ilişkili programı seçip açıyor.
Buton'un click yordamına aşağıdaki kodları yaz ve dene.
Dim shell_app As Object
Set shell_app = CreateObject("Shell.Application")
shell_app.Open "" & textbox.Value
Set shell_app = Nothing
Sn. Hayri16,
İlginiz İçin Tesekkur . Verdiğiniz Kodlar Çalışmakta. Yalnız Ben Bu Şekilde de Yaptım Sorunsuz Çalışmakta. Tekrar Tesekkur

Imports System.Diagnostics.Process
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Process.Start(TextBox1.Text)
End Sub
End Class
Sayın [Resim: Moderator.png]ler Konuyu Taşıyabilirsiniz... Img-grin Img-grin