Always On Top For Object

[vbprogramer]

سلام به همراهان همیشگی
خسته نباشید دوستان

میخواستم ببینم چه طوری میتونم یک عنصر را always on top کرد
منظورم بیشتر روی command است در واقع می خواستم یک command را روی مدیا پلیر قرار بدم و مدیا پلیر من خاصیت full screen داشته باشه و آن command از دید من خارج نشه
?Ok :wink:

[(سیدشریفی)]

اگر منظورتان را درست متوجه شده باشم برروی کنترل command کلیک راست کنید و از منوی باز شده گزینه Bring to Front را انتخاب نمایید .
:)

[حامد مصافی]

سلام vbprogramer :wink:


Object.ZOrder vbBingToFront

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


Object.ZOrder vbSendToBack

بای
:mrgreen:

[vbprogramer]

خیلی ممنون دوستان از جوابتون
ولی روی MediaPlayer با خاصیت FullScreen کار نمی کنه :cry:
من می خواهم وقتی mediaPlayer من خاصیت Full Screen دارد دیگه قرار نباشه آن را کوچک کنم تا command رو ببینم

[حامد مصافی]

:متفکر:
از کدوم کنترل و چه ورژنی استفاده کردی؟
و چطوری اون رو تمام صفحه می کنی؟
:idea:

[vbprogramer]

من از microsoft active movie یا همان amovie.ocx استفاده کردم
و خاصیت full screen آن را true کردم
فقط خودش نشان داده میشه و عناصر زیرش حتی با آن روش شما هم نشان داده نمی شن :(

[حامد مصافی]

اگه اشتباه نکنم این کنترل هنگام Full Sceen شدن از DirectX استفاده می کنه همین باعث میشه که روی صفحه نمایش فقط خودش ظاهر بشه
برای حل این مشکل ابتدا خاصیت BoderStyle فرم رو به None ست کن و بعد کد زیر رو اضافه کن



Private Sub Form_Load()
Move 0, 0, Screen.Width, Screen.Height
End Sub

Private Sub Form_Resize()
ActiveControl.Move 0, 0, Width, Height
End Sub


امیدوارم مشکلت حل بشه :wink:

[vbprogramer]

آقا خیلی ممنون میرم امتحانش کنم

[vbprogramer]

دوست عزیز ممنون
ولی بازم نشد :(
یکی بگه من چه کار کنم ؟ :cry:

[حامد مصافی]

اینم نسخه آماده اش :تشویق:
ببخشید چون توی کافی نت بودم نتونستم کاملتر بنویسم :sorry:

اینو خودم امتحان کردم :sunglass:

[vbprogramer]

آقا خیلی ممنون از جوابتون :wink:
ولی عنصر من activemovie بود نه mediaplayer ولی بازم ممنون امتحان می کنم شاید برای اون هم کار کرد
اگه کسی تونست برام بفرسته (البته با activemovie )
:تشویق:

[vbprogramer]

میشه در باره خط زیر توضیح بدین چه کار کردین ؟

picKeys.Visible = Y < 1000

و برای چی از اون استفاده کردین؟ :متفکر:

[حامد مصافی]

ببخشید می خواستم یه قسمت به برنامه اضافه کنم ولی چون توی کافی نت بودم وقت نشد ! :sorry:

در مورد Active Movie هم باید بگم که تو این کامپیوتر کافی نت مشکل داشت :-x واسه همین مجبور شدم از WMM استفاده کنم :(

[vbprogramer]

برای Activemovie کار نمی کنه :-x :cry: