زوم در vb 6

[abo1524]

سلام دوستان من يه فرم دارم كه چند تا تصوير داخلش هست حالا ميخوام با كليك كردن روي هر كدام از عكس ها اون عكس بيايد وسط فرم و اندازه اش دوبرابر بشود و پس از 3ثانيه حذف بشود ممنون مي شوم اگه كسي سورسشو برام بزاره

[Akbar"22"]

سلام دوستان من يه فرم دارم كه چند تا تصوير داخلش هست

سلام
از کنترل image برای قرار دادن تصویر استفاده کنید . و مشخصه ی Stretch آنرا TRUE کنید تا تمام تصویر در اندازه ی دلخواه شما که برای کنترل قرار دادید ، نمایش داده شود .

حالا ميخوام با كليك كردن روي هر كدام از عكس ها اون عكس بيايد وسط فرم

برای این کار که بتونید کنترلی رو در وسط یک فرم قرار بدید از دستورات زیر می توانید استفاده کنید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

و اندازه اش دوبرابر بشود

خوب برای اینکار شما می توانید مشخصه های Width و Height رو ضربه به 2 کنید به طور مثال کد زیر :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

تذکر » اگر شما تصویر مورد نظر را در وسط فرم دوبرابر کنید تغییراتی در مکان آن انجام می شود ، که باید بعد از دوبرابر کردن تصویر آنرا به وسط فرم انتقال دهید ، و برای این کار هم نیز می توانید از دستورات ذکر شده در بالا استفاده کنید . یعنی اینکه بعد از دستورات دوبرابر کردن باید دستورات قرار دادن در وسط فرم را اجرا کنید .

و پس از 3ثانيه حذف بشود

برای حذف بعد از 3 ثانیه شما می توانید از کنترل Timer استفاده کنید . که برای اینکار یک کنترل Timer به فرم اضافه کنید و مشخصه ی Interval آنرا 3000 تا بعد از 3 ثانیه فرا خوانده شود . درون پنجره ی کد Timer این گونه بنویسید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون مي شوم اگه كسي سورسشو برام بزاره

فکر کنم همه چیز گفته شد ، و سورسش هم قرار داده شد .

[abo1524]

آقا اكبر دستت درد نكنه واقعا كمك كردي ولي مشكل اينجاست كه اگر بر روي تصوير كليك هم نكنيم باز تصوير حذف ميشه
به نظر ميرسه كه يك شرط ميخواد كه اگر تصوير دو برابر شد تايمر فعال بشه اگه زحمتشو بكشي ممنون ميشم

[Akbar"22"]

آقا اكبر دستت درد نكنه واقعا كمك كردي ولي مشكل اينجاست كه اگر بر روي تصوير كليك هم نكنيم باز تصوير حذف ميشه
به نظر ميرسه كه يك شرط ميخواد كه اگر تصوير دو برابر شد تايمر فعال بشه اگه زحمتشو بكشي ممنون ميشم

ببین دوست من ... اگر شما مشخصه ی Enabled ، کنترل Timer رو در ابتدا False کنی امکان نداره که دستورات درون Timer اجرا بشنند . خوب ؛ حالا شما مشخصه ی گفته شده را False کردید بعد از آن شما باید در رویداد Click کنترل Image مشخصه ی Enabled ، کنترل Timer رو True کنی تا Timer شما فعال گردد تا بعد از 3 ثانیه دستورات درون Timer اجرا شوند . کد هاش هم به صورت زیر است :

-----------------------------------------------------------------------------
کد فعال کردن تایمر :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

-----------------------------------------------------------------------------
کد غیر فعال کردن تایمر بعد از حذف عکس از فرم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

********
اگر مشکلات حل نشد ، در قالب یک برنامه کوچک برای شما آپلود کنم ؟

[abo1524]

آقا اكبر ممنون دستت درد نكنه مشكلم رو حل كردي ولي اگه زحمتي نيست اونو واسم آپلودش كن
و اگه زحمتي نيست اين هم اضافه كن كه اگه ديگه هيچ تصويري روي فرم باقي نموند فر م به صفحه ديگه يا يه فرم ديگه انتقال پيدا كنه. منظورم اينه كه نمي خوام از دكمه استفاده كنم مي خوام اتوماتيك بعد از اين كه همه تصاوير حذف شدن فرم به صفحه بعدnext formبره باز هم ممنون
آقا اكبر اينجا من هر چي دنبال دكمه تشكر گشتم پيدا نكردم تا حداقل يه تشكر خشك و خالي بكنم
راستي فكر كنم اين دستورات براي يه تصوير هستش من چند تا تصوير دارم

[Akbar"22"]

آقا اکبر ... آقا اکبر ... آقا اکبر ... (شرمندم نکن )

آقا اكبر ممنون دستت درد نكنه مشكلم رو حل كردي ولي اگه زحمتي نيست اونو واسم آپلودش كن

بی خیال آپلود شدم ...

و اگه زحمتي نيست اين هم اضافه كن كه اگه ديگه هيچ تصويري روي فرم باقي نموند فر م به صفحه ديگه يا يه فرم ديگه انتقال پيدا كنه. منظورم اينه كه نمي خوام از دكمه استفاده كنم مي خوام اتوماتيك بعد از اين كه همه تصاوير حذف شدن فرم به صفحه بعدnext formبره باز هم ممنون

داداشی مگه ما برای حذف یک تصویر این دستور رو نمی نوشتیم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

؟
؟
؟
خوب ، الان شما فرض کن چهار تا تصویر داریی تو فرمت که شما یکبار روش کلیک میکنی حذف میشند . اگر ما بعد از حذف شدن تصویر ها از روی فرم یک شرط بزاریم که اگر چهار تا تصویر هامون حذف شدند برو به فرم بعدی ... عین کد زیر :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

آقا اكبر اينجا من هر چي دنبال دكمه تشكر گشتم پيدا نكردم تا حداقل يه تشكر خشك و خالي بكنم

واقعا دکمه تشکر از من حذف شده ، نیست ؟

راستي فكر كنم اين دستورات براي يه تصوير هستش من چند تا تصوير دارم

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
معذرت میخوام ، خیلی معذرت میخوام !!!!!!!!!!
!
!
خوب کاری نداره که ، شما شکل دستورات بلدی برای اون یکی ها هم خودت بنویس . از خودت خلاقیت نشون بده ...

[abo1524]

خوب کاری نداره که ، شما شکل دستورات بلدی برای اون یکی ها هم خودت بنویس . از خودت خلاقیت نشون بده ...[/QUOTE]
گفتم كه مبتدي هستم
من تعدا تصاوير رو كه گفتم منظورم واسه تايمر بود
چون شما نوشتيد
Private Sub Timer1_Timer()

Image1.Visible = False

End Sub
حالا فرض كنيد كه ما دو تا تصوير داريم پس ميشه
Private Sub Timer1_Timer()

Image1.Visible = False
Image2.Visible = False

End Sub
يعني دوتا تصوير با هم حذف ميشن نمي دونم منظورم رو تونستم برسونم يانه؟
باز هم ممنون
راستي دكمه تشكر واسه شما نيست
باز هم تشكر

[Akbar"22"]

گفتم كه مبتدي هستم
من تعدا تصاوير رو كه گفتم منظورم واسه تايمر بود
چون شما نوشتيد
Private Sub Timer1_Timer()

Image1.Visible = False

End Sub
حالا فرض كنيد كه ما دو تا تصوير داريم پس ميشه
Private Sub Timer1_Timer()

Image1.Visible = False
Image2.Visible = False

End Sub
يعني دوتا تصوير با هم حذف ميشن نمي دونم منظورم رو تونستم برسونم يانه؟
باز هم ممنون
راستي دكمه تشكر واسه شما نيست
باز هم تشكر

بله همین طور هستش image1 - image 2 و ...

برای هر یک از تصاویر دستوراتی جدا باید نوشت .

[abo1524]

مثل اينكه نتونستم منظورم رو برسونم
خوب اگه اينو داشته باشيم

Private Sub Timer1_Timer()

Image1.Visible = False
Image2.Visible = False

End Sub
با كليك كردن روي يه تصوير دوتاشون با هم حذف مي شن كه من اينو نمي خوام


واسه تايمر بايد چيكار كنيم كه دستو رو واسه يه تصوير اعمال كنه نه همه

‫یک متغیر به نام i به طور سراسری تعریف کنید که مقدار اولیه اون صفر باشه و بعد در رویداد کلیک هر کنترل عدد متناظر رو به اون نسبت بدین. در تایمر هم با استفاده از یک select - case کد رو مدیریت کنید. با این کار میتونید بگید که کدوم کنترل محو بشن

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

[Akbar"22"]

مثل اينكه نتونستم منظورم رو برسونم
خوب اگه اينو داشته باشيم

Private Sub Timer1_Timer()

Image1.Visible = False
Image2.Visible = False

End Sub
با كليك كردن روي يه تصوير دوتاشون با هم حذف مي شن كه من اينو نمي خوام


واسه تايمر بايد چيكار كنيم كه دستو رو واسه يه تصوير اعمال كنه نه همه

‫یک متغیر به نام i به طور سراسری تعریف کنید که مقدار اولیه اون صفر باشه و بعد در رویداد کلیک هر کنترل عدد متناظر رو به اون نسبت بدین. در تایمر هم با استفاده از یک select - case کد رو مدیریت کنید. با این کار میتونید بگید که کدوم کنترل محو بشن

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

چون مبتدی هستی میگم ، اینی که من تو پست قبلی گفتم image1 و image2 رو بنویس ، یک خطای منطقی بود ، حواسم نبود .

اون کاری که دوست شما گفته درسته ، ولی پیشنهاد من اینه که خودتو زیاد با مقادیر درگیر نکن و برای هر کدوم از تصاویری که داریی ، کنترل تایمر بزار . کد زیر :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

.
.
.