VBNet - Форум - Помогите начинающему плиз!

Вопрос: Помогите начинающему плиз! Добавлено: 07.12.08 22:37

Автор вопроса: Whistler | Web-сайт: http://www.lastfm.ru/user/Whistler-X | ICQ: 449882422

Всем здрям! Пишу на VB 9.0 (в VS2008) прогу для личного пользования, и лично ради косметической опрятности хочу убрать кноку MaximizeBox с глаз долой :) Нашел в архиве пример http://www.vbnet.ru/faq/showtopic.asp?id=45 с кнопкой закрытия, но VS ругается на Hwnd :( не могли бы вы переписать этот код чтоб пахал под VB 9.0, и если можно, сразу переписать чтобы убирал кнопу разворачивания? Зарнее спасибо!

И еще маленький вопрос: иконка какого размера отображается в панели задач?
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #1	Добавлено: 07.12.08 23:15
	Не занимайся ерундой.. Это давно предусмотрено в свойствах формы начиная с FW 1.0 .. Внимательно посмотри список свойст формы.. там ты найдешь то что тебе надо Ищущий да обрящет Ответить

Номер ответа: 2 Автор ответа: Whistler ICQ: 449882422 Вопросов: 2 Ответов: 5	Web-сайт: http://www.lastfm.ru/user/Whistler-X Профиль \| \| #2	Добавлено: 07.12.08 23:16
	Да нет же, не отключить ее, а вообще убрать! Ответить

Номер ответа: 3 Автор ответа: Фeнягz Вопросов: 2 Ответов: 62	Web-сайт: atauenis.narod.ru Профиль \| \| #3	Добавлено: 08.12.08 01:37
	Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As IntPtr, ByVal bRevert As Int32) As IntPtr Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Long Private Const SC_CLOSE As Int32 = &HF060 Private Const MF_BYCOMMAND As Int32 = &H0 Public Sub DisableXbutton(ByVal frmHwnd As IntPtr) Dim hMenu As IntPtr = GetSystemMenu(frmHwnd, 0&) If hMenu.ToInt32 <> 0 Then Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) Call DrawMenuBar(frmHwnd) End If End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Call DisableXbutton(Me.Handle) End Sub Ответить

Номер ответа: 4 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #4	Добавлено: 08.12.08 09:46
	Да нет же, не отключить ее, а вообще убрать! Ну так я тебе о том же и говорю... Если ты отключишь обе кнопки(Max Min), то они пропадут, либо стиль формы установить в Dialog и их тоже не будет. В обоих случаях останется лишь крестик Ответить

Номер ответа: 5 Автор ответа: Whistler ICQ: 449882422 Вопросов: 2 Ответов: 5	Web-сайт: http://www.lastfm.ru/user/Whistler-X Профиль \| \| #5	Добавлено: 08.12.08 14:39
	EROS, мне сворачивание нужно ЯЯЯ, большое спасибо! Сейчас попробую.. Ответить

Номер ответа: 6 Автор ответа: Whistler ICQ: 449882422 Вопросов: 2 Ответов: 5	Web-сайт: http://www.lastfm.ru/user/Whistler-X Профиль \| \| #6	Добавлено: 08.12.08 14:52
	ЯЯЯ, попробовал ваш код, ошибок не показывает, но действие его не очень: кнопка закрытия отображается, но не работает. Да, и какие нужны константы для MaximizeBox? Ответить

Номер ответа: 7 Автор ответа: Фeнягz Вопросов: 2 Ответов: 62	Web-сайт: atauenis.narod.ru Профиль \| \| #7	Добавлено: 09.12.08 01:12
	Нашел в архиве пример http://www.vbnet.ru/faq/showtopic.asp?id=45 с кнопкой закрытия, но VS ругается на Hwnd не могли бы вы переписать этот код чтоб пахал под VB 9.0 Хотя там в некоторых местах забыл поменять Long на Int32 Ответить

Номер ответа: 8 Автор ответа: Whistler ICQ: 449882422 Вопросов: 2 Ответов: 5	Web-сайт: http://www.lastfm.ru/user/Whistler-X Профиль \| \| #8	Добавлено: 09.12.08 17:15
	ЯЯЯ, дело в том что код то работает, только не так Кнопку закрытия показывает, а функцию она теряет Ответить

Номер ответа: 9 Автор ответа: Фeнягz Вопросов: 2 Ответов: 62	Web-сайт: atauenis.narod.ru Профиль \| \| #9	Добавлено: 10.12.08 01:22
	И у меня так. Кнопка есть, форма не закрывется. Ответить

Страница: 1 |