İnputbox ve dialog penceresi kontrolü

[tamerr89]

İnputbox ve dialog penceresi kontrolü

{Ö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