• Home
 · 
• Windows System Services
 · 
• KOSOVA-Strings. This code helps you find the strings in textboxes

KOSOVA-Strings. This code helps you find the strings in textboxes

KOSOVA-Strings. This code helps you find the strings in textboxes

API Declarations


"""""""it doesnt contain declarations""""""""""" just put a textbox called Text1 in form and a button called Command1



Rate KOSOVA-Strings. This code helps you find the strings in textboxes

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

dim kosova,kosovari,titulli
titulli = "Find the word that you want"
kosova = inputbox (titulli)
kosovari = instr(text1,kosova)
if kosovari then
 text1.setfocus
text1.selStart = kosovari -1
text1.selLength = len (kosova)
msgbox "The text that you were looking for is found"
   end if
End Sub