форма без иконки
как сделать форму без иконки
В насторойках формы: BorderStyle поставь значение 0 None. Теперь форма без иконки но не может перемещаться по экрану.
=========================
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
==========================
А вот этот код для того, что бы двигать форму по экрану, за её любое место. X)-
=========================
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
==========================
А вот этот код для того, что бы двигать форму по экрану, за её любое место. X)-
Цитата:
Originally posted by Zlak
В насторойках формы: BorderStyle поставь значение 0 None. Теперь форма без иконки но не может перемещаться по экрану.
=========================
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
==========================
А вот этот код для того, что бы двигать форму по экрану, за её любое место. X)-
В насторойках формы: BorderStyle поставь значение 0 None. Теперь форма без иконки но не может перемещаться по экрану.
=========================
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
==========================
А вот этот код для того, что бы двигать форму по экрану, за её любое место. X)-
А как чтобы с крестиком и Caption'ом, но без иконки?
Цитата:
Originally posted by Virtuoso
А как чтобы с крестиком и Caption'ом, но без иконки?
А как чтобы с крестиком и Caption'ом, но без иконки?
Свойство BorderStyle ставим Fixed Dialog, и далее в коде инициализации (Form_Load) пишем Icon = Nothing
Цитата:
Originally posted by HarryAxe
Свойство BorderStyle ставим Fixed Dialog, и далее в коде инициализации (Form_Load) пишем Icon = Nothing
Свойство BorderStyle ставим Fixed Dialog, и далее в коде инициализации (Form_Load) пишем Icon = Nothing
да пробовал уже! вот что выходит
Цитата:
Originally posted by Virtuoso
да пробовал уже! вот что выходит
да пробовал уже! вот что выходит
А BorderStyle точно FixedDialog стоит? У меня всё работает. Может, ты FixedSingle поставил? Тогда получится то, что у тебя на рисунке показано
Цитата:
Originally posted by HarryAxe
А BorderStyle точно FixedDialog стоит? У меня всё работает. Может, ты FixedSingle поставил? Тогда получится то, что у тебя на рисунке показано
А BorderStyle точно FixedDialog стоит? У меня всё работает. Может, ты FixedSingle поставил? Тогда получится то, что у тебя на рисунке показано
упс 8)