Metin Kutusuna sadece rakam girdirme

CodeDitoR · Yeni Üye Kayıt: 16 Mar 2008 Mesajlar: 1

option exlicit
dim i as integer
Public Sub sayiCtrl(nesne As Object)
On Local Error Resume Next
Dim virgul As Boolean
Dim gelen As String
gelen = nesne.Text
virgul = False
If Not IsNumeric(gelen) Or Mid(gelen, Len(gelen), 1) = "." Then
Dim yeri As Byte
yeri = nesne.SelStart
Dim deger As String
deger = gelen
nesne.Text = ""
For I = 1 To Len(Trim(deger))
If IsNumeric(Mid(deger, I, 1)) Then nesne.Text = nesne.Text + Mid(deger, I, 1)
If virgul = False And Mid(deger, I, 1) = "," Then nesne.Text = nesne.Text + Mid(deger, I, 1): virgul = True

Next
nesne.SelStart = yeri - 1
End If
End Sub
----------------------------------
bu kodu bi module ekleyin
Kullanımı ise
metin kutusunun change olayına
sayiCtrl metinkutusu adı
şeklinde yazmanız yeterli

roseness · Yeni Üye Kayıt: 18 Eyl 2007 Mesajlar: 4

peki bu program parçasını 8. sınıf öğrencisine nasıl anlatırsın hocam. daha çocuklar textbox'ı anlamakta zorluk çekiyorlar.

rtyucel · Süper Üye Kayıt: 30 Ksm 2007 Mesajlar: 1551 Konum: ...

8.sınıflar web uygulamaları mı görüyor Surprised

sedom

VİSUAL BASİC ANLATAM İLKÖĞRETİMCİ VARMI ARAMIZDA Kİ????

britamartis · Site Gezgini Kayıt: 27 Ekm 2008 Mesajlar: 30

İlk hafta 8. sınıflarda bu sene işleyeceğimiz konulardan bahsederken visual basicte oyun yazacağımızı söylemiş bulundum dilimi eşekarısı soksaydı keşke:D Algoritma nedir onu bile bilmiyorlar işimiz zor :S