‏windows 8

New member


اقدم لكم شرح عمل برنامج تغيير الايقونة
بسيط جدا


النتيجة

نبدا علي بركة الله

1 / - نفتح الفيجوال .net

2 / - نضيف تلاتة Button و 2 من TextBox

3 / - نضيف هده الاكواد التالية :


في Button1 لتحديد السيرفر
الكود
كود:
OpenFileDialog1.DefaultExt = "exe"
OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox1.Text = String.Empty
TextBox1.Text = OpenFileDialog1.FileName
End If
في Button2 لتحديد الايقونة
الكود
كود:
OpenFileDialog1.DefaultExt = "ico"
OpenFileDialog1.Filter = "icon files (*.ico)|*.ico"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox2.Text = String.Empty
TextBox2.Text = OpenFileDialog1.FileName
End If
في Button3 لتغيير الايقونة
الكود
كود:
If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

Dim oIconFilenathu As New IconFile(TextBox2.Text)
Dim groupIconResource As GroupIconResource = oIconFilenathu.ConvertToGroupIconResource()
groupIconResource.SaveTo(TextBox1.Text)
ProgressBar1.Value = ProgressBar1.Value + 1000
MsgBox("Icon Changed Successfully!")

تحميل السورس كود لبرنامجي تبع تغيير الايقونة

و الان تحميل السورس



انتهى :rolleyes:
 

التعديل الأخير بواسطة المشرف:

المواضيع المشابهة


رد: شرح برمجة عمل برنامج " تغيير الايقونة " بالصور بالدوت نت

اخي انت متاكد من الاكواد في اخطاء لا تعد
 


رد: شرح برمجة عمل برنامج " تغيير الايقونة " بالصور بالدوت نت

ما اتوقع يرد عليكم

A4q6D.bmp
 


رد: شرح برمجة عمل برنامج " تغيير الايقونة " بالصور بالدوت نت

بارك الله بيك يا مبدع وسلمت يمناك استمر يا غالي على ابداعك
 


رد: شرح برمجة عمل برنامج " تغيير الايقونة " بالصور بالدوت نت

اتمنى من كل اخ لما ينزل موضوع يتابع ردود الاخوة الاعضاء لانو صراحة بمعظم المواضيع توجد مشكلة بالبرمجة او الاكواد لو الاخوة اصحاب المواضيع يتابعود ردود الاعضاء بالمواضيع حيتم اصلاح المشاكل لكم للاسف مفيش تواصل
 


رد: شرح برمجة عمل برنامج " تغيير الايقونة " بالصور بالدوت نت

يعطيك الف عافيه يا وحش .~

من يومك ملك .~َ
 


انا كلووو تمام بس عطني في
في Button3 لتغيير الايقونة
الكود غلط الكود
 

عودة
أعلى