AccessTr.neT

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

Paylaşım İçin Teşekkürler coskun_cakal Hocam

Eline Sağlık Hocam,Paylaşım İçin Teşekkürler.

Paylaşım İçin Teşekkürler.

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

Saygılar....