تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
صنع صوره خاصة
#1
كيف يمكن صنع صوره خاصة لى ملف مثلآ زى اى برتمج اغانى بيتم تصطيبة يتم تحويل صوره ملفات الصوتية الى صوره البرنامج مثلآ برنامج صور يتم تحويل صوره الصور الى شكل البرنامج فهل يمكن تغير صوره الملف ؟
الرد }}}}
تم الشكر بواسطة:
#2
أخوي انا ما فهمت وش المطلوب
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟
الرد }}}}
تم الشكر بواسطة:
#3
Easy 4ever كتب :أخوي انا ما فهمت وش المطلوب
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟
مثل الصوره التى بى المرفق اضافه صوره خاصة لى ملف


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#4
أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه

أنظر إلى الرابط التالي
الرد }}}}
تم الشكر بواسطة:
#5
Easy 4ever كتب :أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه

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

شكرآ اخى لاكن لم يعمل الكود للاسف !
الرد }}}}
تم الشكر بواسطة:
#6
مبتدئ كتب :شكرآ اخى لاكن لم يعمل الكود للاسف !
الكود بالفجوال بيسك 6 يجب تحويله الى vb.net
الرد }}}}
تم الشكر بواسطة:
#7
المعذره أخي لم أركز في الكود

أنظر لهذا الموضوع
الرد }}}}
تم الشكر بواسطة:
#8
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
الرد }}}}
تم الشكر بواسطة:
#9
تأكد أخي من هذا الإجراء

PHP كود :
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button3.Click

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

MsgBox("تم الاعداد بنجاح")
End Sub 
جرب وعطنا خبر
الرد }}}}
تم الشكر بواسطة:
#10
Easy 4ever كتب :تأكد أخي من هذا الإجراء

PHP كود :
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button3.Click

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

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

اعطانى نفس الخطئ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Tongue [سؤال] هل اجد مدرب يعطيني دورة خاصة في C# بمقابل مادي عزف الخواطر 2 49 07-11-16, 11:54 PM
آخر رد: عزف الخواطر
  [VB.NET] إضافه نص الي صوره بحيث يكون اسفل الصوره بدون استقطاع اي جزء منها جوري 4 166 31-10-16, 08:56 PM
آخر رد: جوري
  كيف التحقق من صوره اذا كانت نفس الصورة ام لا Mohamed20 4 157 06-08-16, 03:55 PM
آخر رد: Mohamed20
  [VB.NET] طلب تخزين صورة فى Mysql خاصة بإستضافة وإعادة عرضها فى Picure Box EliteSword 2 222 26-03-16, 06:06 PM
آخر رد: عدنان الشمري
  [VB.NET] صوره لخطأ لم أعرف لها سبب adel27 9 302 28-02-16, 11:04 AM
آخر رد: adel27
  [سؤال] عرض صوره عشوائيه وتظليلها مع بيت شعر الـ ـجارح 13 808 14-02-16, 01:13 AM
آخر رد: hassan
Sad [VB.NET] ممكن مساعدة خاصة بل winforms themes AkraM Fouad 0 210 08-08-15, 06:52 PM
آخر رد: AkraM Fouad
  [VB.NET] ممكن كود وضع صوره بخلفيتهم الفورم ابوثامر 3 413 29-07-15, 05:26 PM
آخر رد: khodor1985
  [كود] كود خاصة ب ال CheckBox x7rBI 5 789 17-03-15, 08:22 PM
آخر رد: سعود
  [كود] ابي كود خاصة بصيغة .bat x7rBI 1 361 15-03-15, 07:18 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم