طباعة محتويات فورم او فرام هل من متطوع فيساعد ؟

جرب هذا الكود

Private Sub Command1_Click()
Dim A, B, C, D
With Me
	A = .Width
	B = .Height
	C = .Frame1.Left
	D = .Frame1.Top

	.Width = .Frame1.Width
	.Height = .Frame1.Height
	.Frame1.Top = 0
	.Frame1.Left = 0

	.PrintForm
	.Width = A
	.Height = B
	.Frame1.Left = C
	.Frame1.Top = D
End With

End Sub

شكرا لك تمت الفائدة

ولكن لي استفسار لو سمحت!

width.

او

fram1 .

وغيرها

ما المقصود بالنقطة التي تسبق تلك الكلمات ؟ما العبرة فيها ومتى او مع ماذا تستخدم ؟

ولك الشكر

سأشرح لك بمثال:

Form1.BackColor=vbRed
Form1.Width=2000
Form1.Caption="Hello World"

هذا يساوي تماماً:

With Form1
   .BackColor=vbRed
   .Width=2000
   .Caption="Hello World"
End With

تمام؟

Abboodd كتب:

سأشرح لك بمثال:

Form1.BackColor=vbRed
Form1.Width=2000
Form1.Caption="Hello World"

هذا يساوي تماماً:

With Form1
   .BackColor=vbRed
   .Width=2000
   .Caption="Hello World"
End With

تمام؟

يعني في حال وجود الويذ يمكن الاستغناء عن كلمة الفورم وابقاء النقطة ! اي بدل كل مرة نكتب فورم وفورم وفورم نختصرها بويذ فورم وبذلك النقطة وحيدة دون سبقها بالفورم تفي بالغرض!! هذا ما فهمته والله اعلم

تسلم يا معلم

:clapping: