‏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:
 

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

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

cooil

Member

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

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


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

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

قاهر اليهود

Very Excellent

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

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

Mr-V!rus

Very Excellent

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

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

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

ف

في Button3 لتغيير

Guest

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

أعلى