Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Hjälp med fil #859 - Trycka ned ett fönster

Postades av 2005-09-14 00:32:32 - Stefan Bergh, i forum visual basic - allmänt, Tråden har 2 Kommentarer och lästs av 635 personer

Hej

Har laddat ner Programarkivet:Trycka ned ett fönster som t.ex ett verktygsfält gör och den fungerar utmärkt!

Som det är nu så dockar den i överkant men jag vill att det ska lägga sig i underkant. HAr försökt på massa olika vis men jag får inte till det. Jag får själva appbaren att hamna rätt men inte att få upp resten av bilden.

Denna kod har rätt storlekar men nu är alltså appbaren överst och jag vill ha den underst.

Public Const ABE_TOP = 1
Public Const ABM_NEW = &H0
Public Const ABM_REMOVE = &H1
Public Const ABM_SETPOS = &H3
Public Const HWND_TOP = 0
Public Const SWP_NOACTIVATE = &H10
Public Const SPI_GETWORKAREA = 48

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

Public Type APPBARDATA
    cbSize As Long
    hwnd As Long
    uCallbackMessage As Long
    uEdge As Long
    rc As RECT
    lParam As Long
End Type

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Public ABD As APPBARDATA
Public MyAppBar As frmKeyboard

Public Sub ShowAppBar()
Dim lResult As Long
Dim apiRect As RECT

   'Open app bar
   Set MyAppBar = New frmKeyboard

   ' Register a new appbar and reserve the screen area.
   Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRect, 0)
   ABD.hwnd = MyAppBar.hwnd
   lResult = SHAppBarMessage(ABM_NEW, ABD)
   lResult = SetRect(ABD.rc, apiRect.Left, apiRect.Top, apiRect.Right, apiRect.Bottom)

   ' Set the desired appbar location.
   With ABD
      .uEdge = ABE_TOP
      .rc.Top = apiRect.Top
      .rc.Left = apiRect.Left
      .rc.Right = apiRect.Right
      .rc.Bottom = 290

      lResult = SHAppBarMessage(ABM_SETPOS, ABD)
      lResult = SetWindowPos(.hwnd, HWND_TOP, .rc.Left, .rc.Top, .rc.Right - .rc.Left, .rc.Bottom, SWP_NOACTIVATE)
   End With

   MyAppBar.Show
End Sub


Hoppas nån vet hur jag ska lösa det för jag kommer inte på det själv :)


Svara

Sv: Hjälp med fil #859 - Trycka ned ett fönster

Postades av 2005-09-14 09:00:21 - Johan Svensson

Hej,

Om du vill att den skall hamna i nederkant så får du deklarera en ny constant:
<code>Public Const ABE_BOTTOM = 3</code>
som du använder istället för ABE_TOP. Det finns fler konstater för höger och vänster sida som du kan hitta i hjälpen.

Vad du menar med "få upp resten av bilden" är jag inte med på. Kan du utveckla din fråga här?


// Johan


Svara

Sv: Hjälp med fil #859 - Trycka ned ett fönster

Postades av 2005-09-14 12:32:26 - Thomas Roman

Jag är inte säker med test att ändra till:
<code>
.rc.Bottom = apiRect.Bottom - 290
</code>


Thomas


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
264
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies