Visual Basicte Text Editörü Hazırlama

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
spectacuLar
Kilobyte2
Kilobyte2
Mesajlar: 370
Kayıt: 21 Eyl 2006, 18:04
cinsiyet: Erkek

Visual Basicte Text Editörü Hazırlama

Mesaj gönderen spectacuLar » 02 Mar 2007, 16:25

Kod: Tümünü seç

Private Sub Command1_Click() 'command1 e(yani B ye) tıklandıgında
If Text2.FontBold = False Then 'eger yazdıgımız yazılar kalın degilse
Text2.FontBold = True 'Kalınlastır
Else 'eger kalınsa
Text2.FontBold = False 'inceltiver :)
End If 'sartı kapat
End Sub

Private Sub Command2_Click() 'Command2 ye (yani I ya) tıklandıında
If Text2.FontItalic = False Then 'eger yazılar italic degilse
Text2.FontItalic = True 'italic yap
Else 'italikse
Text2.FontItalic = False 'normal ya
End If 'sartı kapat
End Sub

Private Sub Command3_Click() ' Command 3 e (yani U ya) tıklandıgında
If Text2.FontUnderline = False Then 'eger yazımızın altı çizili degilse
Text2.FontUnderline = True 'yazıların altını çiz
Else 'altı çiziliyse
Text2.FontUnderline = False 'normal yap
End If 'sartı kapat
End Sub

Private Sub Command4_Click() 'buna isim vermeyi unuttum :D neyse
'command4 e tıklandıgında
Text2.FontSize = Text1 'yanındaki yazmakutucugundaki(textbox) degeri al ve text2 nin yazı büyüklügüne esitle
End Sub



Cevapla