Visual
Basic - Советы Оператор Сочетание операторов Chr(13) + Chr(10) Смена значений двух переменных Функция Environ Смена значение переменной Boolean на противоположное А. Мнацаканян Оператор С помощью
оператора SendKey
можно симитировать нажатие клавиши, котрое записывается в буфер клавиатуры.
Система при этом не отличает такой ввод от 'настоящего' ввода. SendKey Ctrl [,Wait] Wait
– параметр с помощью которого определяется режим ожидания обработки имитации
нажатия клавиши. Если значение параметра False (по умолчанию), то управление возвращается процедуре немедленно после посылки
о нажатии клавиши, если значение True , сообщение
должно быть обработано, прежде чем управление будет передано процедуре. SendKey
“+{F1}” Эта строка посылает имитацию нажатия клавиши [Shift + F1] А. Мнацаканян Оператор Для передачи
фокуса приложению существует оператор AppAtivate
: AppAtivate Title [,Wait] Title –
это текст заголовка приложения. При этом не имеет значения вид написания
– прописными буквами или строчными. Wait
– параметр с помощью которого определяется режим ожидания обработки. Если
значение параметра False
(по умолчанию), то управление возвращается, если значение
True , сообщение должно быть обработано,
прежде чем управление будет передано процедуре. Пример: Private Sub Command1_Click
() Dim RetVal
As Variant RetVal = Shell (“calc.exe”, vbNormalFocus) AppActivate “calculator”, False SendKeys “1{+}2= ^ C% {F4} ”, True Text1.Tex t= Clipboard. GetText() End
Sub В данном
примере запускается стандартная программа калькулятор Windows.
Затем суммируются числа 1 и 2, результат вычисления копируется
в буфер обмена и калькулятор закрывается. Алексей Селиванов Сочетание операторов Chr(13) + Chr(10) можно заменять константой vbCrLf. сообщил о возможности ввода констаны vbNewLine! И правда звучит намного лучше, чем vbCrLf. Если в течении работы программы Вам нужно несколько раз менять значения двух переменных, то используйте эту процедуру: Sub Swap (V1 As Variant,
V2 As Variant) Вызов: Но объявление перменных желательно поменять с Variant на то, которое нужно Вам - меньше памяти надо будет. А эта процедура - универсальна! Чтобы не содержали аргументы V1 и V2, их значения поменяются местами. Назад ABC = Environ ("windir") И ВСЁ! ABC = Environ ("TMP") 'директория временных файлов
TEMP НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!! Вставьте следуюшую процедуру в окно Code, запустите проект, кликните на форме увидите список всех переменных и их значений! Private Sub Form_Click() ТЕПЕРЬ ВСЁ! И теперь все, кто недолюбливает API-функции (по-моему их вообще мало, кто долюбливает) могут пользоваться только этой строчкой! Назад If ABC Then
можно использовать строку: ABC = Not ABC И тогда какое значение не содержала бы переменная ABC, оно (значение) станет противоположным! |