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

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

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

مثلا

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

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

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

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

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

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

نقل قول:

---

نوشته شده توسط hamidrezax1

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

---

سپاس از شما

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

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

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

نقل قول:

---

نوشته شده توسط hamidrezax1

دوست عزیز اون قسمتی که قرار بخونه بجاش قرار بدید"""&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

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

نقل قول:

---

نوشته شده توسط hamidrezax1

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

---

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

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

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

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

نقل قول:

---

نوشته شده توسط hamidrezax1

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

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

---

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

* cannot read '' *

    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

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

نقل قول:

---

نوشته شده توسط 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

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

---

این اوکی شد .

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

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