PDA

View Full Version : ايجاد فاصله در كلمات



fanavar
شنبه 24 مرداد 1388, 11:07 صبح
سلام :
آيا راه حلي وجود داره زمانيكه ازرويداد on change استفاده مي كنيم بتوانيم كلمات رابافاصله تايپ كنيم ؟

dadsara
شنبه 24 مرداد 1388, 12:28 عصر
سلام
اگر هدف از این سوال جستجوی عبارت از داخل تکست باکس می باشد
شما بغیر از تکست باکسی که قصد دارید عملیات جستجو یا . . . را روی آن انجام دهید یک تکست باکس دیگر ( نمایش داده نمی شود ) ایجاد کنید و مطابق کد زیر عمل کنید

Dim str As String
str = Text0.Text
Me.Text4.Value = str
text0 فیلدی است که روی آن تایپ می کنید
text4 فیلدی است که محتوی text0 به آن منتقل می شود
در نهایت عمل جستجو از روی str انجام می گیرد

fanavar
شنبه 24 مرداد 1388, 12:50 عصر
يعني بايد دستور جستجو رادر on change text0 بنويسم

dadsara
شنبه 24 مرداد 1388, 13:07 عصر
بله
برای روشن تر شدن موضوع ، اگر صلاح می دانی فقط این قسمت که مشکل داری آپلود کن

fanavar
شنبه 24 مرداد 1388, 13:35 عصر
dadsara عزيز
دستوري كه شما گفتيد روانجام دادم ومحتويات تكست به ديگري منتقل مي شه ولي جهت اينكه عمل جستجو صورت بگيره بايستي انتقال تغييرات به text0 عمل focus صورت بگيره

dadsara
شنبه 24 مرداد 1388, 14:45 عصر
نمونه ضمیمه با استفاده از لیست باکس انجام شد ، فکر می کنم ظاهر فرم اینطوری قشنگ تر است

fanavar
شنبه 24 مرداد 1388, 16:45 عصر
ممنون از نمونه شما
ولي مي خواستم چيزي غير ازليست باكس باشه

dadsara
یک شنبه 25 مرداد 1388, 07:50 صبح
اینهم با استفاده از سابفرم

fanavar
یک شنبه 25 مرداد 1388, 11:45 صبح
باتشكر از dadsara