فراخوانی مقدار 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]

سلام دوست عزیز
Untitled.jpg

[ILYA20]

سلام دوست عزیز
Untitled.jpg

سپاس از شما

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

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

[hamidrezax1]

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

[ILYA20]

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

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

بذارید روشن کنم
این شکل فرم ما :
download (20).png

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

 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 اضافه میکنه

سپاس از زحمات شما عزیز