Russian version
English version
| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |
 
 
 
IT-
 
 
 
RSS-

Windows

, VB . ( !) Windows. , .

'
' Windows,
' - (100, 100, 10600, 5900)
' ,
'
Public Sub RestoreWindowsPos(frm As Form, Optional whNo As Boolean = False)
Dim KEY_STRING As String

KEY_STRING = APP_NAME & "\" & KEY_SETWINDOW
' Windows
frm.WindowState = GetSetting(KEY_STRING, frm.Name, CUR_STATE, 0)
' "" ,
If GetSetting(KEY_STRING, frm.Name, CUR_STATE, 0) = 0 Then
frm.Left = GetSetting(KEY_STRING, frm.Name, CUR_X, 100)
frm.Top = GetSetting(KEY_STRING, frm.Name, CUR_Y, 100)
If whNo Then Exit Sub
frm.Width = GetSetting(KEY_STRING, frm.Name, CUR_dX, 10600)
frm.Height = GetSetting(KEY_STRING, frm.Name, CUR_dY, 5900)
End If
End Sub

'
' Windows
Public Sub SaveWindowsPos(frm As Form)
Dim KEY_STRING As String

KEY_STRING = APP_NAME & "\" & KEY_SETWINDOW
' Windows
SaveSetting KEY_STRING, frm.Name, CUR_STATE, frm.WindowState
SaveSetting KEY_STRING, frm.Name, CUR_X, frm.Left
SaveSetting KEY_STRING, frm.Name, CUR_Y, frm.Top
SaveSetting KEY_STRING, frm.Name, CUR_dX, frm.Width
SaveSetting KEY_STRING, frm.Name, CUR_dY, frm.Height
End Sub

( ) APP_NAME, KEY_SETWINDOW, CUR_STATE, CUR_X, CUR_Y, CUR_dX, CUR_dY


     
 
 
  : 29.06.2006  

| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |

: Silicon Taiga    
Rambler's Top100 Rambler's Top100