AccessTr.neTVisual Basic 6Visual Basic 6 Örnekleri ve Uygulamaları

Yazdıklarınızı Ters Çevirsin

28/11/2008, 21:36

chopper07

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
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
29/11/2008, 14:57

syrup

harfelere bu kadar işgence günahtır erkan. strreverse kullan.
textbox1.text=strreverse("erkan")
tek satır
13/05/2009, 19:10

nuriyee

ya bide devamsızlk takip proqramı olsa ne iyi olur
13/05/2009, 20:58

mehmetdemiral

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..
13/05/2009, 21:51

melleq

bu kodlar v.stud. 2005 için değil sanırım kodlarda sorun gösteriyor..öylemi acaba??
15/05/2009, 12:09

chopper07

kodlar VB6 içindir.