Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос:  Поиогите сделать не активным крестик Добавлено: 22.10.08 13:20  

Автор вопроса:  Максим
Как сделать крестик и кнопку развертывания формы неактивными. Кто не понял о чем речь это 2 кнопочки в правом верхнем углу формы кто может напишите код плиз

Ответить

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

Номер ответа: 1
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #1 Добавлено: 22.10.08 13:32
Может лучше их просто не выводить?

Ответить

Номер ответа: 2
Автор ответа:
 Фенягz



ICQ: 387437448 

Вопросов: 7
Ответов: 202
  Web-сайт: atauenis.narod.ru/
 Профиль | | #2 		Добавлено: 22.10.08 21:56
Поэксперементируй со свойствами:
Forma.MaxButton
Forma.CloseButton

Ответить

Номер ответа: 3
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #3 		Добавлено: 22.10.08 22:50
Ты где такое нашол?

Ответить

Номер ответа: 4
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #4 		Добавлено: 22.10.08 23:30
  1. Option Explicit
  2. Private Const WS_MAXIMIZEBOX = &H10000
  3. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  4. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  5. Private Const GWL_STYLE = (-16)
  6. Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  7. Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  8. Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  9. Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  10. Const MF_BYPOSITION = &H400&
  11. Const MF_REMOVE = &H1000&
  12. Private Sub Form_Load()
  13. Dim hSysMenu As Long, nCnt As Long
  14. hSysMenu = GetSystemMenu(Me.hwnd, False)
  15. If hSysMenu Then
  16.     nCnt = GetMenuItemCount(hSysMenu)
  17.     If nCnt Then
  18.         RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
  19.         RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
  20.         RemoveMenu hSysMenu, nCnt - 3, MF_BYPOSITION Or MF_REMOVE
  21.         DrawMenuBar Me.hwnd
  22.         SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) And Not WS_MAXIMIZEBOX
  23.     End If
  24. End If
  25. End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Максим



Вопросов: 4
Ответов: 3
  Профиль | | #5 Добавлено: 23.10.08 06:25
Пробовал не красиво получается

Ответить

Номер ответа: 6
Автор ответа:
 Максим



Вопросов: 4
Ответов: 3
  Профиль | | #6 Добавлено: 23.10.08 08:07
Спасибо большое вы мне очень поманли код проканаЛ!!!!!

Ответить

Номер ответа: 7
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #7 Добавлено: 23.10.08 18:22
поманли код проканаЛ!!!!!


Про какой ещё канал?!

Ответить

Номер ответа: 8
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #8 		Добавлено: 23.10.08 19:27
вообще это плохой тон ...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам