Common dialog nesnesi ve Action Kodları

23/04/2011, 15:24

Coskun0559

Common dialog nesnesi ve Action Kodları ektedir

Private Sub Command1_Click()
c1.Action = 1 'Dosya Aç
End Sub

Private Sub Command2_Click()
c1.Action = 2 'Farklı Kaydet
End Sub

Private Sub Command3_Click()
c1.Action = 3
Text1.BackColor = c1.Color 'Renk paletini aç ve text1 arkaplan rengini değiştir
End Sub

Private Sub Command4_Click()
c1.Action = 4 'yazı Tipleri
End Sub

Private Sub Command5_Click()
c1.Action = 5 'yazıcılar
End Sub
23/04/2011, 15:41

emturker

Paylaşım İçin Teşekkürler coskun_cakal Hocam
23/04/2011, 18:50

life_exciting

Eline Sağlık Hocam,Paylaşım İçin Teşekkürler.
23/04/2011, 18:57

ercansahin

Paylaşım İçin Teşekkürler.
24/04/2011, 08:15

benremix

(23/04/2011, 18:50)lifeexciting yazdı: Eline Sağlık Hocam,Paylaşım İçin Teşekkürler.

Saygılar....