عدم تغيير مكان پنجره توسط كاربر

[kitcat_m18]

سلام
من نياز دارم كه از يك فرم در حالت FixedSingel استفاده كنم (مي خوام از اسكين استفاده كنم)
حالا مي خوام تو اين حالت كاربر نتونه پنجره رو جا به جا كنه.

دنبال OCX يا ماژول مربوط به گذاشتن دكمه هاي اضافي كنار Minimize و Maximize هم مي گردم.

با تشكر :لبخندساده:

[warrior_hamed]

دوست عزیز fixed single رو کلا بیخیل شو بزن رو 0-none اونوقط یه OCX خودت بساز بزار اون بالا:گیج:
اگه حال نداری
1-یه frame بزار اون بالا میخوای با شکلای گرافیکی یه ضرب در خوشگل طراحی کن
2-خاصیت border style برای frame رو بزار رو 0-none
3-روی frame دبل کن در قسمت کد بزن رو حالت click
مثلا برای exit:
Private Sub Frame1_Click()
end
End Sub

[warrior_hamed]

یه روش خیلی ساده هم هست اگه فقط میخوای از اسکین استفاده کنی
1-یه تایمر میزاری intervalشو میزنی 1
2-در قسمت کد مینویسی:
Private Sub Timer1_Timer()
Form1.Top = 1
Form1.Left = 1
End Sub

[kitcat_m18]

عجب :گیج:

ديگه چيزي بلد نيستي اينجا بنويسي؟؟؟:متفکر:

[محسن واژدی]

من نياز دارم كه از يك فرم در حالت FixedSingel استفاده كنم (مي خوام از اسكين استفاده كنم)
حالا مي خوام تو اين حالت كاربر نتونه پنجره رو جا به جا كنه. سلام علیکم
کد زیر بررسی کنید: Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION& = &H400&
Public Sub FormMoving(fForm As Form, Optional Enabled As Boolean = True)
Dim ihMnu&
Call GetSystemMenu(fForm.hwnd, True)
If Enabled Then
Call GetSystemMenu(fForm.hwnd, True)
Else
If fForm.BorderStyle = vbSizable Then
ihMnu& = GetSystemMenu(fForm.hwnd, False)
RemoveMenu ihMnu&, 1, MF_BYPOSITION&
Else
Call GetSystemMenu(fForm.hwnd, True)
ihMnu& = GetSystemMenu(fForm.hwnd, False)


RemoveMenu ihMnu&, 0, MF_BYPOSITION&
RemoveMenu ihMnu&, 0, MF_BYPOSITION&
End If
End If
End Sub

برای مثال:
Private Sub Command1_Click()
FormMoving Me, False
End Sub


موفق باشید

[سید حمید حق پرست]

سلام علیکم

من نياز دارم كه از يك فرم در حالت FixedSingel استفاده كنم (مي خوام از اسكين استفاده كنم)
حالا مي خوام تو اين حالت كاربر نتونه پنجره رو جا به جا كنه.
خب برای اینکار کافیه فقط رویداد Moveable فرم را False کنید

موفق باشید


یا علی (ع)

[Veteran]

خب برای اینکار کافیه فقط رویداد Moveable فرم را False کنید
جالب بود.تاحالا توجه نکردم به این/

[سید حمید حق پرست]

دنبال OCX يا ماژول مربوط به گذاشتن دكمه هاي اضافي كنار Minimize و Maximize هم مي گردم.سورس زیر را بررسی کنید

موفق باشید


یا علی (ع)