Помощь проекту
|
Visual Basic
- Как в Visual Basic реализовать задержку?
- Как в Visual Basic реализовать незакрывающующся форму?
- Как в Visual Basic редактировать ячейку Grid?
- Как в Visual Basic сделать окно активным?
- Как в Visual Basic сделать окно программы поверх остальных окон?
- Как в Visual Basic сделать форму неподвижной?
- Как в Visual Basic скрыть или показать окно?
- Как в Visual Basic скрыть программу в Менеджере задач?
- Как в Visual Basic сменить логическое значение?
- Как в Visual Basic сменить фон Рабочего стола?
Как в Visual Basic реализовать задержку?
Public Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) ' пауза в 5 сек. Sleep 5000
Как в Visual Basic реализовать незакрывающующся форму?
В процедуре формы Form_Unload присвоить переменной Cancel значение 1
Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub
Как в Visual Basic редактировать ячейку Grid?
Private Sub Grid1_KeyPress(KeyAscii As Integer) Grid1.Text = Grid1.Text & Chr(KeyAscii) End Sub
Как в Visual Basic сделать окно активным?
Public Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Как в Visual Basic сделать окно программы поверх остальных окон?
Поместите данный код в модуль
Public 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 Public Const HWND_NOTOPMOST = -2 Public Const HWND_TOPMOST = -1 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1
Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean) If TopPosition Then SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE Else SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE End If End Sub
Поместите эту строку на форму в процедуре загрузки
SetFormPosition Me.hwnd, True
Как в Visual Basic сделать форму неподвижной?
Присвойте свойству формы Moveable значение False, и вашу форму нельзя будет перетаскивать в другое место
Как в Visual Basic скрыть или показать окно?
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Флаги функции,определяющие вид окна:
SW_HIDE = 0 ' Скрыть окно и активизировать другое окно SW_MAXIMIZE = 3 ' Развернуть окно SW_MINIMIZE = 6 ' Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном) SW_RESTORE = 9 ' Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение SW_SHOW = 5 ' Активизировать окно SW_SHOWMAXIMIZED = 3 ' Отобразить окно в развернутом виде SW_SHOWMINIMIZED = 2 ' Отобразить окно в свернутом виде SW_SHOWMINNOACTIVE = 7 ' Отобразить окно в свернутом виде. Активное окно остается активным SW_SHOWNA = 8 ' Отобразить окно в текущем состоянии.Активное окно остается активным SW_SHOWNOACTIVATE = 4 ' Отобразить окно в соответствии с последними значениями позиции и размера.Активное окно остается активным SW_SHOWNORMAL = 1 ' Активизировать и отобразить окно. Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.Приложение должно указывать этот флаг при первом отображении окна
Как в Visual Basic скрыть программу в Менеджере задач?
Private Sub Form_Initialize() App.TaskVisible = False End Sub
Правда в процессах программа присутствовать будет :/
Как в Visual Basic сменить логическое значение?
Самый логичный способ изменить логическое значение:
Dim A as Boolean A = Not A
Как в Visual Basic сменить фон Рабочего стола?
Const SPI_SETDESKWALLPAPER = 20 Const SPIF_SENDWININICHANGE = &H2 Const SPIF_UPDATEINIFILE = &H1
Public Declare Function SystemParametersInfo Lib "User" (ByVal uAction as Long, ByVal uParam as Long, lpvParam As Any, ByVal fuWinIni as Long) As Integer
Private Sub SetDeskTop(ByVal strFileName as String) Dim a as Long 'результирующее значение а = SystemParametersInfo (SPI_SETDESKTOPWALLPAPER, 0, ByVal strFileName, intSPIFlags) End Sub
'здесь: 'intSPIFlags = 0 тогда установка wallpaper будет на одну сессию Windows 'intSPIFlags = SPIF_UPDATEINIFILE или SPI_SENDWININICHANGE тогда установка сохранится
|
|