[Black Rain]

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)

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

 

[BurakH.]

Ellerine Sağlık güzel bilgiler

 

[Redefine]

Teşekkürler adaş ^^