[zinom]

أساتذتي الكرام

الكود التالي لفتح صفحة معينة عن طريق InputBox

لكنه يفتح لي الصفحة رقم ا دائما

PHP كود :

Dim x As Integer = InputBox("اكتب رقم الصفحة", "ادخال", "اكتب رقم الصفحة هنا")
        Dim page As Integer = x
        If page > 0 Then
            Process.Start("C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe", "/A " & Chr(34) & "page=x" & Chr(34) & " " & Chr(34) & "C:\kofa.pdf" & Chr(34))
        End If 


اريد فتح الصفة التي تكتب في InputBox

بارك الله فيكم

الرجاء دائما ارفاق مثال بالموضوع (لتسهيل الامر علي من يريد المساعده)

   موقع الإقتباس

طلبك استاذي الكريم

التعديلات التي تمت علي المثال

2- تيكست بوكس من اجل
أ- رقم الصفحه المراد فتحها
ب_ مسار /إسم الملف المراد فتحه

1 - باتون من اجل تنفيذ الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'Page Number

       Dim MyPageNumber As Integer = CInt(TextBox1.text)

       'Acrobat Reader Path

       Dim AcrobatReaderPath As String = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"

       'Pdf File Name

       Dim PdfFileName As String = "\serial-port-vb.pdf"

       'Open Page

       Shell(AcrobatReaderPath & " /A Page=" & MyPageNumber & " " & Application.StartupPath & PdfFileName, AppWinStyle.MaximizedFocus)
   End Sub