Keskustelu: Ohjelmointikysymykset: VB6: Työkalupalkki VB:llä

Miten voisi tehdä sellaisen Office-työkalupalkki tyylisen palkin vaikka ruudun reunaan?

Teet formin ja pistät sen kooksi vaikka että 50pixeliä leveä ja ruudun korkuinen ja väännät siitä layoutista sen ruudun reunaan ja pistät vaan siihen nappuloita sitten... jos nyt tota tarkoitit

Voiko siitä tehdä sellaisen että se on aina päällimmäisenä?

https://www.ohjelmointiputka.net/koodivinkit/23524-vb6-aina-päälimmäisenä

Miten sen ohjelman voi hävittää siitä alapalkista (jossa Start/Käynnistä-nappi sijaitsee)? hwnd:illä taas vai?

Klikkaa sitä alapalkin boxia oikeella korvalla ja paina sulje. hei ajattele vähän ennen kun kysyt :)

Joo mutta tarkoitan että ohjelma olisi vielä päällä ja toi homma tehtäis suoraan koodista. Idioottinako minua pidät?

Miten voisi saada formille JavaScriptimäiset onMouseOn ja onMouseOut-tapahtumat?

lainaus:

Miten sen ohjelman voi hävittää siitä alapalkista (jossa Start/Käynnistä-nappi sijaitsee)? hwnd:illä taas vai?

Laita formin ShowInTaskbar-ominaisuuden arvoksi False.

lainaus:

Miten voisi saada formille JavaScriptimäiset onMouseOn ja onMouseOut-tapahtumat?

Formin MouseMove-tapahtumaan siirrytään aina, kun hiirtä liikutetaan formin päällä.

Mutta tarkoitan että se näkisi suoraan onko osoitin formin päällä vai ei

Silloin tarvitaan API-funktioita. Seuraava ohjelma valvoo kokoajan hiiren tilaa (laita formille Timer-kontrolli), mutta ohjelma toiminee kunnolla vain silloin, kun ikkuna on aktiivinen.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Form_Load()
    'hiiren tila tarkistetaan 50 millisekunnin välein
    Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
    Dim x As Long
    Dim hiiri As POINTAPI, ikkuna As RECT
    'selvitetään hiiren paikka
    x = GetCursorPos(hiiri)
    'selvitetään ikkunan koordinaatit
    x = GetWindowRect(Me.hwnd, ikkuna)
    'tutkitaan, onko hiiri ikkunan alueella ja näytetään tulos otsikkorivillä
    If hiiri.x > ikkuna.Left And hiiri.y > ikkuna.Top And hiiri.x < ikkuna.Right And hiiri.y < ikkuna.Bottom Then
        Me.Caption = "Hiiri on päällä."
    Else
        Me.Caption = "Hiiri ei ole päällä."
    End If
End Sub

Topi91: Formin saat pois siitä Käynnistä-palkista näin:

Private Sub Form_Load()
Me.TaskVisible = False
End Sub

Eikös toi antin juttu luule että hiiri on päällä silloinkin kun siinä on joku toinen ikkuna edessä?
Ja toi taskvisible vaan settaa sen pois näkyvistä sieltä tehtävienhallinnasta. anttihan sanoi jo tuosta ShowInTaskbarista.

Entä miten saisi ohjelman kokonaan pois tehtävänhallinnasta (eli CTRL-ALT-DELin siitä CLOSE PROGRAM-valikosta? tietysti se jossain näkyisi, muttei siinä?...