+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8136)
الصفحات:
1
2
صنع صوره خاصة - مبتدئ - 25-03-13
كيف يمكن صنع صوره خاصة لى ملف مثلآ زى اى برتمج اغانى بيتم تصطيبة يتم تحويل صوره ملفات الصوتية الى صوره البرنامج مثلآ برنامج صور يتم تحويل صوره الصور الى شكل البرنامج فهل يمكن تغير صوره الملف ؟
صنع صوره خاصة - Easy4ever - 25-03-13
أخوي انا ما فهمت وش المطلوب
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟
صنع صوره خاصة - مبتدئ - 25-03-13
Easy 4ever كتب :أخوي انا ما فهمت وش المطلوبمثل الصوره التى بى المرفق اضافه صوره خاصة لى ملف
تبي تغير صورة المجلد ؟
ولا ضيف Icon للبرنامج حقك ؟
ولا تبي تغير شكل البرنامج حقك ( تضيف ثيم ) ؟
ولا تبي تعرض صوره عند تشغيل ملف صوتي ؟
صنع صوره خاصة - Easy4ever - 25-03-13
أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه
أنظر إلى الرابط التالي
صنع صوره خاصة - مبتدئ - 25-03-13
Easy 4ever كتب :أخوي هذا شرح كااامل ووافي لما طلبت مع ميزاد رائعه
أنظر إلى الرابط التالي
شكرآ اخى لاكن لم يعمل الكود للاسف !
صنع صوره خاصة - 3amo - 25-03-13
مبتدئ كتب :شكرآ اخى لاكن لم يعمل الكود للاسف !الكود بالفجوال بيسك 6 يجب تحويله الى vb.net
صنع صوره خاصة - Easy4ever - 26-03-13
المعذره أخي لم أركز في الكود
أنظر لهذا الموضوع
صنع صوره خاصة - مبتدئ - 26-03-13
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 - 26-03-13
تأكد أخي من هذا الإجراء
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
صنع صوره خاصة - مبتدئ - 26-03-13
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
اعطانى نفس الخطئ