Во время предвыборной кампании в соцсетях и на «России 1» представили фильмы журналиста Андрея Кондрашова «Валаам», «Крым. Путь на Родину», «Путин». В картинах президент рассказал истории из биографии и близких, поделился своим видением на коммунистическую идеологию. сайт публикует откровения Владимира Путина, который победил в президентских выборах 18 марта.
Бандитский Петербург
Во времена работы в Санкт-Петербурге в 90-е годы Владимиру Путину приходилось спать с ружьем на даче. В фильме об этом эпизоде биографии рассказал друг президента виолончелист Сергей Ролдугин, пишет РИА Новости .
Путин, комментируя эту информацию, отметил, что про «бандитский Петербург» много надуманного, но в целом «ситуация была боевой». По словам Путина, у себя на даче он ложился с помповым ружьем спать, это правда.
«Но времена были такие. Береженого бог бережет», - сказал президент.
Во время безработицы хотел таксовать
Путин рассказал, как чуть не стал подрабатывать таксистом в Санкт-Петербурге, когда ушел с работы из мэрии после проигрыша Анатолия Собчака на выборах градоначальника.
«Я даже думал, что делать, может, в такси подрабатывать? Я не шучу, куда деваться. Двое детей маленьких. Поэтому когда предложили переехать в Москву и заняться юридическими делами в управлении делами президента, я согласился и приехал», - сказал Путин, пишет Газета.Ru.
По его словам, хотя он никогда не хотел уезжать из Санкт-Петербурга, он благодарен, что его пригласили на работу, и он смог обосноваться в Москве.
О месте у «параши»
Президент РФ в фильме «Путин» отметил, что «место» каждой страны и ее национальных интересов в мире нужно определять не ультиматумами, а путем диалога. «У кого чье место и где и чьи национальные интересы - нужно решать не с помощью окриков и ультиматумов, а с помощью диалога», - заявил он.
«Нам пытаются всегда показать, где наше место», - отметил глава государства. Отношение ряда стран к России после распада СССР Путин сравнил с уголовной средой, вспомнив кадры из фильма «Джентльмены удачи», где один осужденный говорит попавшему в камеру воспитателю детсада: «Ваше место у параши!».
«А нам не нравится это место, - подчеркнул президент. - Мы в целом не согласны с такой постановкой вопроса».
Дед «кашеварил» у Ленина и Сталина
Дед по отцовской линии Спиридон Путин работал поваром у Владимира Ленина и Иосифа Сталина, а дед по материнской линии в годы Первой мировой войны проявил сострадание к врагу.
«Да, дед поваром работал сначала у Ленина, а потом у Сталина в одной из подмосковных дач в Горках», - рассказал Путин в фильме.
Сам президент, по его словам, в этих резиденциях не был, «но отец рассказывал, что когда еще дед со Сталиным работал, он ездил туда к нему в гости, и его пускали туда, он наблюдал всю эту жизнь», передает ТАСС.
Вспоминая о деде по материнской линии Иване Шеломове, президент рассказал, что тот воевал в годы Первой мировой войны на русско-австрийском фронте. «Он увидел, что в него из окопа напротив целится солдат армии противника, и дед выстрелил первый», - рассказал Путин.
Продолжение этой истории рассказал режиссер Никита Михалков. По его словам, Иван Шеломов, услышав из вражеского окопа стоны раненого австрийца, не добил его выстрелом, а переполз к нему и перевязал ему рану, а тот в благодарность поцеловал ему руку. «И вот это сострадание свойственно русскому человеку. Я думаю, что это очень характерная часть нашего общего менталитета», - подытожил историю Путин, пишет bfm.ru.
Президентская рыбалка
Министр обороны РФ Сергей Шойгу опроверг предположения, что пойманная президентом России в 2013 году 20-килограммовая щука была якобы «подсажена на крючок специально. Он уверяет: это не было постановочной акцией, пишут «Вести».
«Для того чтобы подсаживать, в такую даль ехать не надо. Вот здесь на Москва-реку сел в лодку - и тебе подсаживают. Чего лететь туда, потом добираться машинами, вездеходами, рекой идти», - пошутил Шойгу.
Путин, рассказывая о пойманной тогда в Туве щуке, признался, что рыба, ставшая его самым крупным уловом, действительно весила 20 килограммов.
«Знаю, что были сомнения по поводу веса в 20 килограммов. Но ее взвешивали. И я думаю, что вряд ли снизу гирьку привешивали. Правда, внутри еще была рыбина приличная, то есть щука ее заглотила. Как бы там ни было, это самая большая моя гордость, потому что крупнее рыбы я больше не добывал», - сказал президент РФ.
Примитивная выдержка из Библии
В фильме «Валаам» президент назвал Моральный кодекс строителя коммунизма «примитивной выдержкой из Библии», а содержание тела Ленина в Мавзолее сравнил с христианской традицией почитания мощей.
По мнению Путина, коммунистическая идеология очень сродни христианству. «Свобода, братство, равенство, справедливость - это все заложено в Священном писании, это все там есть. А Кодекс строителя коммунизма? Это сублимация, примитивная выдержка из Библии, ничего нового они там не придумали», - пояснил президент.
В Крым тайно перебросили бойцов ГРУ и морпехов
Президент РФ Владимир Путин заявил, что в 2014 году для разоружения армии Украины в Крыму российские власти тайно перебросили на полуостров подразделения морской пехоты и ГРУ.
Президент РФ Владимир Путин заявил, что возврат Крыма Украине невозможен ни при каких обстоятельствах.
«Да что Вы, с ума сошли, что ли? Нет таких обстоятельств и не будет никогда», - заявил он в ответ на вопрос о возможности появления таких обстоятельств.
Януковича спасли от засады
Владимир Путин рассказал об операции по спасению экс-президента Украины Виктора Януковича. Службы наблюдения РФ зафиксировали местонахождение Януковича, когда он направился в Крым. «Но когда мне показали карту, стало ясно, что он скоро наткнется на засаду», - рассказал Путин.
Тогда было принято решение направлять кортеж Януковича в сторону берега.
«Мы им дали указание, куда надо выйти - на берег кортежем. И выставили вертолетную группу с отрядом спецназа на борту», - добавил российский лидер.
Сначала Янукович не хотел уезжать с Украины, но когда стало понятно, что в Киеве «договариваться не с кем», его перевезли на территорию России.
Стал молиться на коленях
Путин единолично принял решение о штурме захваченного террористами театрального центра на Дубровке в октябре 2002 года, несмотря на первоначальные данные о том, что пущенный в зал газ не подействовал.
«В планах было взять автобус с заложниками, выехать на Красную площадь и там, на Красной площади, расстреливать их, с целью оказать воздействие на руководство, на спецслужбы. Конечно, мы этого не могли допустить», - цитирует «Интерфакс » слова президента РФ.
По словам Кондрашова, после интервью Путин уже без микрофонов рассказал, что, отдав команду о начале штурма, пошел в часовню в первом корпусе Кремля и впервые в жизни стал молиться перед иконами на коленях. Через какое время директор ФСБ доложил президенту: газ подействовал, штурм идет по плану.
Вертолет Путина с Сечиным обстреляли в Чечне
Вертолет президента РФ Владимира Путина попал под обстрел боевиков в начале 2000-х годов. Инцидент произошел во время посещения им высоты в Чечне, на которой героически погибли псковские десантники. После этого глава государства лично встретился с родителями убитых военных и пообещал им посетить место гибели десантников, несмотря на то что высота еще оставалась в тылу боевиков. Когда президентский борт прибыл на место подвига, его обстреляли.
«Я-то решил, что это на самом деле салют, потому что Новый год был. Это уже летчики сказали: «Какой салют, мы под обстрелом», - поделился российский лидер.
Как рассказал глава «Роснефти» Игорь Сечин, который сопровождал тогда президента, после обстрела Владимир Путин дал указание подготовить резервный вариант маршрута на машинах, но на обратном пути сработал фугас. Сечин отметил, что тогда по счастливой случайности никто не пострадал, пишут «Известия».
Подлодка «Курск». Почему она «утонула»?
«После развала Советского Союза у нас возникли огромные сложности и в экономике, и в социальной сфере, и в армии, разумеется. Это все не могло армии не коснуться. Трагедия «Курска» - это тоже проявление общего состояния вооруженных сил», - заявил президент РФ Владимир Путин.
Он назвал случившееся огромной трагедией: «Что греха таить? Мы хорошо знаем, в каком состоянии тогда находились вооруженные силы. Поэтому, откровенно говоря, ничего удивительного нет, но трагедия колоссальная. Столько людей погибло», пишет «Росбалт».
Захватчики требуют посадки в Сочи. «Сбить!»
7 февраля 2014 года, за час до открытия Олимпиады, Владимиру Путину сообщили о захвате пассажирского самолета турецкой авиакомпании Pegasus. В это время президент ехал в автобусе с руководителями МОК на сочинский стадион «Фишт».
«Где-то на середине пути адъютант мне передал телефон, позвонил один из руководителей оперативного штаба по обеспечению безопасности Олимпийских игр. И докладывает: захвачен самолет, который должен следовать с Украины в Стамбул. Захватчики требуют посадки в Сочи», - рассказал глава государства.
Пилоты успели сообщить, что у одного из пассажиров бомба. Силовики решили поднять боевую авиацию. «Я спросил: что вы предлагаете? И ответ ожидаемый: «В соответствии с планом, предусмотренным в случае подобного развития ситуации… Сбить», - рассказал президент.
По словам Путина, он распорядился действовать в соответствии с планом. Однако очень скоро принял еще один звонок и узнал, что это была «пьяная выходка» одного из пассажиров, а лайнер скоро сядет в Турции.
Легенда о переводчике
5 декабря 1989 года толпа агрессивных людей подошла к особняку КГБ в Дрездене, чтобы заполучить архивы спецслужбы. Переговоры с людьми пришлось вести офицеру советской разведки Владимиру Путину, пишут «Вести».
«Выйдя к людям, я спросил, чего бы они хотели. Они сказали, что хотели бы досмотреть здание. А я ответил, что это здание принадлежит Советской армии, оно не подлежит досмотру в соответствии с межправсоглашением», - рассказал Путин.
«Меня спросили, почему я так хорошо говорю по-немецки? Мне пришлось, как в таких случаях говорят, «ответить по легенде», сказать, что я переводчик», - вспоминает президент.
Факт
Фильмы о президенте РФ Владимире Путине показали и опубликовали во время предвыборной кампании. Глава ЦИК Элла Памфилова заявила, что размещение в соцсетях фильмов о Путине не является нарушением, поскольку избирательное законодательство не регулирует интернет.
Владимир Путин на выборах президента РФ набрал 76,66% после обработки более 99% бюллетеней(утро 19 марта). Впереди - инаугурация и шесть лет четвертого президентства.
Зонд Кассини совершил плановое столкновение с Сатурном и, таким образом, завершил одну из самых успешных космических миссий в истории. Контролеры приказали зонду уничтожить себя, направив его в атмосферу планеты. Он выдержал минуту, прежде чем сгорел в атмосфере. Это решение было принято НАСА, потому что у Кассини закончилось топливо. В течение 13 лет он двигался по орбите вокруг Сатурна и фотографировал планету и его спутники. Кассини мертв, но его наследие живет. Перед тем как космический корабль НАСА сгорел в сентябре прошлого года, он совершил 22 опасных вращения вокруг орбиты в миссии под названием «Гранд Финал». Теперь исследователи анализируют данные из этой миссии, и есть несколько неожиданных результатов.
Магнитное поле Сатурна необычайно плоское
Магнитные поля планет в нашей солнечной системе все наклонены в большей или меньшей степени. Но магнитное поле Сатурна оказалось совершенно прямым, и наши нынешние теории о том, как генерируются эти поля, предполагают, что это должно быть невозможно. Это может означать, что Сатурн образует свое магнитное поле иначе, чем другие планеты нашей Солнечной системы.
У Сатурна многое происходит между его кольцами
Даже кажущееся пустое пространство между поверхностью Сатурна и его кольцами оказалось более интересным, чем мы думали. Здесь существуют сильные связи, которые осуществляются в виде потоковых электрических токов, протекающих между кольцами и верхней атмосферой. Пока еще не ясно, что их вызывает или почему они там находятся, но объединение данных с разных инструментов Кассини может помочь понять это.
Дождь из колец Сатурна
Между внутренними кольцами Сатурна и верхними слоями атмосферы проходит поток мелких частиц, падающих с колец на планету. Кассини обнаружил, что вокруг экватора Сатурна этот с этим дождем падает до 45 000 килограммов пыли, льда и газа каждую секунду. Это эквивалентно приблизительно 1800 автомобилям, падающим в Сатурн каждую минуту. Такой «ливень» означает, что кольца исчезают быстрее, чем считалось до этого. В то время как кольца состоят главным образом из водяного льда, дождь гораздо более разнообразен по составу: аммиак, азот, метан и более сложные органические частицы. Это значительное влияет на химический состав верхних слоев Сатурна. Это падение не было очевидным до Кассини, потому что оно распространено на большой площади и больше похоже на туман, который другими способами было сложно обнаружить и доказать, потому что частицы очень малы.
В итоге, миссия Кассини не ограничилась только красивыми фотографиями Сатурна и его спутников. Практическая польза зонда очень велика и принесла много информации для ученых, которую еще предстоит проанализировать.
Правообладатель иллюстрации TASS Image caption Владимир Путин и Анатолий Собчак в 1997 году
В начале недели на экраны вышла картина "Дело Собчака" Веры Кричевской и Ксении Собчак, посвященная судьбе Анатолия Собчака - первого мэра Петербурга и бывшего начальника Владимира Путина. Президент России стал одним из главных героев фильма и дал для него подробное интервью.
Русская служба Би-би-си рассказывает, что нового о личности Путина стало известно из документального фильма.
Собчак помог Путину покинуть КГБ
Владимир Путин в начале своей работы с Анатолием Собчаком был кадровым сотрудником КГБ в звании подполковника. В интервью для фильма президент рассказал, что даже предупреждал об этом будущего начальника, когда тот пригласил его на должность советника председателя ленинградского Совета народных депутатов. Сам Путин тогда занимал должность помощника ректора Ленинградского государственного университета по международной работе.
"Я ему ответил - вы знаете, я бы с удовольствием пошел бы работать к вам. Но боюсь, что это невозможно... Наверное, я не могу вам об этом говорить, но я, наверное, не нарушу серьезным образом наши правила, могу вам сказать, что я не просто помощник ректора. Я кадровый, действующий сотрудник КГБ", - описывал разговор Путин. По его словам, на это Собчак "в первый и в последний раз ответил": "Ну и фиг с ним".
Путин совмещал работу у Собчака и в органах госбезопасности, однако решил подать в отставку во время путча 1991 года. По словам президента, силовые структуры переворот поддержали и он не мог "метаться туда-сюда" и "быть и там, и там одновременно". Об этом сам Путин уже неоднократно рассказывал ранее, однако в интервью Ксении Собчак он сообщил, что ее отец помог ему и пообещал позвонить Владимиру Крючкову, председателю КГБ.
"Я так удивился немножко, думаю, ну чего. Крючков пошлет его подальше. Он действительно позвонил Крючкову и рапорт был подписан буквально в течение двух-трех дней".
Соперник Собчака на выборах мэра звал Путина в свою команду
Значительная часть фильма "Дело Собчака" посвящена выборам губернатора Петербурга в 1996 году, на которых против Собчака выдвинулся его заместитель Владимир Яковлев.
"Анатолий Александрович его [Яковлева] пригласил на работу, сделал своим заместителем, доверял ему. Ну как же не предал? Предал, конечно. По-другому это не называется", - сказал Путин в интервью для фильма.
Правообладатель иллюстрации Alamy Image caption Собчак в сопровождении Путина на открытии площади Австрии в сентябре 1992 года. Слева от Собчака - нынешний глава Росгвардии Виктор ЗолотовКандидатура Яковлева была предложена в аналитической записке на имя Бориса Ельцина, одним из ее составителей был политолог Алексей Трубецкой (Кошмаров) - об этом он сам говорит в фильме. Другие герои утверждают, что документ Ельцину передали тогдашний руководитель Службы безопасности президента Александр Коржаков и экс-директор ФСБ Михаил Барсуков.
Сам Яковлев в интервью рассказал, что обсуждал с Путиным свое выдвижение: "С Владимиром Владимировичем мы говорили. Он не говорил "не ходи" или "иди". Просто был разговор нормальный". Путин вспоминает этот разговор по-другому. "Он мне предлагал вместе с ним баллотироваться. Я отказался, естественно. Я ему сказал, что для меня это невозможно", - рассказал президент Ксении Собчак.
Карьера Яковлева не закончилась работой в Петербурге. В 2003 году, уже во время президентства Владимира Путина, он стал вице-премьером, после отставки правительства Касьянова полгода работал полпредом президента, а затем возглавил министерство регионального развития. В правительстве Яковлев, который, по словам Путина, "предал Собчака", проработал до 2007 года.
Помогая Собчаку, Путин рисковал навсегда потерять работу в Кремле
Проиграв губернаторские выборы, Собчак остался в центре внимания уже как фигурант уголовного дела о злоупотреблениях в администрации Санкт-Петербурга. По "делу Собчака", как его называли в прессе, он проходил сначала как свидетель, а затем стал обвиняемым в злоупотреблениях на посту мэра.
Анатолий Чубайс, который был советником Собчака, а после его поражения вместе с Путиным уехал на работу в Москву, рассказывает в фильме, что члены администрации президента пытались помочь бывшему начальнику. Отложить арест Собчака, который находился в предынфарктном состоянии, смог лишь работавший в правительстве Борис Немцов, который обратился с личной просьбой к Борису Ельцину. При этом "риски посадки Собчака были высочайшими", говорил Чубайс.
Осенью 1997 года Собчак после допроса в прокуратуре попал в больницу. "Он не гримасничал на больничной койке и ничего не имитировал. Он был болен, его надо было лечить", - рассказывает в фильме Путин. По его словам, он считал своим долгом помочь бывшему начальнику: "И вот почему. Если бы у меня были сомнения в том, что он в чем-то виноват, я бы и пальцем не пошевелил. Но я не просто знал. Я был уверен, я знал на 100%, что он невиновен".
В итоге Путин, который тогда работал замруководителя администрации президента, позвонил своему начальнику Валентину Юмашеву, главе кремлевской администрации и зятю Бориса Ельцина. По словам самого Юмашева, Путин сообщил ему, что "едет спасать" Собчака.
"Путин сказал мне: я не могу это сказать Борису Николаевичу, я понимаю, что он меня не отпустит и не поддержит. Поэтому ставлю в известность вас. Если вдруг случится какая-то неудача, я хотел бы, чтобы вы передали Борису Николаевичу, что я не мог поступить иначе, я обязан был это сделать", - вспоминает Юмашев. Чубайс, комментируя эти события, сказал, что Путин и Юмашев "рисковали головой".
"Я не планировал какой-то умопомрачительной карьеры, с одной стороны, а с другой была судьба Анатолия Александровича, которому я считал себя обязанным. Я думал, конечно, что это может мне повредить, но сомнений в том, как я должен поступить, у меня не было", - говорит Путин в фильме.
Юмашев в интервью рассказал, что предупредил Путина о его отставке в случае неудачи. "Я сказал: Владимир Владимирович, это ваше право, но вы понимаете, что если вдруг все сорвется, вы больше нигде уже не сможете работать, и я буду вынужден вас уволить".
Нарусова впервые подробно рассказала о плане Путина по спасению Собчака
Супруга Собчака, сенатор Совета федерации Людмила Нарусова в интервью Би-би-си говорила о том, что именно Владимир Путин "проинструктировал ее, как все делать, как организовать, как заказать санитарный самолет", чтобы переправить ее мужа на лечение во Францию. Однако именно в фильме "Дело Собчака" она впервые подробно рассказала, в чем состоял этот план.
По словам Нарусовой, в начале ноября, когда Анатолий Собчак был в петербургской больнице, она по телефону, который прослушивался спецслужбами, пригласила гостей якобы на празднование 16-летия Ксении Собчак. Мужа она забрала из больницы на время праздников под расписку.
"Самое главное было предупредить французскую сторону, чтобы встречала машина скорой помощи в аэропорту Бурже. Конечно, тут мне очень помог Владимир Владимирович, который давал четкие инструкции. Причем когда я говорила ему, что все поняла, он смущался и говорил: Людмила Борисовна, повторите", - рассказывает Нарусова в интервью.
По словам жены Собчака, договориться с французской стороной она смогла через агентство Air France, однако зайти туда при слежке было затруднительно. "Поэтому план был такой - я захожу в магазин Trussardi, беру с вешалок разные платья, иду в примерочную. Потом выхожу во внутренний дворик, который совмещен с Air France, захожу туда, спрашиваю определенного сотрудника. Она дала мне телефон, я позвонила, вернулась в Trussardi, купила какое-то платье, потом с красивым фирменным пакетом вышла из магазина и села в машину", - вспоминает Нарусова.
По ее словам, на следующий день в прессе появилась статья о том, что "пока Собчак лежит в реанимации, его дама ходит по дорогим бутикам и покупает шмотки". Так Нарусова поняла, что план сработал.
Сегодня мы обратимся к тому, что изменилось в наших представлениях о единственном (постоянном) естественном спутнике Земли со времён зари космической эпохи.
Спустя четыре десятилетия спустя после того, как человек впервые высадился на Луну, произошла целая куча всего! Сменилось несколько программ и средств передвижения, международные миссии бороздят просторы космоса, а беспилотные корабли изучают Солнечную систему. За прошедшие 20 лет НАСА не так уж много внимания уделяла Луне, но с помощью Лунного орбитального зонда (LRO) за последние десять лет мы собрали о ней достаточно много информации.
За годы наблюдений мы выяснили, что Луна не такой уж холодный мёртвый мир, каким он нам показался, когда астронавты Аполлона оставляли на нём следы с 1969 по 1972-й год. Луна уже не та! Вот несколько замечательных вещей, которые мы узнали.
Пять лет назад, изучая кадры с Узкоугольной камеры LRO (Лунного орбитального зонда), учёные обнаружили 14 утёсов по всей поверхности, похожих на те семьдесят, которые были на снимках с Аполлона. Эти «лопастевидные уступы» привели учёных к мысли, что Луна сжимается по мере остывания. За несколько последних лет были обнаружены тысячи таких уступов, и их расположение предполагает, что они образуются в соответствии с приливным притяжением Земли.
Оказывается, поверхность Луны испещрена более чем двумястами ямами по 900 метров (984 ярда) в диаметре. Первые три были обнаружены японским аппаратом «Кагуя», остальные вычислили с помощью компьютерного алгоритма по снимкам LRO. Как они образовались, неясно, возможно, остались от выходов лавы на поверхность. Возможно, будущие исследователи могли бы использовать это для защиты от радиации и микрометеоритов.
Вот что мы узнали за эти десятилетия о том, как появилась Луна: огромное небесное тело (размером примерно с Марс) врезалось в нашу планету. Очевидно, из-за этого в космос полетели обломки. В результате столкновений этих обломков и образовалась Луна. В прошлом году учёным удалось предварительно обозначить след ударившего тела, иногда называемого Тейей, внутри лунных камней. Оказалось, что содержание изотопов кислорода в образцах, собранных на трёх базах Аполлона, значительно отличается от такового на Земле.
Кратеры усеивают всю Солнечную систему, но вот что примечательно: частота их появления на поверхности планет неодинакова, в зависимости от того, где вы находитесь. Иногда камни сгорают в атмосфере. Иногда это положение объекта (скажем, центр или периферия Солнечной системы) влияет на то, насколько часты метеоритные дожди. Одной из задач LRO является предсказание частотности появления кратеров на поверхности Луны.
Оказалось, что Луна не такое уж мертвенно сухое место, там есть немного водяного льда. Его мало - ещё меньше, чем в пустыне - но он есть. Главный вопрос - хватит ли его для обеспечения лунной колонии. Ранее в текущем году LRO обнаружил, что водород (признак воды), более распространён в изучаемом регионе, а это было южное полушарие, на склонах, обращённых к полюсу. Составленные им карты будут ключевыми при выборе мест для будущих человеческих поселений.
В этом уроке мы научились:
Использовать стандартные окна сообщений Visual Basic для вывода информации.
Использовать окна ввода для простейшего сбора информации.
Создавать нестандартные диалоговые окна.
Интегрировать класс диалоговых окон в будущих приложениях.
УРОК
Работа с мышью
Обработка событий мыши
Перетаскивание
Перетаскивание OLE
Создание «пасхального яйца»
События мыши
До сих пор нам приходилось иметь дело с двумя событиями, связанными с мышью, - Click и DblClick (двойной щелчок). В этом уроке будет рассказано и о других событиях мыши, используемых в Visual Basic. K их числу относятся перемещение мыши и нажатия кнопок - самостоятельно или одновременно с клавишами Shift, Alt и Ctrl Эти события обрабатываются в процедурах MouseDown и MouseUp, а также MouseMove. В последнем событии удобно отображать и скрывать подсказки, когда указатель мыши проходит над кнопками панели инструментов. Различные элементы поддерживают разные события мыши. В этом уроке рассматриваются основные события мыши вместе со способами их применения. В частности, мы напишем небольшую программу, обрабатывающую процедуру перетаскивания. После этого вы будете хорошо представлять себе, какие события мыши следует использовать в ваших элементах.
Событие Click
Событие Click генерируется при щелчке мышью на элементе. Почти все элементы Visual Basic, отображаемые во время выполнения программы, поддерживают событие Click, но чаще всего оно используется для кнопок. Код, находящийся в процедуре события Click кнопки, выполняется при нажатии этой кнопки мышью. Например:
Private Sub cmdOK_Click()
Событие DblClick
Событие двойного щелчка, DblClick, вызывается при двух быстрых последовательных щелчках мышью. Чувствительность двойного щелчка задается при настройке параметров мыши в Панели управления Windows. B списках это событие часто применяется для просмотра свойств, а также для добавления и удаления выделенных строк. Например:
Private Sub lstmembers_DblClick()
Dim m As clsMember
Set m = New clsmember
m.MemberName = lstMembers.Text
m.ShowMemberProperties Set m = Nothing
Обычно двойной щелчок мышью используется для ускоренного выполнения команды меню или нажатия кнопки.
Событие DragDrop
Событие DragDrop генерируется при сбрасывании объекта, перетаскиваемого мышью. Процедура события DragDrop имеет следующий синтаксис:
Private Sub target_DragDrop(Source As Control, X As Single, Y As Single)
Обратите внимание на три параметра - перед тем как выполнять любые дальнейшие действия, можно проверить их значения. Параметр Source содержит имя элемента, сброшенного на текущий объект. Параметры X и Y определяют координаты указателя мыши на момент генерации события DragDrop(). Пользуясь ими, можно задать расположение элемента на приемнике. Более подробная информация о перетаскивании приведена в следующем разделе этого же урока.
Coбытие DragOver
Событие DragOver генерируется при протаскивании объекта над элементом. Процедура события имеет следующий синтаксис:
Private Sub target_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source - имя протаскиваемого объекта. Параметры X и Y определяют координаты указателя мыши. Целая переменная State определяет состояние перетаскиваемого объекта по отношению к приемнику события.
| Параметр State | Назначение |
| Объект входит в границы источника | |
| Объект покидает границы источника | |
| Объект перетаскивается внутри границ источника |
С помощью этого события удобно сообщать пользователям, можно ли в настоящий момент сбросить перетаскиваемый объект. Например, вряд ли стоит разрешать сбрасывание объекта на кнопке; при генерации события DragOver() кнопки можно проверить параметр Source и задать свойству DragIcon значок «сбрасывание запрещено».
Событие MouseDown
Если нажать кнопку мыши и не отпускать ее, генерируется событие MouseDown. Процедура события MouseDown() имеет следующий синтаксис:
Private Sub target_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single).
Как и в других событиях мыши, параметры X и Y определяют положение указателя. Целый параметр Button принимает одно из трех значений.
Сумма этих величин определяет различные сочетания клавиш. Например, значение 6 означает, что были нажаты Ctrl и Alt, a значение 7 показывает, что все три управляющие клавиши были нажаты одновременно. При проверке параметра Shift часто используется ключевое слово And. C помощью вложенных конструкций If...Then можно отслеживать разные клавиши. Например, фрагмент:
If Shift = 6 Then
эквивалентен следующему:
If Shift And 6 Then
MsgBox "Нажаты клавиши Ctrl и Alt"
Событие MouseMove
Событие MouseMove генерируется при перемещении мыши над элементом. В его процедуре можно изменить состояние элемента, находящегося под указателем мыши, например перекрасить в зеленый цвет незаблокированную кнопку при прохождении указателя мыши. Процедура события имеет следующий синтаксис:
X As Single, Y As Single)
Параметры этого события идентичны параметрам события MouseDown. В следующем примере заголовок формы изменяется, когда указатель мыши проходит над кнопкой Exit:
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Me.Caption = "Нажмите, чтобы закрыть приложение"
Аналогичный код можно включить и в процедуры событий MouseMove других элементов. До появления механизма подсказок я часто пользовался этим событием для вывода в строке состояния справочных сообщений.
Событие MouseUp
Если отпустить нажатую кнопку мыши над элементом, генерируется событие MouseUp(). Процедура события имеет следующий синтаксис:
Private Sub target_MouseUp(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Его параметры совпадают с параметрами MouseDown и MouseMove. Во многих новых приложениях для Windows 95 это событие используется вместо Click. Например, в процедуру события MouseUp можно включить оператор End, чтобы пользователь мог продолжить работу с приложением даже после нажатия кнопки выхода. Чтобы отменить выход, следует отвести указатель мыши от кнопки и отпустить нажатую кнопку мыши. В этом случае оператор End не выполняется, поскольку событие MouseUp генерируется для другого объекта.
Перетаскивание
Перетаскивание все чаще используется в Windows-приложениях (например, для регулировки положения разделительной полосы в Windows Explorer). Благодаря ему многие операции выполняются быстрее и проще. Наделить приложение Visual Basic возможностью перетаскивания не так уж сложно. Следующий пример показывает, как это делается:
1. Создайте новый проект типа Standard EXE.
2. Задайте свойству Name формы Form1 значение frmMain, а свойству Caption - значение Перетаскивание.
3. Поместите на форму два списка одинакового размера. Один должен находиться в верхней, а другой - в нижней частях формы.
4. Задайте свойству Name верхнего списка значение lstA, а свойству DragIcon - значение \Graphics\Icons\DragDrop\Draglpg.ico.
5. Задайте свойству Name нижнего списка значение lstB, а свойству DragIcon -значение \Graphics\Icons\DragDrop\Draglpg.ico. Примерный вид формы показан на рис. 11.1.
Рис. 11.1. Приложение с поддержкой перетаскивания
6. Добавьте в процедуру события Form_Load() следующий фрагмент:
Private Sub Form_Load()
lstA,AddItem "Яблоки"
lstA.AddItem "Персики"
lstA,AddItem "Апельсины"
7. Добавьте в процедуру события lstA_MouseDown() следующий фрагмент:
Private Sub lstA_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If lstA.ListCount > 0 Then
8. Добавьте в процедуру события lstA_DragDrop() следующий фрагмент:
Private Sub lstA_DragDrop(Source As Control, X As Single, Y As Single)
If Source = lstB Then
lstA.Additem lstB.Text
lstB.RemoveItem lstB.ListIndex
9. Добавьте в процедуру события lstB_MouseDown() следующий фрагмент:
Private Sub lstB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If lstB.ListCount > 0 Then
10. Добавьте в процедуру события lstB__DragDrop() следующий фрагмент:
Private Sub lstB_DragDrop(Source As Control, X As Single, Y As Single)
If Source = lstA Then
lstB.Additem lstA.Text
lstA.RemoveItem lstA.ListIndex
11. Сохраните и запустите проект.
Верхний список содержит несколько строк с названиями фруктов. Вы можете щелкнуть на любой строке и перетащить ее в нижний список. Когда указатель мыши окажется над ним, отпустите кнопку мыши. Затем строки можно перетащить обратно в верхний список (рис. 11.2).
Рис. 11.2. Перетаскивание строк
Ключевым для этой программы является метод Drag. Обратите внимание - в процедуре события MouseDown() он вызывается с параметром 1, который сообщает элементу о начале перетаскивания. Если параметр равен 0, перетаскивание прекращается. Иными словами, чтобы прекратить перетаскивание, следует присвоить свойствам Тор и Left значения координат x и у указателя мыши и вызвать метод Drag 0. При этом имитируется перемещение объекта, тогда как на самом деле оно выполняется в процедуре события DragDrop().
Наш разговор о перетаскивании подходит к концу. Попробуйте немного поэкспериментировать - развлекайтесь и заодно следите за происходящим. Возможно, вам захочется использовать перетаскивание в своих проектах. Обратите внимание на свойство DragIcon источника, то есть перетаскиваемого объекта. Если не задать его значение, вы увидите лишь контур перетаскиваемого объекта.
Перетаскивание OLE
В Windows 95 появился новый, более универсальный, тип перетаскивания - так называемое «перетаскивание OLE» (OLE drag-and-drop). Сокращение OLE означает Object Linking and Embedding, то есть «связывание и внедрение объектов». Этот тип перетаскивания позволяет перемещать текст, файлы и объекты между элементами, которые выполняют функции контейнеров OLE, - списками, текстовыми и графическими полями. В окне программы Visual Basic предусмотрены некоторые возможности, построенные на основе перетаскивания OLE. При перемещении файлов из Проводника Windows в папку диска С вы также выполняете операцию перетаскивания OLE.
При перетаскивании OLE создается глобальный объект, содержащий перетаскиваемые данные. В процедуре события OLEDragDrop можно получить доступ к содержимому объекта DataObject. Давайте поближе познакомимся с методами и событиями перетаскивания OLE.
Метод OLEDrag
Метод OLEDrag начинает операцию перетаскивания OLE. Он вызывается в тех случаях, когда вы хотите скопировать или переместить данные OLE между двумя контейнерами OLE. Метод имеет следующий синтаксис:
объект.0LЕDrаg
где объект - объект-контейнер OLE, который является источником для операции перетаскивания.
Свойство OLEDragMode
С помощью свойства OLEDragMode можно узнать, способен ли объект выполнять функции источника перетаскивания OLE и в каком режиме будет выполняться операция OLEDrag - в ручном или автоматическом. Свойство может принимать следующие значения.
Свойство OLEDropMode
Свойство OLEDropMode похоже на OLEDragMode. Задавая его значение, вы определяете тип обработки событий сбрасывания OLE в вашем приложении. Свойство может принимать одно из трех значений.