Shell32.dll ile işlerimizi kolaylaştıralım / XP tarzı Klasör

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Shell32.dll ile işlerimizi kolaylaştıralım / XP tarzı Klasör

Mesaj gönderen mayhemious » 13 Nis 2008, 20:37

Resim
Tesadüfen kesfettigim bir konuyu paylasayım dedim.. simdi bir çogumuz klasöre gözat pencereleri vardırya hatta yeni klasör butonu olanından bu pencereyi yapmak için veya word,Excel v.s dosyalarını açmak, web sayfası açmak, mail göndermek için modül, birden fazla satırlı apiler felan biliyoruz.. eger sizde böyle yapıyorsanız, o zaman sasıracaksınız… sadece bu degil apilerle v.s yapılan birçok win islemini tek satırda yapabiliriz.. Aklınıza gelen her türlü dosyayı açmak içinde birebir.. deneyin ve görün..
Formumuza 9 adet buton, 2 adet textbox ekleyelim. text2 nin mulnitine özelligini true ve scrollbars özelligini vertical yapalım. daha sonra asagıdaki kodu yapıstırıp satır satır inceleyelim

Option Explicit
Dim opt As New Shell
Dim klasor As Folder

Private Sub Command1_Click()
On Error Resume Next
Set klasor = opt.BrowseForFolder(hWnd, "İste klasöre gözat penceresi, yeni klasör butonlusundan ", 1)

'eger sadece istediginiz bir dizinten itibarenki klasörleri göstermek istiyorsanız
'Set klasor = opt.BrowseForFolder(hWnd, "İste klasöre gözat penceresi, yeni klasör butonlusundan ", 1, "C:\windows\")


With klasor.Items.Item
Text1.Text = .Path 'Text1 klasörün yolu text 2 özellikleri
Text2.Text = "İsim: " & .Name & vbCrLf & _
"Klasör Türü: " & .Type & vbCrLf & _
"Konum: " & .Parent & vbCrLf & _
"Son Degisiklik: " & .ModifyDate & vbCrLf
End With
End Sub

Private Sub Command2_Click()
opt.ControlPanelItem "inetcpl.cpl" 'internet seçeneklerini açar
'desk.cpl 'masaüstü özellikleri
'sysdm.cpl 'sistem özellikleri
'appwiz.cpl 'program ekle kaldır
'daha fazlası için windows\system32 de *.cpl diye aratın

End Sub

Private Sub Command3_Click()
opt.Open "c:\bel1.doc" 'ahada word dosyası açıyo
'Opt.open “c:\rifocan.xls”
'Opt.open “c:\rifocan.reg” v.s

End Sub

Private Sub Command4_Click()
opt.FindFiles 'dosya arama penceresi
End Sub

Private Sub Command5_Click()
opt.FileRun 'çalıstır penceresi
End Sub

Private Sub Command6_Click()
opt.Open "http://www.google.com" 'varsayılan browserda internet sitesi açıyoruz
'opt.Open "mailto:rifaterdemir@hotmail.com" 'varsayılan programda mail atıyoruz
'opt.Open App.Path 'klasör açıyoruz
End Sub

Private Sub Command7_Click()
opt.SetTime 'zaman ayarı
End Sub

Private Sub Command8_Click()
opt.MinimizeAll 'Tüm pencereler minimize
End Sub

Private Sub Command9_Click()
If MsgBox("Windows u kapatacak mısınız?", 32 + 4) = vbNo Then Exit Sub
opt.ShutdownWindows 'Windowsu kapat
End Sub

kodlar alıntıdır. Ders düzenlemesi bana aittir



Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28504
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Mesaj gönderen velociraptor » 13 Nis 2008, 21:08

eline saglik myhem :)
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
tasiyici
Megabyte3
Megabyte3
Mesajlar: 1438
Kayıt: 23 Şub 2008, 19:26
cinsiyet: Erkek
Konum: Quick Step Cycling Team
İletişim:

Mesaj gönderen tasiyici » 23 Nis 2008, 00:47

eline saglık abi çok güzel anlatım viual ile ilgili bilgileri topluyorum sayende çok saglam bir program yazmayı düsünüyorum
ALAYINA İSYAN ÖLÜMÜNE SORDUM.COM!!
LAFI KARILAR PAYLAŞIMI SORDUM.COM YAPAR!!!
MESAJIM VAR RUTBEM VAR SORDUMCUYUM HAVAM VAR!!!

Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 23 Nis 2008, 13:06

@tasıyıcı çok hızlı gitme eger niyetin ögrenmekse. yavas yavas ve saglam git :)

Cevapla