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الكود
كود:
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الكود
كود:
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!")تحميل السورس كود لبرنامجي تبع تغيير الايقونة
و الان تحميل السورس
انتهى
التعديل الأخير بواسطة المشرف:
