سوال: درخواست ماژول مستقل جهت تغییر رنگ ... [بایگانی]

royasaz_bam

چهارشنبه 28 دی 1390, 01:16 صبح

سلام با دستو me.text0.backcolor = vbred داخل فرم (توابع داخلی فرم ) می توان رنگ زمینه زمینه فیلد را عوض کر حال اگر بخواهیم با یک ماژول مستقل از فرم این دستور را بدهیم په باید کر در واقع تحوه نوشتن یک ماژول با نام t_rang برای تغیر رنگ زمینه پگونه نوشته میشود اگر سورس را بدهید متشکر میشوم به طور مثال با دادن دستور به صورت T_rang([text0 به همان نتیجه برسم

Abbas Amiri

چهارشنبه 28 دی 1390, 22:38 عصر

متد موردنظرشما درذیل خواهدآمد. اگر بدون آرگومان رنگ باشد قرمز نسبتا روشن نمایش داده خواهد شد. درصورت نیاز مقدار آنرا عوض کنید

Sub ctlRang(ctl As control, Optional Color)
If IsMissing(Color) Then
Color = RGB(255, 50, 100) 'Or VbRed
End If
ctl.BackColor = Color
End Sub