قرار دادن یک متغییر بر تمامی لیبل ها

[ali.rk]

سلام
در یه فرم تعداد زیادی لیبل وجود دارد چگونه متن تمامی لیبل ها را یک متغییر کنیم .؟

[mahdi.a.v]

میدونی تعداد دقیق لیبل ها چه تا هست یا نه ؟؟؟

[ali.rk]

چه فرقی داره نه نمی دونم (ولی می تونم محاسبه کنم .)

[lastmory]

با سلام
اینو تست کن

For Each Control As Windows.Forms.Control In Me.Controls
If Control.GetType.Name = "Label" Then
Control.Text = "...."
End If

Next

[ali.rk]

:افسرده: نه کار نکرد

[lastmory]

لیبلهاتو کجا گذاشتی ، مستقیما توی فرم هست یا توی گروپ باکس یا پنل ؟؟

[ali.rk]

با سلام
اینو تست کن

For Each Control As Windows.Forms.Control In Me.Controls
If Control.GetType.Name = "Label" Then
Control.Text = "...."
End If

Next
دوست عزیز کد شما درست کار می کنه
دوستان ببخشید مشکل از یه جای دیگه بود .

[aliagamon]

با سلام
اینو تست کن

For Each Control As Windows.Forms.Control In Me.Controls
If Control.GetType.Name = "Label" Then
Control.Text = "...."
End If

Next
دوست عزیز شما دارین اضافه کاری میکنی ... :لبخند: جای اینکه یه شرط بزاری که چک کنه لیبل هست یا نه یهو بیاین فقط لیبل هارو با for each بگیرین:

For Each l As Label In Me.Controls
l.Text = "...."
Next

[مهرداد صفا]

دوست عزیز شما دارین اضافه کاری میکنی ... :لبخند: جای اینکه یه شرط بزاری که چک کنه لیبل هست یا نه یهو بیاین فقط لیبل هارو با for each بگیرین:

For Each l As Label In Me.Controls
l.Text = "...."
Next


با سلام.
دوست عزیز تعریف نوع متغیر حلقه، تغییری در مجموعه نمی دهد و فیلتری هم انجام نمی شود. تنها نوع متغیر برای intelli sense شناخته خواهد بود و در صورتی که آیتم موجود در مجموعه با نوع متغیر تعریف شده همخوانی نداشته باشد و یا قابل تبدیل نباشد با خطای زمان اجرا روبرو می شوید.
در مثال زیر نوع integer به long قابل تبدیل است و برنامه بدون خطا اجرا می شود:

Dim numbers(10) As Integer
For Each n As Long In numbers
MsgBox(n)
Next

برای کد شما میتوان از "on error resume next" استفاده کرد:

On Error Resume Next
For Each Control As Label In Me.Controls
Control.Text = "value"
Next

و یا با استفاده از where مقادیر را فیلتر کرد:

For Each ctrl As Label In Me.Controls.Cast(Of Control).Where(Function(c) TypeOf (c) Is Label)
ctrl.Text = "value"
Next