ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 08.08.2000

Diese Seite wurde zuletzt aktualisiert am 08.08.2000
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Desktop einmal anders

Zurück...


Anzeige

(-hg) mailto:hg_desktopviewmode@aboutvb.de

Eigentlich ist es ja nur eine kleine Spielerei... Aber da der Desktop ja bekanntlich ein ListView-Control ist - warum nicht einfach einmal ausprobieren, wie er in den verschiedenen Ansichten aussieht, analog zur Eigenschaft View?

Wenn Sie erst einmal das richtige Fenster gefunden haben, ist es kein Problem mehr, den gewünschten Stil über eine Nachricht zu setzen... Wozu auch immer das gut und sinnvoll sein mag, überlasse ich Ihnen. Und auch die Überraschung überlasse ich Ihnen, wenn das unter der einen oder anderen Variante der Windows-Betriebssysteme nicht so ganz funktioniert. Aber nett sieht es aus...

Private Type StyleBits
  dwOld As Long
  dwNew As Long
End Type

Private Declare Function GetWindowLong Lib "user32" _
 Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) _
 As Long
Private Declare Function SendMessage Lib "user32" _
 Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" _
 Alias "FindWindowA" (ByVal lpClassName As String, _
 ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" _
 (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Enum ViewModeConstants
  vmIcon
  vmReport
  vmSmallIcon
  vmList
End Enum

Public Sub DesktopViewMode(ViewMode As ViewModeConstants)
  Dim nWnd As Long
  Dim nStyleBits As StyleBits

  Const GW_CHILD = 5
  Const GWL_STYLE = (-16)
  Const LVS_TYPEMASK = &H3
  Const WM_STYLECHANGED = &H7D
  
  nWnd = FindWindow("Progman", "Program Manager")
  nWnd = GetWindow(nWnd, GW_CHILD)
  nWnd = GetWindow(nWnd, GW_CHILD)

  With nStyleBits
    .dwOld = GetWindowLong(nWnd, GWL_STYLE)
    .dwNew = .dwOld
    .dwNew = .dwNew And Not LVS_TYPEMASK
    .dwNew = .dwNew Or ViewMode
  End With
  SendMessage nWnd, WM_STYLECHANGED, GWL_STYLE, nStyleBits
End Sub

Modul modDesktopViewMode (modDesktopViewMode.bas - ca. 1,5 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche



Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer