VBNet - Форум - надпись на кнопке

Вопрос: надпись на кнопке Добавлено: 08.07.03 12:28

Автор вопроса: Trusishka | ICQ: 229751913

Подскажите как изменить надпись на кнопке , которые появляются снизу при запуске программы (на уровне кнопки пуск).
Возможно в форуме это уже было, но просто я не знаю как они называются.

Ответить

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

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

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 08.07.03 12:29

Поменяй заголовок форме.

Ответить

Номер ответа: 2
Автор ответа:

Trusishka

ICQ: 229751913

Вопросов: 36
Ответов: 48

Профиль | | #2

Добавлено: 08.07.03 12:32

вся хитрость в том что у моей формы нет заголовка и надписи, поэтому внизу у меня пустая кнопка с иконкой

Ответить

Номер ответа: 3 Автор ответа: ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406	Профиль \| \| #3	Добавлено: 08.07.03 12:35
	YouForm.Caption="Заголовок блин!!!" Ответить

Номер ответа: 4 Автор ответа: Trusishka ICQ: 229751913 Вопросов: 36 Ответов: 48	Профиль \| \| #4	Добавлено: 08.07.03 12:39
	не подходит, у тогда и на форме вылазит controlbox с надписью, а его у меня быть не должно. Мне просто внизу надо надпись поменять. Наверно с помощью API...как-нибудь? Ответить

Номер ответа: 5
Автор ответа:

ZeroX

ICQ: 220401330

Вопросов: 47
Ответов: 406

Профиль | | #5

Добавлено: 08.07.03 12:47

1) В таймере:

If YourForm.WindowState=vbMInimized then

YourForm.Caption="Title your form!!!"

Else

YourForm.Caption=""

End if

2) Обрежь заголовок формы АПИХАМИ

Ответить

Номер ответа: 6
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #6

Добавлено: 08.07.03 12:48

попробуй моя_форма.ShowInTaskbar = False тогда у тебя на вообще не будет эта кнопка отображаться

Ответить

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

Trusishka

ICQ: 229751913

Вопросов: 36
Ответов: 48

Профиль | | #7

Добавлено: 08.07.03 12:57

Никто не понимает, что мне надо

Мне надо чтобы у меня не было на форме controlboxa, и в то же время чтобы на кнопке снизу была надпись , вот и все.

Если можете - бросьте API-шек

Ответить

Номер ответа: 8
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #8

Добавлено: 08.07.03 14:15

Понял, что тебе надо. Так бы и писал с самого начало.

Держи.

Option Explicit
' auxiliary enumeration for SetWindowPos API function
Private Enum ESetWindowPosStyles
    SWP_SHOWWINDOW = &H40
    SWP_HIDEWINDOW = &H80
    SWP_FRAMECHANGED = &H20
    SWP_NOACTIVATE = &H10
    SWP_NOCOPYBITS = &H100
    SWP_NOMOVE = &H2
    SWP_NOOWNERZORDER = &H200
    SWP_NOREDRAW = &H8
    SWP_NOREPOSITION = SWP_NOOWNERZORDER
    SWP_NOSIZE = &H1
    SWP_NOZORDER = &H4
    SWP_DRAWFRAME = SWP_FRAMECHANGED
    HWND_NOTOPMOST = -2
End Enum

' auxiliary constants for SetWindowLong API function
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_CAPTION = &HC00000

' auxiliary Win32 API functions
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 ' Written by Yaniv Drukman
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
Dim WindowStyle As Long

    WindowStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    WindowStyle = WindowStyle And (Not WS_SYSMENU)
    WindowStyle = WindowStyle And (Not WS_MAXIMIZEBOX)
    WindowStyle = WindowStyle And (Not WS_MINIMIZEBOX)
    WindowStyle = WindowStyle And (Not WS_CAPTION)
    SetWindowLong Me.hwnd, GWL_STYLE, WindowStyle
    SetWindowPos Me.hwnd, 0, _
                 0, 0, 0, 0, _
                 SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED Or SWP_NOSIZE Or SWP_NOMOVE

End Sub

Ответить

Страница: 1 |