چطوری محتویات text1 رو خالی کنم ؟

[elimiz]

سلام
با چه دستوری متن داخل text1 رو خالی کنم ؟

[mehran901]

text1 = empty
text1.text = ""
text1.text = empty

[SlowCode]

text1 = empty
text1.text = ""
text1.text = empty


سلام
به این صورت هم میشه نوشت، ولی اولی بهتره.

text1.text=vbNullString
text1.text= vbNullChar

[SHD.NET]

text1.text = ""
:لبخند: :لبخند: :لبخند:

:چشمک: \\\موفق باشید ///:چشمک:

[Mr'Jamshidy]

text1.text = ""
:لبخند: :لبخند: :لبخند:

:چشمک: \\\موفق باشید ///:چشمک:

نه دیگه قرارمون این نبود چرا تکراری نوشتی؟

راه اول :بامزه:

Dim txtEmpty As String
txtEmpty = vbNullString
Text1.Text = txtEmpty


راه دوم

Dim txtEmpty As String
txtEmpty = vbNullChar
Text1.Text = txtEmpty


راه سوم

Dim txtEmpty As String
txtEmpty = Empty
Text1.Text = txtEmpty


راه چهارم

Dim txtEmpty As String
txtEmpty = ""
Text1.Text = txtEmpty

[unit001]

اينايي كه دوستان گفتن خيلي سخته!:لبخند:

بيا اينم راحتش:بامزه:

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
SendKeys "{BACKSPACE}"

فقط اين همه زحمت كشيدم راحتشو پيدا كردم تشكر يادتون نره!:چشمک:

[mehran901]

البته فرمایش آقای unit001 رو اینجوری بهتره بیان کنید چون خیلی وقتا Sendkeys به تنهایی خطا میده مثل ویبی من !
و با اجازه اینجوری ساده تر و آسون تر میشه

dim a as object
set a = createobject("wscript.shell")
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
a.sendkeys "{BACKSPACE}"


:بامزه:

[ashkan1234]

همه مهندسا...
میگم یه سوال ساده =2000 تا جواب ساده و پیچیده!
حالا یه سوال سخت=0جواب(حتی پیچیده):کف:
مثلا چطور میشه با وی بی 6، آب یک حوض را خالی کنم(بجای تکست باکس)!؟(هنگ!):متفکر:
مزاج کردم...:دی:چشمک:
ولی انصافا همینطوره!

[mehran901]

بیا پیش خودم قول میدم تو ی دوره فشرده ترمیک کمتر 3 ماه این کارو یاد بگیری البته اگه بخوای آب ی استخر رو خالی کنی! خیلی برنامش راحت تره ... دستور داره ... :D تازه برنامه ویبی 6 صب تا صب میره نون هم میگیره واست این که چیزی نیس
صرفا جهت مزاح

[ashkan1234]

بیا پیش خودم قول میدم تو ی دوره فشرده ترمیک کمتر 3 ماه این کارو یاد بگیری البته اگه بخوای آب ی استخر رو خالی کنی! خیلی برنامش راحت تره ... دستور داره ... :D تازه برنامه ویبی 6 صب تا صب میره نون هم میگیره واست این که چیزی نیس
صرفا جهت مزاح

بلادل ما پول ندالیم از این دوره ها بریم...
این وی بیه یا پسر خاله؟؟(نون بخرم؟چایی بیارم؟(پس پسرخاله است!!!)):متعجب:
:لبخند:

[mehran901]

خواستم بگم مگه پسرخاله شما اینقدر باحاله ؟:d
خوش بحالتون! ههه و درضمن من واسه رضای خدا کار می کنم !! غمت نباشه
واسه این که اسپم نشه اینم ی روش دیگه واسه خالی کردن اون تکست باکسی که 7 8 نفر صبح تاحالا دارن خالیش می کنن :|

dim b$,a
b = Text1.Text
For a = Len(Text1.Text) To 1 Step -1
Mid$(b, a, 1) = " "
Next a
Text1 = b

[SHD.NET]

نه دیگه قرارمون این نبود چرا تکراری نوشتی؟
دیدم همه دارن یه چی می نویسن گفتم ما هم یه چی بنویسیم خالی از لطفا نباشه :لبخند: :قهقهه:


میگم یه سوال ساده =2000 تا جواب ساده و پیچیده!
حالا یه سوال سخت=0جواب(حتی پیچیده)
حالا که حوصلتون سررفت و اینقدر فعالین و به همه این سوالا ج میدین یه سوال می پرسم ببینم کی میتونه ج بده .

فرض کنید ما 80 تا تکست باکس روی فرم داریم ، چجوری با یه حلقه همشونو خالی کنیم ؟؟
اسمش هاشونم به ترتیب اینه :

Text1
Text2
Text3
Text4
......
Text79
Text80


حالا کی جواب میده ؟؟؟ قول میدم خودم تشکرشو بزنم !!!!

[ashkan1234]

خواستم بگم مگه پسرخاله شما اینقدر باحاله ؟:d
خوش بحالتون! ههه و درضمن من واسه رضای خدا کار می کنم !! غمت نباشه
واسه این که اسپم نشه اینم ی روش دیگه واسه خالی کردن اون تکست باکسی که 7 8 نفر صبح تاحالا دارن خالیش می کنن :|

dim b$,a
b = Text1.Text
For a = Len(Text1.Text) To 1 Step -1
Mid$(b, a, 1) = " "
Next a
Text1 = b

منظورم پسرخاله خودم نبود که بلادل(کلاه قرمزی و پسرخاله)
خدا خیرت بده!
منم واسه اینکه اسپم نشه:
واسه خالی کردن آب حوض با وی بی 6
Water.Houz=Empty
فگر کنم دیگه با این پست آخرم بن بشم از سایت برنامه نویس!:افسرده:
دوستان اگه دیدم ندیمتون حلالم کنید...:لبخند:

[unit001]

اين كه كاري نداره!!:بامزه:

Dim Tx As TextBox
For Each Tx In Me
If Left(Tx.Name,4)="Text" Then
If Val(Mid(Tx.Name, 5)) => 1 And Val(Mid(Tx.Name, 5)) <= 80 Then
Tx.Text = ""
End If
End If
Next

[Mr'Jamshidy]

دیدم همه دارن یه چی می نویسن گفتم ما هم یه چی بنویسیم خالی از لطفا نباشه :لبخند: :قهقهه:


حالا که حوصلتون سررفت و اینقدر فعالین و به همه این سوالا ج میدین یه سوال می پرسم ببینم کی میتونه ج بده .

فرض کنید ما 80 تا تکست باکس روی فرم داریم ، چجوری با یه حلقه همشونو خالی کنیم ؟؟
اسمش هاشونم به ترتیب اینه :

Text1
Text2
Text3
Text4
......
Text79
Text80


حالا کی جواب میده ؟؟؟ قول میدم خودم تشکرشو بزنم !!!!

هه هه سوال از این آسون تر نبود؟

Dim cObj As Object
For Each cObj In Me.Controls
If TypeOf cObj Is TextBox Then cObj.Text = ""
Next

به جای
cObj.Text = ""
میتونی از روش هایی که تو پست های قبل گفته شده استفاده کنی

[ashkan1234]

Dim X As Control
For Each X In Me.Controls
If TypeOf X Is TextBox Then
X = ""
End If
Next X
قول دادی تشکر کنی!از منم تشکر کن!!!!:دی:لبخند:

[mehran901]

دمت گرم استاد جمشیدی عزیز.... داشتم با typeof اینت کارو میکردم گیر تو همون cObj In Me.Controls بود ایول

[m2011kh]

اینم یه روش دیگه واسه خالی کردن تکست باکس هه:
dim b$,a
b = Text1.Text
For a = Len(Text1.Text) To 1 Step -1
Mid$(b, a, 1) = Space(1)
Next a
Text1 = b


:لبخند:

[m2011kh]

وای خدا نه به وقتی که هیچ کی جواب نمیده نه به الان که هزار نفر یه همچین سوالی دارن منور میدن.
واقعا جالبه:قهقهه:
:کف:
راستی در مورد جواب آقا مهران و خودم یه نکته بگم در اصل تکست باکس خالی نمیشه فقط به تعداد حروف داخل تکست باکس Space میزاره.
:لبخند:
MMD

[AMIN_SG]

خدا خیرتون بده یکیتون بیاد تو این لینک (http://barnamenevis.org/showthread.php?380198-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D9%82%D8%A7%D8%A8%D9%84%DB%8C%D8%AA-Aero-Glass-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-%D9%88-%D8%AF%D9%88-%D8%B3%D9%88%D8%A7%D9%84%D8%9F) جواب منو بده :لبخند:

[m.4.r.m]

پس من چی من موندم آخه اسپم من موند :قهقهه:

شما می تونی برای خالی کردن داخل تکست باکس این دستور رو استفاده کنی

If Text2.Text <> Empty Then
Text2.Text = ""
Else
Text2.Text = Empty
End If

[alireza6633]

از همه ساده تر txt1.text = " "

[SHD.NET]

پس من چی من موندم آخه اسپم من موند :قهقهه:

شما می تونی برای خالی کردن داخل تکست باکس این دستور رو استفاده کنی

If Text2.Text <> Empty Then
Text2.Text = ""
Else
Text2.Text = Empty
End If

خیلی باحال بود :قهقهه: