на главную Dosugoff
Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
RuWeb.net - гибкий хостинг
Закажи рекламу на Rambler.ru, Mail.ru, Aport.ru! От 130 руб. за все!


Помощь проекту

Visual Basic

Страница: 1 2 3 4 5 6 7 8 9 10 11
  1. Как в Visual Basic реализовать задержку?
  2. Как в Visual Basic реализовать незакрывающующся форму?
  3. Как в Visual Basic редактировать ячейку Grid?
  4. Как в Visual Basic сделать окно активным?
  5. Как в Visual Basic сделать окно программы поверх остальных окон?
  6. Как в Visual Basic сделать форму неподвижной?
  7. Как в Visual Basic скрыть или показать окно?
  8. Как в Visual Basic скрыть программу в Менеджере задач?
  9. Как в Visual Basic сменить логическое значение?
  10. Как в 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 тогда установка сохранится
Страница: 1 2 3 4 5 6 7 8 9 10 11
Система авторегистрации в каталогах, статьи про раскрутку сайтов, web дизайн, flash, photoshop, хостинг, рассылки; форум, баннерная сеть, каталог сайтов, услуги продвижения и рекламы сайтов
Dosugoff2008.narod.ru Огромное спасибо всем кто, так или иначе, участвовал в создании этой коллекции
Hosted by uCoz