حل مشكل

[zohre472000]

با سلام و عرض تشكر من چند سوال دارم كه ميخوام خيلي زود به جواب برسم البته با عرض شرمندگي سوال اول:
ميخوام درون يك فرم عرض اون رو به 12 تغيير بدم.
2 ) در فرم جاري ميخوام عرض تمام اشيا رو به 4 cmتغيير بدم.
3)در بانك اطلاعات جاري 2 فرم به نام هاي form1وform2وجود دارد رنگ زمينه form2را دقيقا به رنگ form1انتخاب كنيد.
با تشكر و سپاس فروان خواهش ميكنم سريع جواب بديد. ممنون ميشم.

[ajlajlajl]

يه سوال فني.
اينا كه گفتيدو توي ويبي ميخوايد با اكسس؟

[ajlajlajl]

با تشكر از شما درون اكسس

شرمنده.من اكسس بلت نيستم.

[mbza11]

سلام.
تمام کدهايي که ميدم بايد بعد از کليک راست روي فرم (در حالت طراحي) و انتخاب Properties و بعد از اون از کمبوباکس بالا قسمت Form در تب Event قسمت OnLoad نوشته شود.
جواب سوال يک:

کد:

Me.Width = xxx

xxx: اندازه مورد نظر هست که البته برحسب سانتي متر نمي باشد.

جواب سوال دو:

کد:

Dim i As Integer
    For i = 0 To (Me.Controls.Count - 1)
        Me.Controls(i).Width = xxx
    Next

xxx: همون چيزايي که بالا گفتم.

جواب سوال سه:

کد:

Form_Form2.Detail.BackColor = Form_Form1.Detail.BackColor

موفق باشي.