منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ( تم الحل ) ممكن تعديل هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كود :
Module Module1
    Sub Main()
        Console.WriteLine("  Hello ")
        Dim path = Application.StartupPath + "\s.txt"
        If (System.IO.File.Exists(path)) Then
            Process.Start(path)
        Else
            Console.WriteLine("File Not Found ")
End If
if Process."\s.txt open then
me.hide
form1.show
end if
اخي محمد
ماهي وظيفة هذا الكود ؟؟؟
ماهو طلبك من هذا الكود ؟؟
ربما نستطيع التوصل الى حل افضل اذا وضحت اكثر
تفضل اخي الكريم

كود :
Console.WriteLine("  Hello ")
        Dim path = Application.StartupPath + "\s.txt"
        If (System.IO.File.Exists(path)) Then
            Process.Start(path)
        Else
            Console.WriteLine("File Not Found ")
        End If
        For Each c As Process In Process.GetProcesses
            If c.MainWindowTitle = "s.txt - Notepad" Then
                Me.Hide()
                Form1.Show()
            End If
        Next
:: تم ايجاد الحل ::