|
bikin objectnya:
text1
text2
command1
paste coding ini di command1
---
Private Sub Command1_Click()
Dim x As
Integer
For x = 1 To Len(Text2.Text)
If LCase(Mid(Text2.Text, x, 1)) = LCase(Text1.Text)
Then
MsgBox
"True"
Exit
Sub
End If
Next
For x = 1 To
Len(Text2.Text)
If LCase(Mid(Text2.Text, x, 1)) <>
LCase(Text1.Text) Then
MsgBox
"False"
Exit
Sub
End If
Next
End Sub
---
mudah2an membantu
Salam,
Budi S
Subject: [Programmer-VB] Cari Huruf di
Text Box
Hallo Friends,
Mau tanya neah, untuk
mencari huruf yang ada di text box function nya
gmana yah ?
Misal :
1. Di text1 isinya : jakarta
2. saya akan cari huruf b pada text1 maka
hasil False
3. saya akan cari huruf j pada text2 maka hasil
true
nah... mungkin ada teman2 yg bisa bantu ... untuk buat logika atau
function nya.
Terima Kasih.
Untuk keluar dari
millis ini, kirim email kosong
ke:
[EMAIL PROTECTED]
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
--------------------
* LEGAL DISCLAIMER *
--------------------
This message is for information purposes only and its content should not be construed as an offer, or solicitation of an offer,to buy or sell any product or services and no representation or warranty is given in respect of its accuracy, completeness or fairness. The material is subject to change without notice. This message may contain confidential or legally privileged material and may not be copied, redistributed or published (in whole or in part) without our prior written consent.
This email may have been intercepted, partially destroyed, arrive late, incomplete or contain viruses and no liability is accepted by any member of the Martha Tilaar Group as a result. If you are not the intended recipient of this message, please immediately notify the sender and delete this message from your computer.
|
