• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This code will help to convert the textcase from ucase to lcase character by character on click of

This code will help to convert the textcase from ucase to lcase character by character on click of

This code will help to convert the textcase from ucase to lcase character by character on click of a button "Like if u type "AbCdE" it will

API Declarations


dim s,s1 as string




Rate This code will help to convert the textcase from ucase to lcase character by character on click of

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'PLACE 2 TEXTBOXES & A COMMAND BUTTON 
'DURING THE RUN TIME TYPE THE TEXT IN 
'TEXT BOX NO.1 & THEN CLICK THE BUTTON
'THIS WILL CONVERT THE TEXTCASE 

command1_click()
dim i as integer
dim s,s1 as integer

s1=""
for i =1 to len(text1)
s=mid(text1,i,1)
if Asc(s)<64 or Asc(s)> 91 then
s=Ucase(s)
else
s=Lcase(s)
endif
s1=s1 & s
Next i
text2=s1

End Sub