На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Изменение положения кнопки "Пуск"
    Как изменить положение кнопки "Пуск"?
      никак
        Элементарно! На самом деле кнопка Пуск, это всего лишь дочернее окно панели задяч! То есть, используя FindWindow, по имени класса (панели задяч называется Shell_TrayWnd) получаешь хэндл на панель, по нему ищешь дочернее окно, класс которого назв. Button и ты получишь хэндл кнопки Пуск!
        Код будет выглядеть примерно так:
        Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        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 Long
        Private Sub Form_Load()
        Dim rc As Long
        rc = FindWindow("Shell_TrayWnd", vbNullString)
        rc = FindWindowEx(rc, 0, "Button", vbNullString)
        End Sub
        Получив хэндл, ты сможешь делать с кнопкой всё: с помошью SetWindowPos перемещать кнопку (в пределах панели задач конечно), рисовать на ней, а с помощью SetParent кнопка Пуск перекачует, например, на твою форму и т. п.
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0444 ]   [ 16 queries used ]   [ Generated: 27.04.24, 14:11 GMT ]