﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Программирование / Visual Basic  / Как изменить поведение станд. кнопок управл. окном? / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Sat, 10 Jan 2009 07:39:18 GMT</lastBuildDate><ttl>20</ttl><item><title>RE: Как изменить поведение станд. кнопок управл. окном?</title><link>http://relib.com/forums/Topic315-1-1.aspx</link><description>Сомневаюсь, но можно попробовать: заблокировать крестик ("Х" который) в событии Form_Unload, а потом вручную скрывать или сворачивать:'Скроем форму:Private Sub Form_Unload(Cancel as Integer)    Cancel = 1    Me.HideEnd Sub</description><pubDate>Thu, 08 Jun 2000 10:41:00 GMT</pubDate><dc:creator>member</dc:creator></item><item><title>RE: Как изменить поведение станд. кнопок управл. окном?</title><link>http://relib.com/forums/Topic315-1-1.aspx</link><description>-------------Как теперь сделать так, чтобы кнопка "Close"("X" которая)работала на сворачивание окна или делала что-то вроде Hide(еще лучше), но не закрывая самого приложения.-------------А вот про это я что-то так и не нашел, хотя должно быть, наверно, элементарно. А сейчас вот потребовалось самому и не знаю как. ;(?!</description><pubDate>Mon, 08 May 2000 01:43:00 GMT</pubDate><dc:creator>lexa</dc:creator></item><item><title>RE: Как изменить поведение станд. кнопок управл. окном?</title><link>http://relib.com/forums/Topic315-1-1.aspx</link><description>Вот пример с фунцией EnumWindows.-----------------Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As LongPrivate Const WM_GETTEXT = &amp;HDPrivate Const WM_GETTEXTLENGTH = &amp;HEPrivate Sub FindIt()Dim lCalc&amp;, lTextbox&amp;, lLen&amp;, strBuffer$        lCalc = FindWindowEx(0, 0, "NotePad", vbNullString)    lTextbox = FindWindowEx(lCalc, 0, "Static", vbNullString)    lLen = SendMessage(lTextbox, WM_GETTEXTLENGTH, 0, 0)    strBuffer = Space(lLen)    Call SendMessageStr(lTextbox, WM_GETTEXT, lLen, ByVal strBuffer)    MsgBox "Text in NotePad: " &amp; strBufferEnd Sub</description><pubDate>Sat, 22 Apr 2000 06:11:00 GMT</pubDate><dc:creator>lexa</dc:creator></item><item><title>Как изменить поведение станд. кнопок управл. окном?</title><link>http://relib.com/forums/Topic315-1-1.aspx</link><description>Проблема следующая:При помощи API могу получить handle окна уже запущенного приложения (FindWindow). Как теперь сделать так, чтобы кнопка "Close"("X" которая)работала на сворачивание окна или делала что-то вроде Hide(еще лучше), но не закрывая самого приложения.Очень прошу - помогите! И если кто знает - подскажите, где надыбать доку по win32api, желательно по-русски и с примерами.</description><pubDate>Wed, 19 Apr 2000 21:13:00 GMT</pubDate><dc:creator>voleger</dc:creator></item></channel></rss>