AccessTr.neT

Tam Versiyon: Yazdıklarınızı Ters Çevirsin
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
harfelere bu kadar işgence günahtır erkan. strreverse kullan.
textbox1.text=strreverse("erkan")
tek satır
ya bide devamsızlk takip proqramı olsa ne iyi olur Lol
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..
bu kodlar v.stud. 2005 için değil sanırım kodlarda sorun gösteriyor..öylemi acaba??
kodlar VB6 içindir.