|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  TextBox içerisindeki Kelimelerin İlk Harflerini Büyük Yapmak | ||||||||||
|
(#1)
|
|||||||||
|
Üye
 
Mesaj Sayısı: 923
Açtığı Konu: 551
Level: 27 [  ]Paylaşım: 130 / 651
Üyelik tarihi: Nov 2007
Kullanıcı No: 191658
Nerden: STARHACk.ORG'dan
Tecrübe Puanı: 38
REP Puanı : 364
REP Seviyesi :
 |
TextBox içerisindeki Kelimelerin İlk Harflerini Büyük Yapmak -
05-08-2008
Public Function AutoType(c As Control, KeyAscii As Integer) As Integer
AutoType = KeyAscii If KeyAscii > 95 And KeyAscii < 123 Then If c.SelStart = 0 Then AutoType = AutoType - 32 ElseIf Mid$(c.Text, c.SelStart, 1) < "!" Then AutoType = AutoType - 32 End If End If End Function Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = AutoType(Screen.ActiveControl, KeyAscii) End Sub |
|||||||||
|
||||||||||
 | ||||||||||
|
|
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
