Keskustelu: Ohjelmointikysymykset: VB6: Harmaa ruksi

Miten saa Visual Basic ohjelmassa harmaan ruksin (ruksi josta suljetaan ohjelma)?

Tarkotakko, että sitä ohjelmaa ei saa suljettua siitä ruksista? Laita formin ControlBox-ominaisuus falseks.

Ton kyl tiesin, mut saaks sitä ruksii mitenkää sillee, että se ruksi näkyy kyl siin mut se on sillee harmaana ettei se ohjelma sammu vaik painais siit?

Haluat siis himmentää ikkunan sulkevan ruksin niin, että se näkyy, mutta siitä ei voi painaa. Seuraavassa listauksessa olevan HimmennaRuksi-aliohjelman pitäisi tehdä näin. Temppu onnistuu poistamalla järjestelmävalikosta (se, mikä tulee esille ohjelman kuvaketta painamalla) Sulje-kohta. Tein ohjelman XP:llä, enkä osaa sanoa kuinka hyvin se toimii vanhemmilla Windowseilla.

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&

Private Sub Form_Load()
    HimmennaRuksi
End Sub

Sub HimmennaRuksi()
    RemoveMenu GetSystemMenu(Me.hwnd, False), SC_CLOSE, MF_BYCOMMAND
End Sub

Ui jui! Kiitos ihan älyttömästi! Tota lähdekoodia oon yrittäny saada jo tosi pitkään!