Mini Word Programı

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