برداشتن دکمه close از بالای نوار عنوان

[vb_arman]

چگونه می توان دکمه close را حذف نمود ؟

[yavari]

سلام
از Property فرمت ControlBox رو False کن

[sohrab o]

نه یه کد دارم واست میزام

[sohrab o]

Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub

[yavari]

سلام

آقا سهراب ، میشه طریقه فراخوانی سابروتین رو بگید

ممنون

[H_SH_VB]

ساب کار نکردش

[sohrab o]

اینم فراخوانیش
DisableXbutton (Me.hwnd)

[sohrab o]

البته اینارو هم لازم داره

Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

[yavari]

سلام

دست آقا سهراب گل درد نکنه:تشویق: :تشویق: :تشویق:
بابا چقدر کم پیدا شدی؟؟؟

[riyahiyan]

آقا سهراب میشه بگین روش شما چه مزیتی داره.

[omidmehraban]

با روش سهراب میشه با هر پنجره ای این کار رو کرد حتی my computer فقط باید handle از اون پنجره داشته باشی که با دادن اسم پنجره میشه handle اون رو به دست آورد.با توابع API
مثل FindWindow که توضیحش در زیر اومده:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval lpclassName As string,Byval lpWindowName as string) as long
مثلا برای MyComputer با ید موقع فراخوانی بنویسیم:
lpClassName="CabinetWclass" ------------lpwindowName="MyComputer" va baghiyasho agha sohrab zahmatesh mikeshe

[omidmehraban]

با روش سهراب میشه با هر پنجره ای این کار رو کرد حتی my computer فقط باید handle از اون پنجره داشته باشی که با دادن اسم پنجره میشه handle اون رو به دست آورد.با توابع API
مثل FindWindow که توضیحش در زیر اومده:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval lpclassName As string,Byval lpWindowName as string) as long
مثلا برای MyComputer با ید موقع فراخوانی بنویسیم:
lpClassName="CabinetWclass" & lpwindowname="MyComplter" ok

[riyahiyan]

از راهنمایی تون ممنونم.

[sohrab o]

شرمنده آخه یه زده گرفتارم برنامه پشته سره برنامه منم که پول دوست
از شوخی که بگزریم این روش نسبت به روش اول یه برتری داره :
در روش دوستمون تمام دکمه های برداشته می شد اما در این روش میتونید فقط کلید X رو بردارید

[vb_arman]

از همه بچه ها که جواب دادند ممنون .

[vb_arman]

لطفا اگر میشه کمی جامع تر توضیح بده آخه سابش کار نداد .

[riyahiyan]

آقا سهراب متشکرم