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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 53 , 01:09 AM
آخر رد: محمد مسافر
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 45 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 108 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 101 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 933 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] خطأ في التنفيذ الكود بعد فلترة dataGridView محمد العامر 2 217 20-08-20, 01:38 PM
آخر رد: محمد العامر
  [مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود gharib 6 297 18-08-20, 03:45 PM
آخر رد: gharib
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 257 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري
  هذا الكود غلبني المهنا 2 283 19-07-20, 12:12 AM
آخر رد: المهنا
  [سؤال] منين او ازاى اجيب الكود الخاص بالصورة دى mostafa nada 1 217 13-07-20, 10:16 PM
آخر رد: DR.YASER

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


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