Skip to main content

#EvdeKal


Yazdıklarınızı Ters Çevirsin

Yazdıklarınızı Ters Çevirsin

#1
bunun için formumuza 2 adet textbox 1 tane command button eklememiz ve formumuza aşağıdaki kodu yapıştırmamız yeterli.

ör: textbox1'e ERKAN yazıyorsunuz butona tıklayınca NAKRE olarak çeviriyor. çok işe yaramaz ama belli mi olur belki lazım olur Halay

Kod:
Private Sub Command1_Click()



Dim i



i = 0



Do Until i = Len(Text1.Text) 'Text1 deki karekter sayisi kadar Fonksiyonu calistir



i = i + 1



a = Right(Text1.Text, i) 'sagdan i ninci karekteri Al



b = Left(a, 1) ' Aldigin Metinin ilk karekterden sonra sil



Text2.SelText = b 'sirasiyla Yaz



Loop 'Fonksiyon kapanisi



End Sub

Private Sub Form_Load()

End Sub

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
harfelere bu kadar işgence günahtır erkan. strreverse kullan.
textbox1.text=strreverse("erkan")
tek satır
[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]
Cevapla
#3
ya bide devamsızlk takip proqramı olsa ne iyi olur Lol
Cevapla
#4
Nuriye Hanım
Lütfen mesajınızı konuyla ilgili bir yere yazınız. Sitemizde arama yaparsanız mutlaka devamsızlık takibi ile ilgili örnekler bulacaksınız. Bu mesajın yeri burası değil ama..
İnadına, ille de Accesstr.net...
Cevapla
#5
bu kodlar v.stud. 2005 için değil sanırım kodlarda sorun gösteriyor..öylemi acaba??
Cevapla
#6
kodlar VB6 içindir.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da