PDA

View Full Version : حرفه ای: چگونه جابه جا کردن متن ها درون یک تکس باکس بدون حساس بودن به بزرگی و کوچکی حروف ؟



maxtools
پنج شنبه 26 اسفند 1389, 01:09 صبح
با سلام

چطور میشه جابه جا کردن متن ها درون یک تکس باکس بدون حساس بودن به بزرگی و کوچکی حروف ؟

مثلا این کد حساسه
چطور حساس نباشه ؟



Dim a As String
a = Replace(Text1.Text, "s", "qqqqqqqqqqq")
MsgBox (a)

parselearn
پنج شنبه 26 اسفند 1389, 02:33 صبح
جا به جا <> جايگزين

بهتره قبل از طرح سوال جستجو كنيد. سريعتره!
آرگومان 6 تابع Replace را برابر vbTextCompare قرار دهيد


a = Replace("Samf", "s", "qqqqqqqqqqq", , , vbTextCompare)