earse+erse
دوشنبه 22 شهریور 1389, 14:28 عصر
من این کد رو برای خواندن و نشوت درون یک فایل متنی با دسترسی ترتیبی نوشتم ولی میخوام این کد رو شما طوری تغییر بدین تا بشه با وارد کردن یک عدد در InputBox مشخصات اون خط درون شی های فرم قرار بگیره
دقیقا باید اینجای کد رو تغییر بدین:
Private Sub Command2_Click()
Dim s As String
mTextStream.ReadLine 'میخوام این جا بگم که مثلا فقط خط دو رو بخونه
wichNum = InputBox("number?", "wich number?")
s = mTextStream2
End Sub
می خوام خطی که شماره ی درون wichNum وارد شده درون s ریخته بشه ولی با کد بالا هر دفعه که روی دکمه کلیک میشه به ترتیب خط ها از بالا به پایین خونده میشن.
یه کمکی اگه به من بکنین متشکر میشم
دقیقا باید اینجای کد رو تغییر بدین:
Private Sub Command2_Click()
Dim s As String
mTextStream.ReadLine 'میخوام این جا بگم که مثلا فقط خط دو رو بخونه
wichNum = InputBox("number?", "wich number?")
s = mTextStream2
End Sub
می خوام خطی که شماره ی درون wichNum وارد شده درون s ریخته بشه ولی با کد بالا هر دفعه که روی دکمه کلیک میشه به ترتیب خط ها از بالا به پایین خونده میشن.
یه کمکی اگه به من بکنین متشکر میشم