logo

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



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





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
المشاركات : 10509
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36622
الاعجاب : 145
أخي العزيز خالد
يرجى مشاهدة الفيديو المأخوذ منه الكود على الرابط التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

ليعمل الكود احذف كل الأدوات الموجودة على الفورم أولاً ..
أضف المكتبة التالية من خلال 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
المشاركات : 10509
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36622
الاعجاب : 145
وجزيت خيراً أخي العزيز خالد والحمد لله الذي بنعمته تتم الصالحات.




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود تنسيق الصوت حسين الحمادي
2 29 حسين الحمادي
كود معادلة الاخلاق حسين الحمادي
4 1241 حسين الحمادي
محتاج كود جمع خلايا saad mohamed
1 52 saad mohamed
اريد كود لتصدير او حفظ ملف وورد الي ملف بي دي اف محمي من النسخ jjebril
2 46 jjebril
كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود mmagedmemo
4 196 EM_ACC

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









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

الساعة الآن 01:01 PM