سه سؤال در مورد Text

[Hassan2500]

سلام

1- چهارتا تکست از 1 تا 4 داریم و چهارتا تکست از 5 تا 8 داریم حالا میخوام هر کدوم از اعداد تکستهای 1 تا 4 بترتیب طبق عدد کوچکتر بعد بزرگتر بره تو تکستهای 5 تا 8

مثال

تکست1: 7
تکست2: 1
تکست3: 16
تکست4: 2

سپس با زدن دکمه کامند بشه

تکست5: 1
تکست6: 2
تکست7: 7
تکست8: 16

2- کدی میخوام که تعداد سطرهای تکست1 رو بشماره و در تکست2 نشون بده

3- این کد رو چطوری خلاصه بنویسم


Private Sub Command1_Click()
Text1(1) = "": Text1(2) = "": Text1(3) = "": Text1(4) = "": Text1(5) = "": Text1(6) = "": Text1(7) = "": Text1(8) = "": Text1(9) = "": Text1(10) = "": Text1(11) = "": Text1(12) = "": Text1(13) = "": Text1(14) = "": Text1(15) = ""
End Sub

[MohammadGh2011]

سلام عليکم

1- چهارتا تکست از 1 تا 4 داریم و چهارتا تکست از 5 تا 8 داریم حالا میخوام هر کدوم از اعداد تکستهای 1 تا 4 بترتیب طبق عدد کوچکتر بعد بزرگتر بره تو تکستهای 5 تا 8

سورس ضميمه شده رو بررسي کنيد.


2- کدی میخوام که تعداد سطرهای تکست1 رو بشماره و در تکست2 نشون بده

اول بايد تعداد کاراکتر يک سطر رو پيدا کنيد و به تعداد همون کاراکتر توي يک متغير يک سطر اضافه کنيد...


3- این کد رو چطوری خلاصه بنویسم

اين کد معني و مفهوم زيادي رو نميرسونه ،خودش خلاصه ست ديگه.:متفکر:






:Attention


ببينيد دوست عزيز شما تقريبا 270 تا پست تاکنون ايجاد کرديد و کلي از اين سوال ها ميپرسيد در حالي که نمونه هاش تو سايت و يا سايت هاي ديگه هست در ثاني همه ي تاپيکهاي ايجاد شده توسط شما عنوانهاي نامناسبي داره مثلا همين فکر ميکنيد اين عنوان براي اين سوال(ها) درسته؟!! طبيعتا نه:

از پرسيدن چند سوال در يک تاپيک خودداري کنيد
اگر کسي سوال اول شما رو داشته باشه بايد توي جستجو چي تايپ کنه!!سه سوال در مورد تکست!!
و اينکه اگر خودتان تلاش کنيد ميتوانيد جواب سوال هاي ساده اي مثل اين سوالها را بدهيد




موفق باشيد دوست عزيز

[محسن واژدی]

سلام علیکم
1- ضمیمه زیر هم بررسی کنید البته کمی پیچیده شده هرچند که نتیجه نهایی را صحیح بر میگرداند اما نمونه آقای قائم پناه بسیار خلاصه تر هست، همچنین برای راحتی کار میتوانید اعداد را در List-Box با خاصیت Sorted=True ریخته و لیست مرتب شده را جدا کنید

3- کد زیر هم بررسی کنید:
Private Sub Command1_Click()
Dim i
For i = Text1.LBound To Text1.UBound
Text1(i) = ""
Next 'i
End Sub

موفق باشید

[Hassan2500]

3- کد زیر هم بررسی کنید:
Private Sub Command1_Click()
Dim i
For i = Text1.LBound To Text1.UBound
Text1(i) = ""
Next 'i
End Sub


آقای واژدی میخوام کاری کنید که فقط (Text1(0 از این کد خارج بشه و کد بالا روش اعمال نشه

در ضمن چه کدی بنویسم که تعداد سطرهای تکست1 شمارده شود و در تکست2 نشون داده بشه منظورم سطرهائی که با اینتر زدن بوجود اومدن

[محسن واژدی]

فقط (Text1(0 از این کد خارج بشه و کد بالا روش اعمال نشه

حلقه را از 1 شروع کنید:
Private Sub Command1_Click()
Dim i
For i = Text1.LBound + 1 To Text1.UBound
Text1(i) = ""
Next 'i
End Sub



چه کدی بنویسم که تعداد سطرهای تکست1 شمارده شود و در تکست2 نشون داده بشه منظورم سطرهائی که با اینتر زدن بوجود اومدن

کد زیر بررسی کنید:
Private Sub Command1_Click()
Text2 = UBound(Split(Text1, vbCrLf)) + 1
End Sub

موفق باشید