المشاغب المغربي
Professional
[IMG]https://www.sqorebda3.com/vb/img2013/2013_1374582245_659.png[/IMG]
رأيت أن لمنتدى ليست له [COLOR=DarkOrchid]مكتب[COLOR=DarkOrchid]ة [/COLOR]للأكواد خاص[SIZE=2]ة بهدا لقسم
[/COLOR]وقررت أن [COLOR=Green]أقدم لكم مكتبة جمعتها [/COLOR][COLOR=Indigo]لأكواد [COLOR=Green]فجوال بيسك [/COLOR]متنوعة :SnipeR (37):
[/COLOR][SIZE=2][COLOR=Indigo]نبدأ [COLOR=Green]على [/COLOR]بركة لله يا صقور [/COLOR]
[/SIZE][/SIZE]
كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا
كود وميض الليبل ضع هذا الكود فى التايمر
هذا الكود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم .
أولاً نقوم بإضافة اداة Text Box ونكتب الكود فى الحدث KeyPress
هذا الكود لجعل Text Box يكتب رقم ولا يكتب نص
تشغيل الملفات الصوتية متتالية
شريط التقدم يتحرك مثلما يتحرك لوجو بداية تشغيل ويندوز
لجعل الفورم دوماً في المقدمة
كود لتوليد ارقام عشوائيه اضف تايمر واربعه تكست بوكس وضع الكود التالى فى الفورم تحت التايمر تك وانظر للنتيجه حدد الانترفال للتايمر كما تحب
كود لتوليد لون كل ثانيه اضف تايمر واضبط الانترفال الى 1000 اى ثانيه واحده وضع الكود التالى فى الفورم وانظر للنتيجه
لتغير لون الزر عند مرور الفأرة عليه
الأدوات :button
تحريك الكلمات في عنوان الفورم والتكست
الأدوات :TIMER1+TEXTBOX1
لأظهار تحية عند فتح البرنامج حسب الوقت
وأخيرا :SnipeR (75): إنتهينا أرجو أن أكون وفقت في طرحي
رأيت أن لمنتدى ليست له [COLOR=DarkOrchid]مكتب[COLOR=DarkOrchid]ة [/COLOR]للأكواد خاص[SIZE=2]ة بهدا لقسم
[/COLOR]وقررت أن [COLOR=Green]أقدم لكم مكتبة جمعتها [/COLOR][COLOR=Indigo]لأكواد [COLOR=Green]فجوال بيسك [/COLOR]متنوعة :SnipeR (37):
[/COLOR][SIZE=2][COLOR=Indigo]نبدأ [COLOR=Green]على [/COLOR]بركة لله يا صقور [/COLOR]
[/SIZE][/SIZE]
كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا
كود:
Private Sub ResultTextbox3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
If TextBox1.Text Is String.Empty Or Not IsNumeric(TextBox1.Text) Then
TextBox3.Text = ""
Exit Sub
End If
If TextBox2.Text Is String.Empty Or Not IsNumeric(TextBox2.Text) Then
TextBox3.Text = ""
Exit Sub
End If
TextBox3.Text = CType(TextBox1.Text, Integer) * CType(TextBox2.Text, Integer)
End Subكود وميض الليبل ضع هذا الكود فى التايمر
كود:
If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.Black
Else
Label1.ForeColor = Color.Red
End Ifهذا الكود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم .
أولاً نقوم بإضافة اداة Text Box ونكتب الكود فى الحدث KeyPress
هذا الكود لجعل Text Box يكتب رقم ولا يكتب نص
كود:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Sub
هذا الكود لجعل Text Box يكتب نص ولا يكتب رقم'
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Subتشغيل الملفات الصوتية متتالية
كود:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Me.Timer1.Start()
If Me.ListBox1.SelectedIndex = 1 Then
Me.AxWindowsMediaPlayer1.URL = "الملف "
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
If Me.ListBox1.SelectedIndex = 2 Then
e.AxWindowsMediaPlayer1.URL = "الملف 2"
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
If Me.ListBox1.SelectedIndex = 3 Then
Me.AxWindowsMediaPlayer1.URL = "الملف3"
End If
If Me.ListBox1.SelectedIndex = 4 Then
Me.AxWindowsMediaPlayer1.URL = "الملف4"
End If
If Me.ListBox1.SelectedIndex = 5 Then
Me.AxWindowsMediaPlayer1.URL = "الملف5"
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.ListBox1.SelectedIndex = 5 Then
Me.AxWindowsMediaPlayer1.Ctlcontrols.pause()
End If
If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
End If
End Subشريط التقدم يتحرك مثلما يتحرك لوجو بداية تشغيل ويندوز
كود:
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Style = ProgressBarStyle.Marquee
ProgressBar1.MarqueeAnimationSpeed = 100لجعل الفورم دوماً في المقدمة
كود:
Me.TopMost = Trueكود لتوليد ارقام عشوائيه اضف تايمر واربعه تكست بوكس وضع الكود التالى فى الفورم تحت التايمر تك وانظر للنتيجه حدد الانترفال للتايمر كما تحب
كود:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim R As New Random
Randomize()
Dim Number As Integer
Number = R.Next(20, 105)
‘ MsgBox(Number)
TextBox1.Text = Number
TextBox2.Text = Number
TextBox3.Text = Number
TextBox4.Text = Number
End Subكود لتوليد لون كل ثانيه اضف تايمر واضبط الانترفال الى 1000 اى ثانيه واحده وضع الكود التالى فى الفورم وانظر للنتيجه
كود:
Public Class Form1
Dim n As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.BackColor = System.Drawing.ColorTranslator.FromOle(QBColor(n))
n = n + 1
If n = 15 Then n = 0
End Sub
End Classلتغير لون الزر عند مرور الفأرة عليه
الأدوات :button
كود:
Public Class Form1
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
Button1.BackColor = Color.DodgerBlue
End Sub
End Classتحريك الكلمات في عنوان الفورم والتكست
الأدوات :TIMER1+TEXTBOX1
كود:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 75
TextBox1.Text = "Guten Tag! Wie ght’s Ihnen? Ich hoffe Ihnen alles Gutes!"
TextBox1.Text = Space(50) & TextBox1.Text
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = Mid(TextBox1.Text, 2)
TextBox1.Text = TextBox1.Text
Me.Text = TextBox1.Text
End Sub
End Classلأظهار تحية عند فتح البرنامج حسب الوقت
كود:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TimeOfDay <= "11:30 AM" Then
MsgBox("Good Morning YourNameHere!")
Exit Sub
End If
If TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then
MsgBox("Good Afternoon YourNameHere!")
Exit Sub
End If
If TimeOfDay > "5:00 PM" Then
MsgBox("Good Evening YourNameHere!")
Exit Sub
End If
If TimeOfDay >= "12:01 AM" Then
MsgBox("Good Morning YourNameHere!")
Exit Sub
End If
End Sub
End Classأخوكم المشاغب
التعديل الأخير بواسطة المشرف:
