Anasayfa > Kodlar > Visual Basic 6 ile ülkelerin alfabasini göstermek

Visual Basic 6 ile ülkelerin alfabasini göstermek


Text'te Çin alfabesinin görünmesini ister misiniz veya Japon alfabesi.

alf=alfabe
arab alf = csArabic
baltıc = csBaltic
yunan alf = csGreek
çin = csTraditionalChinese
??? = csHebrew
çin = csSimplifiedChinese
???= csWestern
??? = csHangeul
japon alf = csJapanese
??? = csJohab
??? = csThai
çin = csChineseBIG5
??? = csShiftJIS
rus alf = csRussian
vietnam alf = csVietnamese
normal alf(bilgisayar alf)= csDefault
türk alf= csTurkish

Örnek::::
2 listbox ekle 2. nin adını "d" koyunuz
1 de text ekle

Private Sub d_Click()
Text1.Font.Name = d.Text
End Sub

Private Sub Form_Load()
Dim c(16)
For a = 0 To 255
Text1.Text = Text1 & Chr(a)
For f = 0 To Screen.FontCount - 1
d.AddItem Screen.Fonts(f)
Next
c(0) = csArabic
c(1) = csBaltic
c(2) = csGreek
c(3) = csTraditionalChinese
c(4) = csHebrew
c(5) = csSimplifiedChinese
c(6) = csWestern
c(7) = csHangeul
c(8) = csJapanese
c(9) = csJohab
c(10) = csThai
c(11) = csChineseBIG5
c(12) = csShiftJIS
c(13) = csRussian
c(14) = csVietnamese
c(15) = csDefault
c(16) = csTurkish
For s = 0 To 16
List1.AddItem c(s)
Next
End Sub

Private Sub List1_Click()
Text1.Font.Charset = List1.Text
d.Font.Charset = List1.Text
End Sub

 


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: