فراخوانی مقدار textbox.text داخل کوتیشن

[ILYA20]

با سلام و درود خدمت دوستان

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

مثلا


Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload", "D:\dir\filename"))


ما مقدار آدرس فایل را از textbox.text فراخوانی میکنیم یعنی به این صورت :

Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload", TextBox1.Text))

نیاز هست مقدار text textbox در داخل کوتیشن " " قرار بگیرد اما چیزی که ما فراخوانی کردیم فقط آدرس فایل از textbox.text بوده و آدرس فایل در داخل کوتیشن نیست.

چطور میتوانیم اینکار را انجام بدیم؟

[hamidrezax1]

سلام دوست عزیز
146909

[ILYA20]

سلام دوست عزیز
146909

سپاس از شما

تو پرژه ما دستی ادرس فایل نوشته نمیشه یک دکمه Choose را در نظر بگیرید که با زدن اون فایل دیالوگ باز میشه و فایل انتخاب میشه و به هنگام انتخاب فایل ، آدرس فایل در تکست باکس ذخیره میشه و ما مقدار تکست ، تکست باکس را فراخوانی میکنیم

راهنمایی لطفا

[hamidrezax1]

دوست عزیز اون قسمتی که قرار بخونه بجاش قرار بدید"""&cod&"""

[ILYA20]

دوست عزیز اون قسمتی که قرار بخونه بجاش قرار بدید"""&cod&"""

متاسفانه متوجه منظورتون نشدم :اشتباه:

بذارید روشن کنم
این شکل فرم ما :
146911

این هم دستوراتی که استفاده میکنیم

Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
Dim Ressult As DialogResult
Dim OFfD As New OpenFileDialog With {.Filter = "flashable.zip|*.zip|All Files|*.*"}
With OFfD
Restart: Ressult = .ShowDialog(Me)
If Ressult = vbCancel Then Exit Sub
'If .FileName.Contains(Space(1)) Then
'MessageBox.Show("Your file Or path name has a distance. Please correct the file Or path name you selected And Try again")
'GoTo Restart
'Else
TextBox22.Text = .FileName
TextBox22.Enabled = True
'End If
End With
End Sub


Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click
Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload ", TextBox22.Text))
End Sub
End Class

[hamidrezax1]

شما به جای texbox24.text
"""&textboxe24.text&"""
قرار بدین

[ILYA20]

شما به جای texbox24.text
"""&textboxe24.text&"""
قرار بدین

جواب نمیده خروجی کار
cannot read '&TextBoxsideload.Text&' *

[hamidrezax1]

دوستان باید تا شب بهم اجازه بدید تا به ویژوال دسترسی پیدا کنم و کد رو براتون درست کنم

[hamidrezax1]

دوست عزیز شما دقیقا این کد رو قرار بدین

Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload ", """" & TextBox1.Text & """"))

[ILYA20]

دوست عزیز شما دقیقا این کد رو قرار بدین

Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload ", """" & TextBox1.Text & """"))

خب از همین دستور استفاده کردیم جواب نمیده خروجی کار :



* cannot read '' *

[hamidrezax1]

Private Sub Button54_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button54.Click Dim Ressult As DialogResult
Dim OFfD As New OpenFileDialog With {.Filter = "flashable.zip|*.zip|All Files|*.*"}
With OFfD
Restart: Ressult = .ShowDialog(Me)
If Ressult = vbCancel Then Exit Sub
'If .FileName.Contains(Space(1)) Then
'MessageBox.Show("Your file Or path name has a distance. Please correct the file Or path name you selected And Try again")
'GoTo Restart
'Else
TextBox22.Text = .FileName
TextBox22.Enabled = True
'End If
TextBox22.Text = """" & Me.TextBox22.Text & """"
End With
End Sub




Private Sub Button53_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button53.Click
Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload ", TextBox22.Text))
End Sub

دوست عزیز این رو امتحان کنید

[ILYA20]

Private Sub Button54_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button54.Click Dim Ressult As DialogResult
Dim OFfD As New OpenFileDialog With {.Filter = "flashable.zip|*.zip|All Files|*.*"}
With OFfD
Restart: Ressult = .ShowDialog(Me)
If Ressult = vbCancel Then Exit Sub
'If .FileName.Contains(Space(1)) Then
'MessageBox.Show("Your file Or path name has a distance. Please correct the file Or path name you selected And Try again")
'GoTo Restart
'Else
TextBox22.Text = .FileName
TextBox22.Enabled = True
'End If
TextBox22.Text = """" & Me.TextBox22.Text & """"
End With
End Sub




Private Sub Button53_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button53.Click
Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload ", TextBox22.Text))
End Sub

دوست عزیز این رو امتحان کنید

این اوکی شد .

این مقدار کوتیشن را به اول و آخر textbox اضافه میکنه

سپاس از زحمات شما عزیز :قلب: