Keskustelu: Ohjelmointikysymykset: VB6: Apua (VB)

Voisiko joku kertoa minulle millä koodi pätkällä saa ohjelman piilotettua ja sen kuvake olis tuolla tetäväpalkissa kellon vieressä ja siitä kun painaa niin saisi valittua joitakin käskyjä mitä se tekisi esim. sulkee ohjelman tai avaa ohjelman nokan eteen !! ja vielä miten sen kuvaketta voisi muuttaa !!

https://www.ohjelmointiputka.net/koodivinkit/23642-vb6-kuvakkeen-lisäys-systemtray-hin

kiitos

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   X = X / Screen.TwipsPerPixelX
   Select Case X
       Case WM_RBUTTON
           Caption = "Oikea"
       Case WM_LBUTTON
           Caption = "Vasen"
       Case WM_RBUTTONDBLCLK
           Caption = "Oikea tupla"
       Case WM_LBUTTONDBLCLK
           Caption = "Vasen tupla"
       Case WM_MOUSEMOVE
           Caption = "Hiiri liikkui"
   End Select
End Sub

Toi koodipätkä ei toimi mikä vikana !!!!

Eikös tuo X sisällä vain hiirikursorin X-koordinaatin

Sanottakoon sen verran, että vaikka koodi on lisäämäni en siitä puoliakaan ymmärtänyt, mutta sen ymmärsin, että tuo X sisältää tällä kertaa jotain muuta. Ja kyllä sen koodi silloin ainakin toimi kun sitä kokeilin.

Jos et ymmärrä koodia, se ei varmaan ole sinun tekemää? Tällöin tulee ilmoittaa koodin tekijän nimi.

lainaus:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   X = X / Screen.TwipsPerPixelX
   Select Case X
       Case WM_RBUTTON
           Caption = "Oikea"
       Case WM_LBUTTON
           Caption = "Vasen"
       Case WM_RBUTTONDBLCLK
           Caption = "Oikea tupla"
       Case WM_LBUTTONDBLCLK
           Caption = "Vasen tupla"
       Case WM_MOUSEMOVE
           Caption = "Hiiri liikkui"
   End Select
End Sub

Tuon pystyisi tehdä (ehkä) helpommallakin tavalla, mutta en kerro sitä...vielä :) ja mihin sinä tuota edes tarvitset?