-
یک شنبه 27 شهریور 1384, 12:42 عصر
#2
کاربر دائمی
تو قسمت Form Timerاین دستور رو بنویس و هر وقت خواستی Lable مورد نظر رو Visible کن این دستور اجرا میشه
Private Sub Form_Timer()
Dim myvalue
Randomize
myvalue = Int((15 * Rnd) + 2)
Me.Examplelbl.BackColor = QBColor(Int(Rnd * 10))
End Sub
راستی در قسمت Timer Interval مربوط به فرم ،،،،،،،،،،،،، عدد 1024 زو وارد کن.
قوانین ایجاد تاپیک در تالار
- شما نمی توانید تاپیک جدید ایجاد کنید
- شما نمی توانید به تاپیک ها پاسخ دهید
- شما نمی توانید ضمیمه ارسال کنید
- شما نمی توانید پاسخ هایتان را ویرایش کنید
-
قوانین سایت