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

[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

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