لیبل چشمک زن

• نحوه ایجاد لیبل چشمک زن در اکسس

هنگامی که یک فرم در محیط نرم افزار مایکروسافت اکسس طراحی می کنید برای زیباتر کردن فرم استفاده از یک لیبل چشمک زن که رنگ آن مدام در حال تغییر است می تواند توجه کاربر را به خود جلب نماید از این رو می شود در موارد متعددی از آن استفاده کرد. در یکی دیگر قسمت های آموزش اکسس با ما همراه باشید تا روش ایجاد این لیبل را یاد بگیرید.

برای ایجاد چنین آبجکتی بایستی مطابق تصویر زیر ابتدا یک فرم ایجاد کرده و یک لیبل روی آن قرار دهید. با انتخاب لیبل ایجاد شده آنرا به حالت مخفی درآورید. برای انجام اینکار ، پس از انتخاب لیبل وارد Property Sheet و تب Format شوید ؛ سپس خاصیت Visible را روی No قرار دهید.

در ادامه یک دکمه روی فرم گذاشته و کد زیر را در رویداد On Click آن قرار دهید.

'نام لیبل lblExp
Me.lblExp.Visible = True

حالا در رویداد OnTimer فرم کدهای زیر را قرار دهید.

Dim myvalue
  Randomize
  myvalue = Int((15 * Rnd) + 2)
  Me.lblExp.BackColor = QBColor(Int(Rnd * 10))

در نهایت فرم را ذخیره کنید و سپس با فشردن کلید F5 از روی کیبورد آنرا اجرا کنید ؛ با کلیک بر روی دکمه ایجاد شده ، ملاحظه خواهید نمود که لیبل چشمک زن قرار گرفته بر روی فرم به نمایش درآمده و رنگ آن بصورت تصادفی تغییر خواهد کرد.