Kayıt Tarihi: 26.09.2009
Toplam 9 konu açtı.
Toplam 18 yorum yaptı.
Toplam
0
puanı bulunmakta.
Beğeniler: 0 / 0
Selam arkadaşlar;
Şimdi amacımız 2 kelime arasındaki ortak harfleri bulmak.
3 tane textbox ve bir düğme var.
textbox1 e bir kelime yazıyoruz örneğin "Ankara"
textbox2 ye ise "Azerbeycan" yazdık diyelim.. Düğmeye basınca textbox3'e aşağıdaki gibi veri alabilir miyiz?
textbox3= "a,n,r"
Yani ortak harfler..
Sevgi ve saygılar.
Kayıt Tarihi: 09.02.2009
Toplam 45 konu açtı.
Toplam 2.185 yorum yaptı.
Toplam
24
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 3
09-10-2009, 20:30
(En son düzenleme: 10-10-2009, 09:25 adnanyurdakul.)
Sayın Muhsingil
Visual Basic
Private Sub Komut16_Click()
Dim yazımız, varmı As String
If Len(Me.Metin10) > 0 And Len(Me.Metin12) > 0 Then
For i = 1 To Len(Me.Metin10)
a = Mid(Metin10, i, 1)
varmı = InStr(Metin12, a)
If varmı > 0 And i = 1 Then yazımız = a
If varmı > 0 Then
If InStr(yazımız, a) < 1 And i > 1 Then
yazımız = yazımız & "," & a
End If
End If
Next
Metin14 = yazımız
Else
MsgBox " İlk iki text kutusunu Boş Bırakmayınız"
End If
End Sub
Teşekküre gerek yok, Taş atın yeter!!!
Kayıt Tarihi: 09.02.2009
Toplam 45 konu açtı.
Toplam 2.185 yorum yaptı.
Toplam
24
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 3
Teşekkürler Sayın Berkant ve Madmax
