Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
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 тогда установка сохранится
