منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
( تم الحل ) ممكن تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=4632)



( تم الحل ) ممكن تعديل هذا الكود - محمد - 30-09-12

كود :
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



( تم الحل ) ممكن تعديل هذا الكود - aiman - 30-09-12

اخي محمد
ماهي وظيفة هذا الكود ؟؟؟
ماهو طلبك من هذا الكود ؟؟
ربما نستطيع التوصل الى حل افضل اذا وضحت اكثر


( تم الحل ) ممكن تعديل هذا الكود - Mr. DotNet - 30-09-12

تفضل اخي الكريم

كود :
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



( تم الحل ) ممكن تعديل هذا الكود - m.sami.ak - 30-09-12

:: تم ايجاد الحل ::