+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فك تشفير نص (/showthread.php?tid=40754)
فك تشفير نص - ابو روضة - 15-02-22
السلام عليكم ورحمة الله وبركاته.
لدى تطبيق من الأخ أحمد الله يكرمه اسمه " متصفح الملفات " .
عبارة عن فتح اى درايفر واظهار كل الملفات والفولدرات داخل اداة الويب براوزر.
وعند الدخول لاى مسار يتم وضع المسار داخل التكست بوكس
لكن لو المسار بالعربى بكون اسمه غريب وانا اريده أن يظهر كما هو
وهذا هو الكود كاملاً.
وأعتذر لآنى بعدت جداً الفترة السابقة عن البرمجة.
كود :
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 ClassRE: فك تشفير نص - Taha Okla - 15-02-22
وعليكم السلام ورحمة الله وبركاته
فقط استخدم الكود :
كود :
TextBox1.Text = WebBrowser1.Url.LocalPathRE: فك تشفير نص - ابو روضة - 15-02-22
(15-02-22, 04:25 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
فقط استخدم الكود :
كود :
TextBox1.Text = WebBrowser1.Url.LocalPath
جزاك الله كل الخير أخى الكريم..
فعلا نجحت.