Есть контрол в ВБ.НЕТ notifyIcon есть пример

Скачай 101VB.NETSamples с microsoft.com

Ответить

Ответить

А как именно? Я пробовал, так как в 6ом - не получается

Ответить

Private MouseDownX As Integer

Private MouseDownY As Integer

Private Sub fclsMain_MouseMove(ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) _

Handles MyBase.MouseMove

If MouseButtons = MouseButtons.Left Then

Dim FormLocationX, FormLocationY As Integer

Dim MouseX, MouseY As Integer

Dim MouseMoveX, MouseMoveY As Integer

Dim FormMoveX, FormMoveY As Integer

'определяем координаты формы при нажатие левой кнопки мыши

FormLocationX = CType(sender, fclsMain).Location.X

FormLocationY = CType(sender, fclsMain).Location.Y

'определяем координаты и пробег мыши

MouseX = e.X

MouseY = e.Y

MouseMoveX = (MouseX - MouseDownX)

MouseMoveY = (MouseY - MouseDownY)

'двигаем форму на пробег мыши

FormMoveX = FormLocationX + MouseMoveX

FormMoveY = FormLocationY + MouseMoveY

Me.Location = New Point(FormMoveX, FormMoveY)

End If

End Sub

Private Sub fclsMain_MouseDown(ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) _

Handles MyBase.MouseDown

MouseDownX = e.X

MouseDownY = e.Y

End Sub

Попробуй так.

Ответить

2Valera:

Че-то не получилось у меня. А ты сам пробовал? Не судите строго, я только начинающий в VB .NET

Ответить

Давай вышлю на "мыло".

Ответить

вышли, плиз

Ответить

А я поступил иначе, просто поставил hook на WndProc

Private Declare Sub ReleaseCapture Lib "User32" ()

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

Const WM_MOUSEMOVE As Integer = &H200

Const MK_LBUTTON As Integer = &H1

Const WM_NCLBUTTONDOWN As Integer = &HA1

Const HTCAPTION As Integer = 2

Select Case m.Msg

Case WM_MOUSEMOVE

If m.WParam.ToInt32 = MK_LBUTTON Then

End If

End Select

MyBase.WndProc(m)

End Sub

Ответить

Дело в том что, я WIN API  совсем не знаю. Может подскажешь где можно найти информацию по этой теме.

 Соответственно “для тех кто на  бронепоезде”   

Ответить

Valera! WIN API - это настолько глобальная тема,что информацию по этой теме приходится собирать везде,где только встретишь... На любых программерских сайтах,в книгах,даже в примерах на этом сайте  всегда есть что-то по  API.Есть несколько более-менее приличных справочников  API-Guide, APIViewer 2002 , их найдешь в инете. Так же в качестве настольной книги могу порекомендовать "библию" от Дана Эпплмана "WIN32 API и VISUAL BASIC". Лучше этой книги я не встречал.

Что касается моего кода выше,то просто создай форму и скопируй туда этот код. И сможешь таскать форму за любое место. Я его для себя делал,так что он 100% рабочий и проверенный! Пользуйся.

Ответить