Eklenecek nesneler;
check1(kalın), check2(eğik), check4(altı çizgili)
option1(sola), option2(ortaya), option3(sağa)
combo1(yazı tipi), combo2(yazı boyutu), combo3(zemin rengi), combo4(yazı rengi)
text1(yazı buraya yazılacak)
command1(büyük harf), command2(küçük harf)
check1(kalın), check2(eğik), check4(altı çizgili)
option1(sola), option2(ortaya), option3(sağa)
combo1(yazı tipi), combo2(yazı boyutu), combo3(zemin rengi), combo4(yazı rengi)
text1(yazı buraya yazılacak)
command1(büyük harf), command2(küçük harf)
Kod:
Private Sub Check1_Click()
Text1.FontBold = Check1.Value
'If Check1 = 1 Then
'Text1.FontBold = True
'Else
'Text1.FontBold = False
'End If
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value
'If Check2 = 1 Then
'Text1.FontItalic = True
'Else
'Text1.FontItalic = False
'End If
End Sub
Private Sub Check3_Click()
Text1.FontUnderline = Check3.Value
'If Check3 = 1 Then
'Text1.FontUnderline = True
'Else
'Text1.FontUnderline = False
'End If
End Sub
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Combo2.Text
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "Kırmızı" Then Text1.BackColor = &HC0&
If Combo3.Text = "Mavi" Then Text1.BackColor = &HFF0000
If Combo3.Text = "Pembe" Then Text1.BackColor = &HFF00FF
If Combo3.Text = "Yeşil" Then Text1.BackColor = &HFF00&
If Combo3.Text = "Siyah" Then Text1.BackColor = &H0&
If Combo3.Text = "Turuncu" Then Text1.BackColor = &H80FF&
If Combo3.Text = "Mor" Then Text1.BackColor = &HFF8080
If Combo3.Text = "Sarı" Then Text1.BackColor = &HFFFF&
If Combo3.Text = "Beyaz" Then Text1.BackColor = &HFFFFFF
End Sub
Private Sub Combo4_Click()
If Combo4.Text = "Kırmızı" Then Text1.ForeColor = &HC0&
If Combo4.Text = "Mavi" Then Text1.ForeColor = &HFF0000
If Combo4.Text = "Pembe" Then Text1.ForeColor = &HFF00FF
If Combo4.Text = "Yeşil" Then Text1.ForeColor = &HFF00&
If Combo4.Text = "Siyah" Then Text1.ForeColor = &H0&
If Combo4.Text = "Turuncu" Then Text1.ForeColor = &H80FF&
If Combo4.Text = "Mor" Then Text1.ForeColor = &HFF8080
If Combo4.Text = "Sarı" Then Text1.ForeColor = &HFFFF&
If Combo4.Text = "Beyaz" Then Text1.ForeColor = &HFFFFFF
End Sub
Private Sub Form_Load()
With Combo1
.Clear
.AddItem "Arial"
.AddItem "Comic Sans Ms"
.AddItem "Times New Roman"
.AddItem "Ms Sans Serif"
.AddItem "Ms Serif"
.AddItem "MT Extra"
.AddItem "MV Boli"
.AddItem "panroman"
.AddItem "pristina"
.AddItem "Algerian"
End With
Combo2.AddItem "6"
Combo2.AddItem "8"
Combo2.AddItem "9"
Combo2.AddItem "10"
Combo2.AddItem "12"
Combo2.AddItem "14"
Combo2.AddItem "16"
Combo2.AddItem "18"
Combo2.AddItem "20"
Combo2.AddItem "24"
Combo2.AddItem "28"
Combo2.AddItem "36"
Combo2.AddItem "48"
Combo2.AddItem "72"
With Combo3
.Clear
.AddItem "Kırmızı"
.AddItem "Mavi"
.AddItem "Pembe"
.AddItem "Yeşil"
.AddItem "Siyah"
.AddItem "Turuncu"
.AddItem "Mor"
.AddItem "Sarı"
.AddItem "Beyaz"
End With
With Combo4
.Clear
.AddItem "Kırmızı"
.AddItem "Mavi"
.AddItem "Pembe"
.AddItem "Yeşil"
.AddItem "Siyah"
.AddItem "Turuncu"
.AddItem "Mor"
.AddItem "Sarı"
.AddItem "Beyaz"
End With
Combo1.ListIndex = 2
Combo2.ListIndex = 3
End Sub
Private Sub Option1_Click()
Text1.Alignment = 0
End Sub
Private Sub Option2_Click()
Text1.Alignment = 2
End Sub
Private Sub Option3_Click()
Text1.Alignment = 1
End Sub
Private Sub Command1_Click()
If Len(Text1.SelText) > 0 Then ' If Text1.SelLength > 0 then
Text1.SelText = UCase(Text1.SelText)
Else
Text1.Text = UCase(Text1.Text)
End If
End Sub
Private Sub Command2_Click()
If Len(Text1.SelText) > 0 Then ' If text1.SelLength > 0 then
Text1.SelText = LCase(Text1.SelText)
Else
Text1.Text = LCase(Text1.Text)
End If
End Sub