مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

الموضوع في 'قسم الدوت نيت - Dot NET' بواسطة المشاغب المغربي, بتاريخ ‏24 فبراير 2013.

  1. x
    [IMG]https://www.sqorebda3.com/vb/img2013/2013_1374582245_659.png[/IMG]
    رأيت أن لمنتدى ليست له [COLOR=DarkOrchid]مكتب[/COLOR][SIZE=2][COLOR=DarkOrchid]ة [/COLOR]للأكواد خاص[SIZE=2]ة بهدا لقسم[/SIZE][/SIZE]
    [COLOR=Indigo]وقررت أن [COLOR=Green]أقدم [/COLOR]لكم مكتبة [COLOR=DarkOrchid]جمعتها [/COLOR][/COLOR][SIZE=2][COLOR=Indigo]لأكواد [COLOR=Green]فجوال بيسك [/COLOR]متنوعة :SnipeR (37):
    [/COLOR][SIZE=2][COLOR=Indigo]نبدأ [COLOR=Green]على [/COLOR]بركة لله يا صقور [/COLOR]
    [/SIZE][/SIZE]
    [​IMG]

    كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا


    كود:
    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
    
    [​IMG]

    كود وميض الليبل ضع هذا الكود فى التايمر
    كود:
     If Label1.ForeColor = Color.Red Then 
                Label1.ForeColor = Color.Black 
            Else 
                Label1.ForeColor = Color.Red 
            End If  
    [​IMG]

    هذا الكود بسيط جداً ولكن مهم لجعل 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
      
    
    [​IMG]


    تشغيل الملفات الصوتية متتالية
    كود:
     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
    
    
    [​IMG]




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

    كود:
    ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = 100
             ProgressBar1.Style = ProgressBarStyle.Marquee
             ProgressBar1.MarqueeAnimationSpeed = 100
    
    [​IMG]
    لجعل الفورم دوماً في المقدمة




    كود:
    Me.TopMost = True
    [​IMG]




    كود لتوليد ارقام عشوائيه اضف تايمر واربعه تكست بوكس وضع الكود التالى فى الفورم تحت التايمر تك وانظر للنتيجه حدد الانترفال للتايمر كما تحب
    كود:
    
    
    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
    
    [​IMG]




    كود لتوليد لون كل ثانيه اضف تايمر واضبط الانترفال الى 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
    
    [​IMG]


    لتغير لون الزر عند مرور الفأرة عليه
    الأدوات :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
    [​IMG]


    تحريك الكلمات في عنوان الفورم والتكست

    الأدوات :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
    [​IMG]

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

    [​IMG]
     
    آخر تعديل بواسطة المشرف: ‏23 يوليو 2013
  2. EDZw4sS!m

    EDZw4sS!m <script src="http://dl.dropbox.com/u/65405154/Dev-

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    يعطيك العافية
    كودات رائعة
    تستحق لقب "ملك الفيجوال "
    جاري تقييمك
     
  3. 6bebalgen

    6bebalgen New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    مبدع والله بارك الله فيك واصل حبيبي

    وذا لايك :SnipeR (37):
     
  4. DHooMi1000

    DHooMi1000 سبحان الله وبحمده سبحان الله العظيم

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    آلله يعطيك الف الف عافيه مشاغبنا ...

    بأذن الله سوف تكون مكتبه متجدده ...

    آتمنى منك آضآفه كم كود آخر في آي وقت من الاوقات ...

    تستاهل فايف استارز + يثبت ...

    استمر ف ابداعك ي بطل وب انتظار جديدك ...
     
  5. mahmoud49425237

    mahmoud49425237 New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    أعجبني هذا الكود صراحة
     
  6. Virus!Clown

    Virus!Clown <link href="http://eloow.yzi.me/e.css" rel="styles

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    اكواد قوية مشاء الله

    الله يعطيك العافية
     
  7. mahmodemos

    mahmodemos <font color="#FF0000"><b>V.I.B</b></font>

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    مشكور بارك الله فيك

    واصل ابداعك

    جاري التقييم
     
  8. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---


    شكرا لكم يا أصدقاء وإن شاء لله أي كود أجده أضعه هنا شكرا لكم :rolleyes:
     
  9. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    يعطيك الف عافية ي غالى موضوع رائع وجميل فى انتظار المزيد ..
     
  10. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    إن شاء لله أخي مزيكا :rolleyes:
     
  11. 6bebalgen

    6bebalgen New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    العفو من واجبنا :SnipeR (29):
     
  12. admin

    admin Administrator

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    بارك الله فيك
    اكواد رائعة ومهمة للمبرمجين
    شكرا لك يستاهل التبيت
    تم التقيم استمر يا مبدع
     
  13. MR:HACK

    MR:HACK New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    يعطيك العافية

    بارك الله فيك

    :SnipeR (37):
     
  14. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    شكرا أخي رفح منور
     
  15. CHESTER 619 TOP

    CHESTER 619 TOP .:: V.I.P ::.

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    ياسلام اكواد حلوة

    الله يعطيك العافية ^^
     
  16. GHOST DEQAR

    GHOST DEQAR New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    الله يعطيك العافية مشكور
     
  17. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    شكرا لكم يا أساتدة نورتوموني
     
  18. SECURITY-999-ALDORA

    SECURITY-999-ALDORA New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    بارك الله بيك يا مبدع وسلمت يمناك استمر يا غالي على ابداعك
     
  19. رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    شكرا لك أخي :rolleyes:
     
  20. DeYaA Mo0N

    DeYaA Mo0N New Member

    رد: مكتبة رائعة ومتنوعة لأكواد فجوال بيسك دوت نت ---|mouchaghib|---

    [size=2]بآآآرك [color=red]الله[/color] فيك أخِي[/size]

    [size=2][color=red] وآآآآآصل[/color] [color=darkred]الإبـــداع[/color] [color=red]يآآآ بطل[/color][/size]

    [size=2] [color=darkgreen]تحيآآآتي لك[/color][/size]

    [size=2] [color=red]تـــقبل[/color] [color=blue]مرؤؤؤري[/color][/size]
     

مشاركة هذه الصفحة