Kuinka pystyn Visual Basicilla havaitsemaan onko jokin noista aktiivisen ikkunan napeista eli pienennys, suurennus tai sulje napeista otettu pois käytöstä?
Minimize, Maximize, Close
3
219
Vastaukset
- Orwell
Näiden ominaisuuksien tutkiminen auttaa joillakin Form:n BorderStyle asetuksilla (1-3).
Close = ControlBox (jos False ei näytä myöskään Maximize tai Minimize, vaikka olisivat True)
MaxButton = Maximize
MinButton = Minimize- 123456
Kiitos jo tästä mutta selostin vähän huonosti nimittäin tuohan havaitsee vain lomake ikkunasta noiden nappien arvot mutta ei olisi mahdollista selvittää samanlailla tuota arvoa vaikka Internet Explorer selaimesta?
app_hwnd = GetWindow(DesktopWindow(), GW_CHILD)
Mitään apua tuosta? - Orwell
123456 kirjoitti:
Kiitos jo tästä mutta selostin vähän huonosti nimittäin tuohan havaitsee vain lomake ikkunasta noiden nappien arvot mutta ei olisi mahdollista selvittää samanlailla tuota arvoa vaikka Internet Explorer selaimesta?
app_hwnd = GetWindow(DesktopWindow(), GW_CHILD)
Mitään apua tuosta?Tällä ohjelmapätkällä saa ainakin selville onko ikkunalla Minimize ja/tai Maximize napit olemassa. Vaatii kuitenkin tarkempaa ikkunan tyylin tutkintaa, jos haluaa tietää onko siellä sulkemisnappi ja ovatko pienneys ja suurennus napit todellakin näkyvissä. Tälläkin funktiolla esim. jos VB:n formissa on ControlBox False, mutta MinButton ja/tai MaxButton ovat True, niin metodi kertoo käyttäjälle näiden olevan näkyvissä, vaikka todellisuudessa eivät käyttäjälle näy.
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Sub Test()
Dim app_hwnd As Long
Dim str As String
Dim lRet As Long
app_hwnd = GetActiveWindow()
lRet = GetWindowLong(app_hwnd, GWL_STYLE)
If lRet And WS_MAXIMIZEBOX Then
MsgBox "Has MaximizeBox!", , ""
End If
If lRet And WS_MINIMIZEBOX Then
MsgBox "Has MinimizeBox!", , ""
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Hoitajalakko peruuntuu, tilalle joukkoirtisanoutumiset
"Tehyn ja Superin hallitukset kokoontuivat tänään toteamaan, että tilanne edellyttää järeämpiä työtaistelutoimia." https://www.hs.fi/politiikka/art-27399230Johan tuli oikea aivopieru Britti Lordilta
Emeritusprofessori Lordi Robert Skidelsky sanoi Suomen rikkovan YYA sopimusta joka on tehty Neuvostoliiton kanssaa 1948. Mitä pir3748074Tehyn Rytkösellä tallessa tekstiviestit A-studiokohussa
https://www.mtvuutiset.fi/artikkeli/a-studiosta-kohu-tehyn-rytkosen-mukaan-ministeri-linden-sai-paattaa-osallistujat-ohjelma-kiistaa-vaitteen/84070681625850William ja Sonja Aiello ERO
Hyvä Sonja! Nyt etsit uudet kaverit ja jätät nuo huume- ja rahanpesu porukat haisemaan taaksesi!542409Oho! Seurapiirikaunotar, ex-missi Sabina Särkkä yllättää tällä harvinaisella kyvyllä: "Mulla on..."
Sabina Särkkä on nähty monissa tv-reality-sarjoissa. Mutta tiesitkö, että Särkällä on valokuvamuisti? https://www.suomi24.fi/viihde/oho-seurapiirikaun62127Se siitä sitten
Kirjoitan tänne kun en sulle voi. En vaivaa sua enää koskaan. En ikinä tarkoittanut olla ahdistava tai takertuva. Tunteet heräsi enkä osannut olla tyy821769Ohhoh! Rita Niemi-Manninen otti ison tatuoinnin - Herätti somekansan: "Täydellinen paikka!"
Rita Niemi-Mannisen suuri, uusi tatuointi on saanut somekansan heräämään talvihorroksesta. Niemi-Manninen otti tatskan rakkauslomalla Aki-miehensä kan201710Ihastumisesta kertominen
Olen päättänyt kertoa tunteistani ihastukseni kohteelle. Erityisen vaikeaksi tilanteeni tekee se, että kyseessä on ns. kielletty rakkaus. Olen jo toi921486Harvoin julkisuudessa nähty Jari Sillanpää, 56, julkaisi uusia kuvia - Karisti Suomen pölyt jaloista
Huumekohun jälkeen matalaa profiilia pitänyt Jari "Siltsu" Sillanpää on ollut vaitonainen elämästään. Tänä keväänä miehen some on ollut hiljainen. Nyt71458Taas Venäjän tiedoittaja akka Varoitti Suomea ja Ruotsia liittymästä Natoon
Juuri sopivasti julkaistu varoitus, kun Suomen eduskunta alkaa klo 13:50 käsitellä asiaa suorassa TV 1:n lähetyksessä. ILtasanomat.4401393