کمک در استفاده از تکست باکس

[HackersKing]

با سلام من در خواندن متن از تکست باکس مشکل دارم
این یه قسمت از برنامه من است که کد حاصل را در تکست باکس 1 میریزد

Dim d As String
Textbox1.Text=d
مقداریست که از رجیستری خوانده میشود d
خروجی درتکست باکس به صورت زیر است :

information1
information2
information3

حالا اگه من بخوام خط اول خروجی رو در قسمت دیگه برنامه فرا بخونم چی ؟
و همینطور خط دوم؟

[hossein-khoshseyar]

Dim str() As String = Data.Split(Chr(13))


اگه رشته خودت رو توی یک متغیر به اسم دیتا بزاری
اون وقت دستور بالا اون رو به یک آرایه رشته تبدیل می کنه که با اینتر از هم جدا شده باشن

[HackersKing]

Dim str() As String = Data.Split(Chr(13))


اگه رشته خودت رو توی یک متغیر به اسم دیتا بزاری
اون وقت دستور بالا اون رو به یک آرایه رشته تبدیل می کنه که با اینتر از هم جدا شده باشن

ممنون میشه بیشتر راهنمایی کنین
در اصل یه قسمت از کد من به صورت زیر است

Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\project1\pattern\", True)
Dim d As String



من میخوام این برنامه تمام ساب کی های
قسمت اول رو خوانده و در قسمت دوم بزاره
مثل یک حلقه یا دستور for
یعنی یه جوری این دوتا باهم تلفیق بشند

نمیدونم تونستم منظورم رو برسونم؟

[HackersKing]

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

[hossein-khoshseyar]

بگو میخ.ای چیکار کنی تا راهنماییت کنم
این طوری که تو کد نوشتی ممکنه خیلی ها حوصله نداشته باشن که کد تو رو بخونن و مشکلت رو حل کنن

گفتی یه رشته داری که با اینتر از هم جدا شده. چطوری می تونی اوا رو از هم تفکیک کنی که من هم دستورش رو برات نوشتم
حالا اگه تو این زمینه مشکل داری یا سئوالت یه چیز دیگست بفرما تا پاسخت رو بدم

[ali_najari]

دوست عزيز اگر Multiline در Textbox فعال باشه شما ميتونيد شماره خط رو بدهيد و مقدار اين خط را نمايش دهيد


TextBox1.Lines(LineNumber).Tostring

براي استفاده از كد بالا بايد Multiline مربوط به TexBox را معادل True قرار دهيد.
فقط دقت كنيد كه بايد بجاي عبارت LineNumber شماره سطر مورد نظر رو بنويسيد
نكته دوم اينكه شماره گذاري سطر ها از 0 شروع ميشود

بعنوان مثال براي بدست آوردن مقدار سطر اول بايد بصورت زير عمل كنيد:



TextBox1.Lines(0).Tostring

[ali_najari]

Dim str() As String = Data.Split(Chr(13))


اگه رشته خودت رو توی یک متغیر به اسم دیتا بزاری
اون وقت دستور بالا اون رو به یک آرایه رشته تبدیل می کنه که با اینتر از هم جدا شده باشن

دوست عزيز كليد Enter واسه هنگامي كه به سطر بعدي رود تشكيل شده از Chr(13) و Chr(10) هرچند ميشه با Chr(13) جدا كرد

[ali_najari]

دوست عزيز اين هم نمونه برنامه اي كه خواسته بوديد
البته نميدونم كه من درست منظور شما رو فهميدم يا خير ولي به هر حال من كار با ريجستري و كار با lines خود Textbox رو براتون مثال زدم
درصورتي كه منظورتون چيز ديگه اي هست بگيد تا باز نمونه بزارم براتون.

برنامه ابتدا تمام پروفايل هايي كه توسط مسنجر login شدن رو از ريجستري ميگيره و سپس زمان آخرين اتصال آنها را نيز از زير شاخه ي آنها دريافت و در Textbox1 نمايش ميدهد.

شما با انتخاب يك Username از listbox ميتونيد زمان و تاريخ آخريد اتصال آن را در textbox2 مشاهده كنيد و يا با استفاده از كليد get Line Value مقدار سطر مورد نظر خود را مشاهده كنيد!

مسير ريجستري هم عبارتست از: HKEY_CURRENT_USER\Software\yahoo\pager\profiles

64710

[ali_najari]

دوستان اين هم كد دريافت كليه اطلاعات از ريجستري مربوط به yahoo

توي اين كد تمام Subkey هاي آدرس گفته شده در پست قبلي خونده ميشوه و بعد Value مربوط به LastLoginTime خواهنده ميشود.
شما با كمي تغيير ميتونيد اون رو به كد مورد نظر خود دربياريد.


Dim Reg, Reg2 As RegistryKey

Reg = Registry.CurrentUser.OpenSubKey("Software\yahoo\pager\profiles")

For Each valueName As String In Reg.GetSubKeyNames
If valueName <> "Skins" Then
ListBox1.Items.Add(valueName)

Try
Reg2 = Registry.CurrentUser.OpenSubKey("Software\yahoo\pager\profiles" & "\" & valueName)

Dim DT As String() = Split(Reg2.GetValue("LastLoginTime").ToString(), ",")
Dim Date_Time As String = Format(Val(DT(0)), "0000") & "/" & Format(Val(DT(1)), "00") & _
"/" & Format(Val(DT(2)), "00") & " - " & _
Format(Val(DT(3)), "00") & ":" & Format(Val(DT(4)), "00")

If Trim(TextBox1.Text) = "" Then
TextBox1.Text = Date_Time
TextBox3.Text = valueName
Else
TextBox1.Text = TextBox1.Text & vbCrLf & Date_Time
TextBox3.Text = TextBox3.Text & vbCrLf & valueName
End If


Catch ex As Exception
MsgBox(Err.Description)
End Try

End If
Next