Alternate ShrinkFormUnload
Shrink Window on Unload
AI
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.
மூலக் குறியீடு
Public Sub SqueezeWindow_FormUnload(p_FrmCurrent As Form, p_dblIncrement As Double) ' Comments : ' Parameters: p_FrmCurrent ' p_dblIncrement - ' Modified : ' ' ------------------------------- On Error GoTo PROC_ERR Do While (p_FrmCurrent.Height > 405 Or p_FrmCurrent.Width > 1680) p_FrmCurrent.Height = p_FrmCurrent.Height - p_dblIncrement p_FrmCurrent.Width = p_FrmCurrent.Width - p_dblIncrement DoEvents Loop DoEvents PROC_EXIT: p_FrmCurrent.Hide DoEvents Unload p_FrmCurrent Exit Sub PROC_ERR: MsgBox Err.Description Resume PROC_EXIT End Sub
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது