تغییر نام یک لیبل در فرم دیگر

[ali reza mansoori 2]

سلام دوستان
فرمهای برنامه ام رو به صورت زیر باز میکنم
Dim Frm2 As New Form2
Frm2.Show()
حالا میخوام از داخل این فرم تغییراتی رو دیگر فرم ها بدم

فایل ضمیمه رو دانلود کنید یهتر متوجه منظورم میشید
خیلی ممنون
یا علی

[ROSTAM2]

واسه اینکار باید یه متغیر عمومی از فرم ها ساخته شه مثل

Public Frm2 As New Form2 With {.Text = "Template Form"}

اگه توی یک ماجول تعریف شه تو سطح پروژه قابل دسترسیه که می شه هر جا نیازه مقدار خصوصیت اشیاء اون رو تغییر داد فکر کنم بعد از تغییرات، همون شئ یا خود فرم باید refresh ریفرش شه

[فرید نجفلو]

واسه اینکار باید یه متغیر عمومی از فرم ها ساخته شه مثل

Public Frm2 As New Form2 With {.Text = "Template Form"}

اگه توی یک ماجول تعریف شه تو سطح پروژه قابل دسترسیه که می شه هر جا نیازه مقدار خصوصیت اشیاء اون رو تغییر داد فکر کنم بعد از تغییرات، همون شئ یا خود فرم باید refresh ریفرش شه
دوست عزیز روش شما یک روش غیر متعارف هست و زمانی که پروژه رشد کرد ممکنه مشکلات حادی پیش بیاره

[فرید نجفلو]

دوست عزیز با این کد می تونید فرم باز مورد نظرتون رو پیدا کنید
توجه داشته باشید که این کد همه فرم های باز از یک نوع (مثلا Form2) رو تغییر می ده ولی می تونید داخل شرط عملیات فیلتر کردن بر طبق اون چیزی که نیاز دارین رو انجام بدین
در هر حال روش کلی به این صورت هست:

Public Class Form2
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
For Each aFrm In Application.OpenForms
If TypeOf aFrm Is Form3 Then
CType(aFrm, Form3).Label1.Text = "Text Has Been Changed From2!"
End If
Next
Catch ex As Exception
End Try
End Sub
'یا در فرم دیگری
Public Class Form3
Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
Try
For Each aFrm In Application.OpenForms
If TypeOf aFrm Is Form2 Then
CType(aFrm, Form2).Label1.Text = "Text Has Been Changed From3!"
End If
Next
Catch ex As Exception
End Try
End Sub

[akbar3070]

یک راه آسان تر هم هست البته اگه موضوع رو درست متوجه شده باشم .
مثال ما در فرم یک هستیم و می خواهیم که تکست ، لیبل 1 در فرم 2 را به ali تغییر بدهیم
[form2.lable1.text="ali"][/CODE]