تمت الإجابة اختصار هذا الكود

تم تحميل الصفحة في 0,6571644 ثانية
اختصار هذا الكود
الحالة
مغلق و غير مفتوح للمزيد من الردود.

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,364
الإعجابات
5,421
النقاط
223
الإقامة
القاهرة
السلام عليكم ورحمة الله وبركاته

أريد أن اختصر هذا الكود بمتعرف واحد فقط بدل ما اقوم كل شوية بتعريف متغير
يحمل قيمة من ملف داخل الريسورس فهل يجوز

C#:
 Dim black = IO.Path.GetTempPath & "1.exe"
        IO.File.WriteAllBytes(black, My.Resources._1)
        Process.Start(black).WaitForExit()
        Dim sa = IO.Path.GetTempPath & "2.exe"
        IO.File.WriteAllBytes(sa, My.Resources._2)
        Process.Start(sa).WaitForExit()
        Dim f = IO.Path.GetTempPath & "3.exe"
        IO.File.WriteAllBytes(f, My.Resources._3)
        Process.Start(f).WaitForExit()
 
إنضم
18 أغسطس 2016
المشاركات
100
الإعجابات
108
النقاط
43
وعليكم السلام ورحمة الله وبركاته

يمكن وضع الاكواد فى فانكشن ثم استدعائها مثلا..

الفانكشن:
C#:
Public Function OpenFile(ByVal filename As String, ByVal file() As Byte)
        Dim path = IO.Path.GetTempPath & filename
        IO.File.WriteAllBytes(path, file)
        Process.Start(path).WaitForExit()
        Return Nothing
End Function
الاستدعاء:
C#:
  OpenFile("1.exe", My.Resources._1 )
C#:
  OpenFile("2.exe", My.Resources._2 )
وهكذا...

بالتوفيق إن شاء الله
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,364
الإعجابات
5,421
النقاط
223
الإقامة
القاهرة
وعليكم السلام ورحمة الله وبركاته

يمكن وضع الاكواد فى فانكشن ثم استدعائها مثلا..

الفانكشن:
C#:
Public Function OpenFile(ByVal filename As String, ByVal file() As Byte)
        Dim path = IO.Path.GetTempPath & filename
        IO.File.WriteAllBytes(path, file)
        Process.Start(path).WaitForExit()
        Return Nothing
End Function
الاستدعاء:
C#:
  OpenFile("1.exe", My.Resources._1 )
C#:
  OpenFile("2.exe", My.Resources._2 )
وهكذا...

بالتوفيق إن شاء الله
بارك الله فيك أخى الكريم ماشاء الله عليك فعلا نجحت
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل