الرئيسية › ASP_Volume3 › * Ultimate Window Handler! *
Advertisement
ASP_Volume3 Windows System Services #44658

* Ultimate Window Handler! *

Matt Evans
★★★★★
4.8 · التحميلات: 2,341

This is the ultimate window handler. This can *Hide a window* *Show a window* *Minimize Window* *Maximize Window* *Close Window*

AI

ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

كود المصدر
original-source 
Sub WindowHandle(win,cas as long)
'by storm
'Case 0 = CloseWindow
'Case 1 = Show Win
'Case 2 = Hide Win
'Case 3 = Max Win
'Case 4 = Min Win
Select Case cas
Case 0:
Dim X%
X% = SendMessage(win, WM_CLOSE, 0, 0)
Case 1:
X = ShowWindow(win, SW_SHOW)
Case 2:
X = ShowWindow(win, SW_HIDE)
Case 3:
X = ShowWindow(win, SW_MAXIMIZE)
Case 4:
X = ShowWindow(win, SW_MINIMIZE)
End Select
'any questions e-mail me at storm@n2.com
End Sub
Upload
التعليقات الأصلية (3)
مسترجع من Wayback Machine