1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Mini Word Programı


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    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)
    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
     
  2. BurakH.

    BurakH. Yeni üye rank8

    Kayıt:
    28 Ağustos 2008
    Mesajlar:
    4
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Ellerine Sağlık güzel bilgiler
     
  3. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Teşekkürler adaş ^^