Programalama > VISUAL BASIC

Option Explicit
Dim satir, metin

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Metin Dosyası Seçiniz"
CommonDialog1.Filter = "*.txt"
CommonDialog1.Action = 1
MsgBox CommonDialog1.FileName

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, satir
metin = metin + Chr(10) + Chr(13) + satir
Loop
Close #1
Text1.Text = metin
'Text1 = loadfile(CommonDialog1.FileName)
End Sub

Private Sub Form_Load()

Dim a
'Ekran fontlarını combo1 içine ekle
For a = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(a)
Next
Combo1.ListIndex = 0 'ilk elemanı seç

'8-76 arası rakamları combo2 içine ekle
For a = 8 To 100
Combo2.AddItem a
Next
Combo2.ListIndex = 0 'ilk elemanı seç
End Sub

Private Sub Combo1_click()
'seçilen font adını text kutusuna uygula
Text1.FontName = Combo1.Text
End Sub

Private Sub Combo2_click()
'seçilen font boyunu text kutusuna uygula
Text1.FontSize = Combo2.Text
End Sub


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CommonDialog1.ShowColor
If Button = 1 Then 'sol tuşu basılı ise
Text1.ForeColor = CommonDialog1.Color
Else
Text1.BackColor = CommonDialog1.Color
End If
End Sub