کار با رجیستربی | ذخیره موقعیت فرم در رجیستری
| Declarations |
| Dim c As New cRegistry |
| Code |
| With c .ClassKey = HKEY_CURRENT_USER ' You don't need to check if this key already exists ' - the class will create it for you .SectionKey = "Software\" & App.ExeName & "\" & frmThis.Name .ValueKey = "Maximized" .ValueType = REG_DWORD .Value = (frmThis.WindowState = vbMaximized) If (frmThis.WindowState <> vbMaximized) .ValueKey = "Left" .Value = frmThis.Left .ValueKey = "Top" .Value = frmThis.Top .ValueKey = "Width" .Value = frmThis.Width .ValueKey = "Height" .Value = frmThis.Height End If End With |
منبع:www.cesblog.ir
+ نوشته شده توسط CES در پنجشنبه دوم تیر ۱۳۹۰ و ساعت
12:29 |