أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لليوزر فورم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب الساده الخبراء هذا الكود من موقع على النت للتحكم فى اليوزر فور ..



28-06-2020 10:07 صباحا
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب الساده الخبراء

هذا الكود من موقع على النت للتحكم فى اليوزر فور و اضافة ادمات له
ولكن عند التطبيق ظهرت هذه المشكله فى سطر الامر هذا
Dim UFvbc As VBComponent
لو ممكن شرح ما هذا الوظيفة UFvbc As VBComponent
اكون شاكر ليكم
الكود

Option Explicit

Sub addCtrls()
'-----------------------------
'Thanks for downloading the code.
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Download free codes from http://vbaa2z.blogspot.com
'Subscribe channel: youtube.com/vbaa2z
'Author: L Pamai (vbaa2z.team@gmail.com)
'-----------------------------

't1-54;114;108;78
'T54, 60/42, T54
Dim UFvbc As VBComponent
Dim r As Long

Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")
Dim cb As Control
Dim t As Long, h&, w&, rowCnt&, ColCnt&, objLeft&, vGap&, objLeft_last&, totalColumns&
Dim objRow_last As Long
Dim TotalRows&

t = 15 'top
h = 10 'hieght
w = 84 'width

rowCnt = 1
ColCnt = 1
objLeft = 40
objLeft_last = 10

vGap = 14
objRow_last = 20

TotalRows = 12
totalColumns = 4

For r = 1 To (TotalRows * totalColumns) '(6 * 7)

Set cb = UFvbc.Designer.Controls.Add("Forms.Label.1", "Label" & r, True)
'Set cb = UFvbc.Designer.Controls.Add("Forms.Textbox.1", "Textbox" & r, True)
    
    't1_r1_c1
    cb.Name = "t1_r" & rowCnt & "_c" & ColCnt
    cb.BackColor = &HC0C0C0   'vbGreen
    cb.Height = h
    cb.Width = w
    cb.Top = objRow_last

    '----------------------
    If ColCnt = 1 Then
      cb.Left = objLeft
      objLeft_last = objLeft
      'vGap = 1
    Else
      cb.Left = objLeft_last + w + vGap
      objLeft_last = objLeft_last + w + vGap
    End If
    
    ColCnt = ColCnt + 1
    '----------------------
    
    If ColCnt = totalColumns + 1 Then
      ColCnt = 1
      rowCnt = rowCnt + 1
      objLeft_last = 10
      objRow_last = objRow_last + h + vGap
        
    End If
    
  Set cb = Nothing
  
Next r

End Sub
 
 
  UserForm1.rar   تحميل rar مرات التحميل :(8)
الحجم :(12.853) KB


29-06-2020 09:14 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لليوزر فورم
أخي العزيز خالد
يرجى مشاهدة الفيديو المأخوذ منه الكود على الرابط التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

ليعمل الكود احذف كل الأدوات الموجودة على الفورم أولاً ..
أضف المكتبة التالية من خلال Tools ثم References ثم Micrsosoft Visual Basic for Applications Extensibilty 5.3
حيث تمكنك هذه المكتبة في التحكم في الكائنات البرمجية في محرر الاكواد نفسه ، وحيث أن الفورم أحد هذه الكائنات البرمجية فيقوم الكود بإضافة Labels أو عناوين بشكل تلقائي للفورم في وضع التصميم ..

29-06-2020 02:29 مساء
مشاهدة مشاركة منفردة [2]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif كود لليوزر فورم
الف الف شكر استاذ ياسر
جزاك الله كل خيراً

29-06-2020 09:58 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لليوزر فورم
وجزيت خيراً أخي العزيز خالد والحمد لله الذي بنعمته تتم الصالحات.




الكلمات الدلالية
لليوزر ، فورم ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:11 مساء