[مبتدئ]

كيف يمكن صنع صوره خاصة لى ملف مثلآ زى اى برتمج اغانى بيتم تصطيبة يتم تحويل صوره ملفات الصوتية الى صوره البرنامج مثلآ برنامج صور يتم تحويل صوره الصور الى شكل البرنامج فهل يمكن تغير صوره الملف ؟

[Easy4ever]

أخوي انا ما فهمت وش المطلوب
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟

[مبتدئ]

Easy 4ever كتب :أخوي انا ما فهمت وش المطلوب
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟

مثل الصوره التى بى المرفق اضافه صوره خاصة لى ملف

[Easy4ever]

أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه

أنظر إلى الرابط التالي

[مبتدئ]

Easy 4ever كتب :أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه

أنظر إلى الرابط التالي

شكرآ اخى لاكن لم يعمل الكود للاسف !

[3amo]

مبتدئ كتب :شكرآ اخى لاكن لم يعمل الكود للاسف !

الكود بالفجوال بيسك 6 يجب تحويله الى vb.net

[Easy4ever]

المعذره أخي لم أركز في الكود

أنظر لهذا الموضوع

[مبتدئ]

Easy 4ever كتب :المعذره أخي لم أركز في الكود

أنظر لهذا الموضوع

شكرآ اخى
لاكن يوجد مشكله بلا الكود هى

كود :

W.regwrite("HKCR\" & E, Extension & " File")

هذا الكود كامل

كود :

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Public Class Form1
    Inherits System.Windows.Forms.Form
    Sub NewFileType(ByRef ProgramPath As String, ByVal Extension As String _
    , ByRef FileIcon As String, ByRef Description As String)
        Dim W As Object
        Dim E As String
        W = CreateObject("Wscript.shell")
        If VB.Left(Extension, 1) <> "." Then
            E = "." & Extension & "\"
        Else
            E = Extension & "\"
            Extension = Mid(Extension, 2)
        End If
        W.regwrite("HKCR\" & E, Extension & " File")
        W.regwrite("HKCR\" & Extension & " File\", Description)
        W.regwrite("HKCR\" & Extension & " File\DefaultIcon\", FileIcon)
        W.regwrite("HKCR\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1")
        W.regwrite("HKCR\" & Extension & " File\Shell\", "Open")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim co As New ColorDialog
        If co.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.RichTextBox1.SelectionColor = co.Color
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s As New SaveFileDialog
        s.Filter = " ملفات مفكرة أنس(ans)|*.ans"
        If s.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.RichTextBox1.SaveFile(s.FileName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        NewFileType((Application.ExecutablePath), ("ans") _
        , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))


        MsgBox("تم الاعداد بنجاح")

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Trim(VB.Command()) <> "" Then
            If VB.Right(Trim(VB.Command()), 3) = "ans" Then
                If Dir(Trim(VB.Command())) <> "" Then
                    Try
                        RichTextBox1.LoadFile(Trim(VB.Command()))
                    Catch ex As Exception
                        Try
                            RichTextBox1.LoadFile(Trim(VB.Command()))
                        Catch eh As Exception
                            Me.RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(Trim(VB.Command()))
                        End Try
                    End Try
                End If
            End If
        End If
    End Sub
End Class

[Easy4ever]

تأكد أخي من هذا الإجراء

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")

End Sub 


بحيث انك لم تقم بإدخال مسار البرنامج وضغت فقط Application.ExecutablePath اكمل المسار بإضافة علامة & ومن ثم بين علامتي تنصيص أدخل \ ومن ثم اسم البرنامج ومن ثم نقطه ومن ثم exe سيكون الكود كتالي.
لأنفرض ان اسم البرنامج هو GGG

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath & "\GGG.exe"), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")
End Sub 


جرب وعطنا خبر

[مبتدئ]

Easy 4ever كتب :تأكد أخي من هذا الإجراء

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")

End Sub 


بحيث انك لم تقم بإدخال مسار البرنامج وضغت فقط Application.ExecutablePath اكمل المسار بإضافة علامة & ومن ثم بين علامتي تنصيص أدخل \ ومن ثم اسم البرنامج ومن ثم نقطه ومن ثم exe سيكون الكود كتالي.
لأنفرض ان اسم البرنامج هو GGG

PHP كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

NewFileType((Application.ExecutablePath & "\GGG.exe"), ("ans") , ("C:\Users\kkkkkkkkk\Downloads\myico.ico"), ("C:\Users\kkkkkkkkk\Desktop"))

MsgBox("تم الاعداد بنجاح")
End Sub 


جرب وعطنا خبر

اعطانى نفس الخطئ