[hassan]

السلام عليكم


شباب في كود تعبت وانا احول ادوره ما لقيته


الكود هو


انا عندي ملف exe في الرسورس ابي استخرجة الى ملف محدد انا احدده


ما هو هذا الكود ورجاء شرح الكود

عشان انا توني مبتدئ في هاذي الاشياء وحاب افهم وش معنه كل كود


وشكرا اتمنى احد يجاوبني

[vbnet]

(27-04-14, 04:32 PM)hassan كتب : ...انا عندي ملف exe في الرسورس ابي استخرجة الى ملف محدد انا احدده
...

مثال على السريع........
(ملاحظة: طبعاً عند استعراض عناصر الريسورس باستخدم My.Resources لا يظهر نوعها مثل exe أوjpg وهكذا، ولكن أنت =المبرمج= من يعلم ذلك)

كود :

' يقوم بحفظ العنصر من الريسورس في اسم الملف المحدد مع مساره
IO.File.WriteAllBytes("C:\program.exe", My.Resources.program)

[vbnet]

-
إذا كنت تريد تحديد مكان الحفظ عن طريق مربع حوار هذا مثال على السريع...

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار
    Dim sv As New SaveFileDialog

    ' نحدد له الأنواع التي عليه استعراضها
    sv.Filter = "Programs (*.exe)|*.exe"

    ' نحدد له اسم ملف مبدئي الى حين تغييره
    sv.FileName = "program.exe"

    ' هنا هل تم الضغط على موافق في مربع الحوار
    If sv.ShowDialog = Windows.Forms.DialogResult.OK Then

        ' يقوم بحقظ العنصر من الريسورس في اسم الملف الذي تم اختياره مع المسار
        IO.File.WriteAllBytes(sv.FileName, My.Resources.program)

    End If

End Sub

[hassan]

الللللللللللللللللللللللللللللللف شكر لك يا vbnet انت انسان مبدع وشكرا على خذا الشرح وعلى هذا الكود شكرااااااا شكراااااا ويعطيك العافيه



وخليك في المنتدى دايم احتاجك في الاكواد هههههههههههههههه



ما قصرت كفيت ووفيت

[3efoo]

كود مفيهوش غلطه
جزاك الله خير