09-11-21, 10:57 PM
10-11-21, 12:24 AM
فقط استبدل كود
الى
كود :
if vbno Then
Form2.show
Me.hide
End ifالى
كود :
if vbno Then
webbrowser1.navigate("رابط التحديث")
End if10-11-21, 12:25 AM
ممكن توضيح اكتر ايه المطلوب للاسف لم افهم قصدك
10-11-21, 12:03 PM
رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم
10-11-21, 02:54 PM
تفضل
[attachment=27194]
كود :
Dim dir As String = TextBox1.Text
If Directory.Exists(dir) = False Then
MsgBox("عنوان غير صالح")
Exit Sub
End If
Dim SearchPattern As String = TextBox2.Text
Dim paths As String() = Directory.GetFiles(dir, SearchPattern, SearchOption.AllDirectories)
ListBox1.DataSource = paths06-07-22, 12:02 AM
(10-11-21, 02:54 PM)Anas Mahmoud كتب : [ -> ]تفضل
كود :
Dim dir As String = TextBox1.Text
If Directory.Exists(dir) = False Then
MsgBox("عنوان غير صالح")
Exit Sub
End If
Dim SearchPattern As String = TextBox2.Text
Dim paths As String() = Directory.GetFiles(dir, SearchPattern, SearchOption.AllDirectories)
ListBox1.DataSource = paths
اريد بحث عن ملفات اكسل داخل كمبيوتر واستطيع فتح ملف داخل فورا يعني يبحث عن اسم فاتورة واستطيع فتحها