{Öncelikle Formumuza 1 Adet textbox Kutusu ve 2 adet button ekliyoruz commondialog nesnesinide ekliyoruz eklemek için tolbox'a sağ tıklıyarak commoponents'itıklıyoruz visual basic common dialog 6.0 aktif edip tamam diyiyoruz formumuza commondialog nesnesini ekliyoruz }



Private Sub Form_Load()

Command1.caption="Yazı büyüklüğünü Ayarla"

Command2.Caption="Renk Ayarla"

End Sub

Private Sub Command1_Click()

a = InputBox("Yazı Büyüklüğünü Giriniz")

Text1.Font.Size = a

End Sub

Private Sub Command2_Click()

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.Color

End Sub





kadirhan gürtürk

admin@gakkosfm.com