Конференция VBStreets

**Vovik** » 29.11.2003 (Сб) 17:29

И вправду, как!? Чтоб форма оставалась, как была, но без иконки...
Заранее благодарен!

**alibek** » 29.11.2003 (Сб) 17:50

Выбирашь свойства формы, становишься на строчку Icon (чтобы курсор мигал в поле ввода) и нажимаешь Del.

**Vovik** » 30.11.2003 (Вс) 13:58

alibek писал(а):Выбирашь свойства формы, становишься на строчку Icon (чтобы курсор мигал в поле ввода) и нажимаешь Del.

Хм....я попробовал!

Да, иконка от басика исчезает, но вместо неё появляется значок виндоса, а мне нужно, чтоб иконки небыло вообще, а кнопки закрыть, мин, свернуть - оставались... :cry:

**alibek** » 30.11.2003 (Вс) 14:34

Поставь BorderSize=3?

**Vovik** » 30.11.2003 (Вс) 16:47

alibek писал(а):Поставь BorderSize=3?

Сиб.... Только, наверно ты имел ввиду BorderStyle.... :lol:

**Шурик** » 01.12.2003 (Пн) 12:28

Можно и так:

Form1.Caption="" :lol:

Правда в этом случае исчезнет весь заголовок окна......
Но я ответил же на вопрос

**Vovik** » 01.12.2003 (Пн) 20:41

Z-zzz писал(а):Можно и так:

Form1.Caption=""

Правда в этом случае исчезнет весь заголовок окна......
Но я ответил же на вопрос

Ха!!! Вообще то, в вопросе спрашивется - "как убрать иконку?", а ты лишь делаешь у формы пустым заголовок! :wink:

**zzoom** » 02.12.2003 (Вт) 12:44

Наверное имелось ввиду:
BorderStyle = 3 'FixedDialog

**Шурик** » 03.12.2003 (Ср) 11:28

Vovik - ну согласись же я ведь ее все-таки убрал. Правда своеобразным способом, но убрал :lol:

**Vovik** » 03.12.2003 (Ср) 14:48

Z-zzz писал(а):Vovik - ну согласись же я ведь ее все-таки убрал. Правда своеобразным способом, но убрал

Ты меня извини, но ИКОНКУ ты не убираешь!!!! Ты убираешь у формы ЗАГОЛОВОК!!!!! Ты хоть знаешь, что такое иконка?Я идиот! Убейте меня, кто-нибудь!? :twisted:

**kif** » 03.12.2003 (Ср) 16:20

А зачем?

**Шурик** » 03.12.2003 (Ср) 17:04

Vovik ты не злись!!!!
Конечно знаю что такое иконка!!!!!
Но я же ее убрал и тут уже не важно с чем(заголовок)!!!!

ЭТО ЖЕ ШУТКА!!!!!!!!!!!!! :lol:

**Aleksej** » 03.12.2003 (Ср) 17:12

Код: Выделить всё: Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_STYLE = (-16) Private Const WS_SYSMENU = &H80000 Private Sub Form_Load() Dim lOldStyle As Long Dim lNewStyle As Long lOldStyle = GetWindowLong(Me.hwnd, GWL_STYLE) lNewStyle = lOldStyle Xor WS_SYSMENU Call SetWindowLong(Me.hwnd, GWL_STYLE, lNewStyle) End Sub

**Vovik** » 03.12.2003 (Ср) 18:13

Aleksej писал(а):

Спасибо за код! Но самый простой способ, это как писал alibek. :lol:

**XPraptor** » 03.12.2003 (Ср) 19:27

В свойствах формы делаешь ControlBox=False а Caption пишешь че-нить.

**RayShade** » 04.12.2003 (Чт) 9:01

Хватит флуда и перелива с пустого в порожнее уже

А то скоро книгу можно будет писать "1001 способ убрать иконку и формы"

Конференция VBStreets

А как же у формы убрать иконку???

А как же у формы убрать иконку???

Кто сейчас на конференции