تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اين اكتب هذا الكود
#1
اين اكتب هذا الكود 
وما هي 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
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
    Me
.KeyPreview True

End Sub

Private Sub Form1_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles Me.KeyPress
    
If Strings.Asc(e.KeyChar).Equals(Keys.EnterThen Me.SelectNextControl(Me.ActiveControlTrueTrueTrueTrue)

End Sub 
الرد }}}
تم الشكر بواسطة: zinom , anis_derna
#3
لو تكرمت ان تشرح لي هذا الكود و الادوات المستخدمة 

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
الرد }}}
تم الشكر بواسطة:
#4
(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
قم برفع المشروع
لا شيء مستحيل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم