تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في كود برمجي
#5
الكود رغم بساطته اتعبني معه كل شوي اكتشف غلط او قصور!
آخر كلام :
كود :
Public Class Form1
   Dim ax, ay As Integer, dr As Boolean
   Dim sr As Integer = Screen.PrimaryScreen.Bounds.Right
   Dim sb As Integer = Screen.PrimaryScreen.WorkingArea.Bottom
   Dim lst As New List(Of String)
   Private Sub rep(f As Form)
       If f.Left < 0 Then f.Left = 0
       If f.Top < 0 Then f.Top = 0
       If f.Right >= sr Then f.Left = sr - f.Width
       If f.Bottom >= sb Then f.Top = sb - f.Height
   End Sub
   Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
       dr = False
       rep(Me)
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       rep(Me)
   End Sub
   Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
       Close()
   End Sub
   Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
       WindowState = FormWindowState.Minimized
   End Sub
   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged
       Dim c As CheckBox = DirectCast(sender, CheckBox)
       If (c.Checked = True And lst.Contains(c.Text & " ") = False) Then
           lst.Add(c.Text & " ")
       ElseIf (c.Checked = False And lst.Contains(c.Text & " ") = True) Then
           lst.Remove(c.Text & " ")
       End If
       lbl.Text = "Controls Count: " & pnlc.Controls.Count & " | " & lst.Count
       txtchecked.Clear()
       For Each h As String In lst
           If txtchecked.Text.Contains(h) = False Then
               txtchecked.AppendText(h)
           End If
       Next
   End Sub
   Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
       If dr Then
           Left = MousePosition.X - ax
           Top = MousePosition.Y - ay
       End If
   End Sub
   Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
       If e.Button = MouseButtons.Left Then
           dr = True
           ax = MousePosition.X - Left
           ay = MousePosition.Y - Top
       End If
   End Sub
End Class


الملفات المرفقة
.zip   ListCheckedCheckBoxes.zip (الحجم : 14.32 ك ب / التحميلات : 11)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}


الردود في هذا الموضوع
مساعدة في كود برمجي - بواسطة maherhaddaf - 31-05-23, 10:00 AM
RE: مساعدة في كود برمجي - بواسطة asmarsou - 31-05-23, 12:34 PM
RE: مساعدة في كود برمجي - بواسطة fouadhdfouad - 31-05-23, 06:35 PM
RE: مساعدة في كود برمجي - بواسطة سعود - 01-06-23, 03:38 AM
RE: مساعدة في كود برمجي - بواسطة سعود - 01-06-23, 05:16 AM
RE: مساعدة في كود برمجي - بواسطة fouadhdfouad - 01-06-23, 09:21 AM
RE: مساعدة في كود برمجي - بواسطة Taha Okla - 01-06-23, 10:03 AM
RE: مساعدة في كود برمجي - بواسطة maherhaddaf - 04-06-23, 12:55 PM
RE: مساعدة في كود برمجي - بواسطة maherhaddaf - 05-06-23, 12:35 PM
RE: مساعدة في كود برمجي - بواسطة G20 - 05-06-23, 12:57 PM


التنقل السريع :


يقوم بقرائة الموضوع: