logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





28-06-2020 10:07 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 177
الجنس :
تاريخ الميلاد : 3-7-1969
الدعوات : 1
قوة السمعة : 292
الاعجاب : 0
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب الساده الخبراء

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

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 مرات التحميل :(7)
الحجم :(12.853) KB





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

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

أثارت هذه المشاركة إعجاب: ali mohamed ali، خالد الشاعر، ashraf_hertlion،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد المساعده فى بكود استخراج بيانات بسرعه اسم المستخدم
11 84 YasserKhalil
كل يوم كود من أكواد الإكسيل VBA YasserKhalil
4 713 محمد الدسوقى
تحويل معادله لكود gemy2010
1 15 gemy2010
رسالة خطا في كود البحث شبل
1 32 شبل
تحويل معادله لكود خالد الشاعر
1 36 خالد الشاعر

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









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

الساعة الآن 07:37 AM