ایجاد تب های مستقل در فرم !

[Skynet]

با سلام و احترام
امیدوارم به درخواستم نخندید! من یک فرم ساده طراحی کردم که شامل دو تب هست، می خوام دو تا عکس مختلف در هر صفحه در این تب ها وجود داشته باشه همین !
اگر هم ممکن هست تب ها به سمت راست منتقل بشه ( الان سمت چپ هستند )
خیلی ممنونم





لینک درخواست قبلی که هیچ عزیزی پاسخی نداد و من مجبورم تکته تکه سوال کنم تا بلاخره اون فرم مد نظر رو دربیارم
http://forum.exceliran.com/showthrea...%D8%A8%D8%B1-!

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Javid Mokhtari]

با سلام و احترام
امیدوارم به درخواستم نخندید! من یک فرم ساده طراحی کردم که شامل دو تب هست، می خوام دو تا عکس مختلف در هر صفحه در این تب ها وجود داشته باشه همین !
اگر هم ممکن هست تب ها به سمت راست منتقل بشه ( الان سمت چپ هستند )
خیلی ممنونم





لینک درخواست قبلی که هیچ عزیزی پاسخی نداد و من مجبورم تکته تکه سوال کنم تا بلاخره اون فرم مد نظر رو دربیارم
http://forum.exceliran.com/showthrea...%D8%A8%D8%B1-!

با سلام...
در رابطه با راست چین کردن، ابتدا فرم را انتخاب سپس از قسمت Properties (سمت چپ) گزینه RightToLeft را True کنید.

درمورد عکس ها هم آیا عکس ها همیشه ثابت خواهد بود یا ممکنه بعدا تغییر کنه..؟

[Skynet]

با سلام...
در رابطه با راست چین کردن، ابتدا فرم را انتخاب سپس از قسمت Properties (سمت چپ) گزینه RightToLeft را True کنید.

درمورد عکس ها هم آیا عکس ها همیشه ثابت خواهد بود یا ممکنه بعدا تغییر کنه..؟

با سلام و احترام
خیلی ممنونم از توجه شما
عکسها ثابت می مونه، یعنی من عکس موردنظرمو جایگزین می کنم و دیگه ثابت می مونه

Sent from my D5803 using Tapatalk

[Skynet]

با سلام...
در رابطه با راست چین کردن، ابتدا فرم را انتخاب سپس از قسمت Properties (سمت چپ) گزینه RightToLeft را True کنید.

درمورد عکس ها هم آیا عکس ها همیشه ثابت خواهد بود یا ممکنه بعدا تغییر کنه..؟

با سلام و احترام
1- در مورد راست چین کردن تب ، گزینه ای به نام RightToLeft در بخش Properties پیدا نکردم !

2- در مورد عکس هم ، قصد دارم یک عکس با رزولیش 1756 در 712 بصورت Portrait قرار بدم ، درنتیجه ظاهرا" به یک اسکرول بار جهت پیمایش عکس نیاز خواهم داشت !
من یک پست از جناب پارسا دیدم در مورد کد اسکرول بار :
http://forum.exceliran.com/showthrea...5901#post55901

از کد پیمایش عمودی در فرم که ایشان ارائه داده بودند استفاده کردم ولی کل فرم تحت تاثیر اسکرول بار قرار میگیره، اما من قصد دارم در این مثال فقط عکس تحت تاثیر اسکرول بار قرار بگیره !
کد پیمایش عمودی در فرم :

Private Sub UserForm_Activate()With Me
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
End With End Sub

نمونه :


خیلی ممنونم از شما

[Javid Mokhtari]

فعلا به سیستم دسترسی ندارم.ولی در مورد راست چین کردن تب رو نه، خود userform رو انتخاب کنید.

[Skynet]

فعلا به سیستم دسترسی ندارم.ولی در مورد راست چین کردن تب رو نه، خود userform رو انتخاب کنید.

اوکی پیداش کردم خیلی ممنونم

[Skynet]

فعلا به سیستم دسترسی ندارم.ولی در مورد راست چین کردن تب رو نه، خود userform رو انتخاب کنید.

با سلام و احترام خدمت استاد عزیز ، سال نو مبارک ان شالله که سال خوب و پربرکتی همراه با سلامتی در کنار اعضای خانواده داشته باشید.
با راهنمایی ها شما استاد عزیز و Amir Ghasemiyan عزیز
تونستم فایل رو تا اینجا پیش ببرم :


الان تنها دو سوال باقی مونده که اگر محبت کنید بررسی بفرمایید خیلی خیلی ممنون میشم:

1- چطور اسکرول بار رو به عکس متصل کنم که با پیمایش اسکرول مابقی تصویر هم مشخص بشه ؟!
کدی که جناب پارسا در این پست معرفی کردند فکر می کنم بتونه کمک کنه :
http://forum.exceliran.com/showthrea...5901#post55901

در این پست جناب پارسا ذکر کردند که :

« ضمنا" SCROLL BAR ها را مي توان براي فريم هاي داخل يوزرفرم هم به کار بست، براي اين کار همان کدهاي فوق را به کار ببنديد فقط نام فريم مربوطه را بعد از عبارت With Me در کد ها اضافه کنيد، مانند:
With Me.Frame1 »

اما من هر چقدر سعی کردم موفق نشدم در این فرم به شیوه ای که گفتن عمل کنم !

پیمایش عمودی در اسکرول بار :

Private Sub UserForm_Activate()
With Me
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
End With
End Sub  

2- چطور محتوای صفحه " اهداف" رو از صفحه "راهنمای کامل" جدا کنم ؟! چون الان این محتوا در هر دو صفحه دیده میشه !

ممنونم از لطفتون

[Javid Mokhtari]

با سلام و احترام خدمت استاد عزیز ، سال نو مبارک ان شالله که سال خوب و پربرکتی همراه با سلامتی در کنار اعضای خانواده داشته باشید.
با راهنمایی ها شما استاد عزیز و Amir Ghasemiyan عزیز
تونستم فایل رو تا اینجا پیش ببرم :


الان تنها دو سوال باقی مونده که اگر محبت کنید بررسی بفرمایید خیلی خیلی ممنون میشم:

1- چطور اسکرول بار رو به عکس متصل کنم که با پیمایش اسکرول مابقی تصویر هم مشخص بشه ؟!
کدی که جناب پارسا در این پست معرفی کردند فکر می کنم بتونه کمک کنه :
http://forum.exceliran.com/showthrea...5901#post55901

در این پست جناب پارسا ذکر کردند که :

« ضمنا" SCROLL BAR ها را مي توان براي فريم هاي داخل يوزرفرم هم به کار بست، براي اين کار همان کدهاي فوق را به کار ببنديد فقط نام فريم مربوطه را بعد از عبارت With Me در کد ها اضافه کنيد، مانند:
With Me.Frame1 »

اما من هر چقدر سعی کردم موفق نشدم در این فرم به شیوه ای که گفتن عمل کنم !

پیمایش عمودی در اسکرول بار :

Private Sub UserForm_Activate()
With Me
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
End With
End Sub  

2- چطور محتوای صفحه " اهداف" رو از صفحه "راهنمای کامل" جدا کنم ؟! چون الان این محتوا در هر دو صفحه دیده میشه !

ممنونم از لطفتون

با سلام...

شما ابتدا یدونه MultiPage درست کنین سپس داخل Page های اون Frame خودتون رو قرار بدین بعد از کد زیر استفاده کنید:

Private Sub UserForm_Activate()
With Me.Frame1
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 2
End With
End Sub

در Frame های دیگه هم همین کد رو قرار بدین و فقط نام Frame شما هرچی بود اون رو تغییر بدین...

مثلا در اینجا نام Frame ما Frame1 هستش.ولی اگر نام Frame ما مثلا pic بود کد به شکر زیر در میومد:

Private Sub UserForm_Activate()
With Me.pic
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 2
End With
End Sub

[Skynet]

با سلام...

شما ابتدا یدونه MultiPage درست کنین سپس داخل Page های اون Frame خودتون رو قرار بدین بعد از کد زیر استفاده کنید:

Private Sub UserForm_Activate()
With Me.Frame1
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 2
End With
End Sub

در Frame های دیگه هم همین کد رو قرار بدین و فقط نام Frame شما هرچی بود اون رو تغییر بدین...

مثلا در اینجا نام Frame ما Frame1 هستش.ولی اگر نام Frame ما مثلا pic بود کد به شکر زیر در میومد:

Private Sub UserForm_Activate()
With Me.pic
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 2
End With
End Sub

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