تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فك تشفير نص
#1
السلام عليكم ورحمة الله وبركاته.
لدى تطبيق من الأخ أحمد الله يكرمه اسمه " متصفح الملفات " .
عبارة عن فتح اى درايفر واظهار كل الملفات والفولدرات داخل اداة الويب براوزر.
وعند الدخول لاى مسار يتم وضع المسار داخل التكست بوكس
لكن لو المسار بالعربى بكون اسمه غريب وانا اريده أن يظهر كما هو
وهذا هو الكود كاملاً.
وأعتذر لآنى بعدت جداً الفترة السابقة عن البرمجة.

كود :
Imports System.Text
Imports System.IO
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim fd As New FolderBrowserDialog
       If fd.ShowDialog = DialogResult.OK Then
           TextBox1.Text = fd.SelectedPath
           WebBrowser1.Url = New Uri(fd.SelectedPath)
       End If
   End Sub
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       If WebBrowser1.CanGoBack Then
           WebBrowser1.GoBack()
           TextBox1.Text = WebBrowser1.Url.AbsolutePath
       End If
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If WebBrowser1.CanGoForward Then
           WebBrowser1.GoForward()
           TextBox1.Text = WebBrowser1.Url.AbsolutePath
       End If
   End Sub
   Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
       TextBox1.Text = WebBrowser1.Url.AbsolutePath
   End Sub
End Class
الرد }}
#2
وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود : 
كود :
TextBox1.Text = WebBrowser1.Url.LocalPath

قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}
#3
(15-02-22, 04:25 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود : 
كود :
TextBox1.Text = WebBrowser1.Url.LocalPath



جزاك الله كل الخير أخى الكريم..
فعلا نجحت.
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم