كود نافذة الالوان + كود حفظ الملف + كود فتح نموذج اخر

[القيصر]

كود نافذة الالوان + كود حفظ الملف + كود فتح نموذج اخر




كود نافذة الالوان


If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
textbox.ForeColor = ColorDialog1.Color
End If


((لازم ندرج اداة الالوان حتى يشتغل الكود))




​

كود حفظ الملف

SaveFileDialog1.Filter = "text files(*.txt)|*.txt"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, T1.Text)
FileClose(1)
End If


((لازم ندرج اداة االحفظ حتى يشتغل الكود))







​
كود فتح نموذج اخر

كود:

Dim s As New Form2
s.Show()
وممكن هنا نختصر هذا الكود
ونكتب اسم الفورم اللي نبي نربطه (نفتحه)



كود:
1
form2.show


​
كود نافذه الخطوط

If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Txetbox.Font = FontDialog1.Font
End If



((لازم ندرج اداة االخطوط حتى يشتغل الكود))





​



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


كود:

ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Style = ProgressBarStyle.Marquee
ProgressBar1.MarqueeAnimationSpeed = 100