ارجوا المساعدة اخفاء صورة او اي اداة في التقرير

السلام عليكم

أخي احسن الله ُ إليك , لو وضعت كود أو ملف كان اختصرت على نفسك الوقت الكثير...

على كلِ حال , يجب ان تعرف عنصر من نوع TextObject للتحكم في العناصر النصية

و كذلك عنصر من نوع BoxObject للتحكم بالصناديق وهلم جرى على البقية

شاهد المثال التالي:

 Dim rpt As New cr

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Dim Text As TextObject
		Text = rpt.ReportDefinition.ReportObjects("Text1")
		Text.Text = "Here is my Text Object. "

		Dim Box1 As BoxObject
		Box1 = rpt.ReportDefinition.ReportObjects("Box1")
		Box1.FillColor = Color.Red
		crv.ReportSource = rpt
	End Sub

الان بعد عرض التقرير سنضع زر لاخفاء النص و الصندوق كما سترى ...

Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click
		Dim Text As TextObject
		Text = rpt.ReportDefinition.ReportObjects("Text1")
		Text.Text = ""
  'or suppress object.
		'Text.ObjectFormat.EnableSuppress = True
		'delete box1.
		Dim Box1 As BoxObject
		Box1 = rpt.ReportDefinition.ReportObjects("Box1")
		Box1.ObjectFormat.EnableSuppress = True
		crv.ReportSource = rpt
	End Sub

نستخدم الخاصية EnableSuppress لأخفاء العنصر من التقرير..

بالتوفيق و السداد إن شاء الله.

مشكور اخوي الشهاب

وجزاك الله الف خير

اسف على الايطالة

ولكن عندي مشكلة عندما اريد ان اغير في النص المكتوب في اداة النص يتغير النص ولكن يكون في الجهة اليسر محاذاة اليسار

الكود هذا هو: ويوجد مثل مرفق

Dim rpt As New cr

'=====>

Dim Text As TextObject

Text = rpt.ReportDefinition.ReportObjects("Text2")

Text.Text = "محمد"

'=====>

crv.ReportSource = rpt

ارجوا مساعدتي

ARMX.rar