منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اين اكتب هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اين اكتب هذا الكود (/showthread.php?tid=18478)

اين اكتب هذا الكود - anis_derna - 18-12-16

اين اكتب هذا الكود 
وما هي frmSkins3

Private Sub frmSkins3_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
If (Strings.Asc(e.KeyChar) = 13) Then
SendKeys.Send("{tab}")
End If
End Sub

RE: اين اكتب هذا الكود - amgad525 - 18-12-16

PHP كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.KeyPreview = True

End Sub

Private Sub Form1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
    If Strings.Asc(e.KeyChar).Equals(Keys.Enter) Then Me.SelectNextControl(Me.ActiveControl, True, True, True, True)

End Sub 


RE: اين اكتب هذا الكود - anis_derna - 19-12-16

لو تكرمت ان تشرح لي هذا الكود و الادوات المستخدمة 

Private Shared Sub __ENCAddToList(ByVal value As Object)
   Dim list As List(Of WeakReference) = Form18.__ENCList
   SyncLock list
       If (Form18.__ENCList.Count = Form18.__ENCList.Capacity) Then
           Dim index As Integer = 0
           Dim num3 As Integer = (Form18.__ENCList.Count - 1)
           Dim i As Integer = 0
           Do While (i <= num3)
               Dim reference As WeakReference = Form18.__ENCList.Item(i)
               If reference.IsAlive Then
                   If (i <> index) Then
                       Form18.__ENCList.Item(index) = Form18.__ENCList.Item(i)
                   End If
                   index += 1
               End If
               i += 1
           Loop
           Form18.__ENCList.RemoveRange(index, (Form18.__ENCList.Count - index))
           Form18.__ENCList.Capacity = Form18.__ENCList.Count
       End If
       Form18.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
   End SyncLock
End Sub

RE: اين اكتب هذا الكود - thevirus - 28-12-16

(19-12-16, 12:01 AM)anis_derna كتب : لو تكرمت ان تشرح لي هذا الكود و الادوات المستخدمة 

Private Shared Sub __ENCAddToList(ByVal value As Object)
   Dim list As List(Of WeakReference) = Form18.__ENCList
   SyncLock list
       If (Form18.__ENCList.Count = Form18.__ENCList.Capacity) Then
           Dim index As Integer = 0
           Dim num3 As Integer = (Form18.__ENCList.Count - 1)
           Dim i As Integer = 0
           Do While (i <= num3)
               Dim reference As WeakReference = Form18.__ENCList.Item(i)
               If reference.IsAlive Then
                   If (i <> index) Then
                       Form18.__ENCList.Item(index) = Form18.__ENCList.Item(i)
                   End If
                   index += 1
               End If
               i += 1
           Loop
           Form18.__ENCList.RemoveRange(index, (Form18.__ENCList.Count - index))
           Form18.__ENCList.Capacity = Form18.__ENCList.Count
       End If
       Form18.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
   End SyncLock
End Sub
قم برفع المشروع