|
| |
Fortgeschrittene Programmierung| Re: Die Lösung !!! | |  | | Autor: TekoW | | Datum: 07.02.02 13:09 |
| Ich fühle mich geehrt ;)
Natürlich habe ich nichts dagegen.
Hier noch ein paar Verbesserungen:
Es wird kein Timer benötigt, Tooltips werden normal angezeigt
und Max-/Minbutton können hinzugefügt werden (dazu 'Borderstyle auf '3 - Fester Dialog').
Wird die Form per Minbutton minimiert, erscheint sie allerdings nicht in der
Taskbar sondern auf dem Desktop.
Das kann man mit einem Tip auf eurer Seite ändern, allerdings könnte man
dann gleich eine normale Form benutzen.
Auch Resize lässt sich hinzufügen, würde den Code aber ziehmlich aufblasen.
Wenn es möglich ist schick mir das fertige Tut bitte per EMail !
TekoW
' -----------------Form-----------------
Option Explicit
Private Sub Form_Load()
Call MinMaxButton(Me)
Call TopWindow(Me.hwnd)
End Sub
'-----------------Modul-----------------
Option Explicit
Private 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
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_REFRESH = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or SWP_FRAMECHANGED
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const HWND_TOPMOST = -1
Public Sub MinMaxButton(Form As Form)
Dim Style As Long
With Form
Style = GetWindowLong(.hwnd, GWL_STYLE)
Style = Style Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong .hwnd, GWL_STYLE, Style
SetWindowPos .hwnd, 0, 0, 0, 0, 0, SWP_REFRESH
End With
End Sub
Public Sub TopWindow(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE
End Sub
'--------------------------------- | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
(oT)