چگونه ميشه label1 = خط دوم يك text

[sinashahab]

سلام
مخواستم بدونم چگونه ميشه label1 = خط دوم يك text رو انجام داد ؟

[f.nabavi]

سلام. فقط در صورتی که دو خط توسط enter از هم جدا شده باشند با کد زیر انجام پذیره، ولی اگر به خاطر طولانی بودن متن به خط پایین رفته باشه نمیشه

a = Split(Text1.Text, vbCrLf)
Label1.Caption = a(1)

[vahid_d_0101]

Dim n As Integer, s() As String, sn As String


Private Sub Command1_Click()
n = 4

s = Split(Text1.Text, vbCrLf)

If UBound(s) >= n - 1 Then sn = s(n - 1)

MsgBox sn

End Sub

[sinashahab]

خوب حالا این چگونه ميشه
label1 = خط سوم يك text

[vahid_d_0101]

خوب بابا کاری نداره که دیگه شما sn رو مساوی لیبل بزار برای خط سوم هم n را برابر 3 بزار

[sinashahab]

از همتون ممنونم

[sinashahab]

خوب حالا این چگونه ميشه
توی text نوشته شده باشه : sina = 123578
بعد توی label بنویسه : 123578
این رو هم توضیح دهید ممنون میشم .

[Alisalari]

خوب حالا این چگونه ميشه
توی text نوشته شده باشه : sina = 123578
بعد توی label بنویسه : 123578
این رو هم توضیح دهید ممنون میشم .


خوب اگر تعداد ارقام هميشه ثابته ، مثلا " 6 كاراكتر آخر عدده ، ميشه :

(label1.caption=right(text1.text,6


اما اگر تعداد رقم ها ثابت نيست ، كد زير رشته رو از اول يك حرف يك حرف چك ميكنه كه اگه
عدد بود اونها رو باهم جمع ميكنه و نهايتا" يه رشته شامل فقط اعداد داخل label به ترتيبي كه تايپ شدن ميده :

""=STRNumber
(For i = 1 To Len(Text1.Text
If IsNumeric(Right((Left(Text1.Text, i)), 1)) = True Then
((STRNumber = STRNumber + (Right((Left(Text1.Text, i)), 1
End If
Next
Label1.Caption = STRNumber


اين كد رو ميتوني تو رويداد Change مربوط به textbox بنويسي .
فايل رو هم گذاشتم.:لبخندساده: