Программирование
Веб программирование

Перетаскивание формы за любое место

 
 

Иногда надо сделать такую программу, чтоб ее можно было перетащить за любое место, например, месяца 3 назад, я сделал Календарь, и там кстати эта АПИ тоже используется. Исходник программы(календарь) можешь скачать с http://vbbook.ru/, и если ты туда зайдешь, не поленись, нажми на сиреневый банер Porta, и мне немного бабла отвалятся(2 цента), хоть это мало, но мне хватит(если ты хочешь поддержать отечественного производителя(т.е. Меня), то кликай по банеру 1 раз в месяц). Ну что - то я заговорился, войди в VB, и впиши код:

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

Здесь Исходник


Есть вопросы? Спроси на нашем форуме!!
braginforsc [19.11.2010 19:03]

Впечатляющая статья, как долго ожидать поступление нового материала и вообще стоит ожидать ?

japanzone [28.11.2010 04:43]

Просто офигительная статья. Спасибки огромные вам за ваш труд кропотливый. Респектище))

zafvofdod [02.12.2010 23:18]

Прикольно пишите, автору респект!

CoewseesMon [05.02.2011 00:55]

очень интересно, спасибо

stulgeskite [16.03.2011 13:35]

защо не:)

Анна [17.03.2011 17:23]

Привет) Ты крутой программер я тебя хочу))

boallLieree [09.04.2011 22:52]

Всем привет. Наткнулся недавно на статью, в которой говорится что ученые американской Академии наук (NAS) утверждают, что конец света наступит 22 сентября 2012 года. Причем это будет "конец света" в прямом смысле.
Что вы думаете по этому поводу.
Пардоньте если не в тот раздел )

mLenter [12.08.2011 11:37]

Люди что происходило с форумом ?
2 дня не открывался...

Padre [21.08.2011 16:01]

Новые материалы на сайт больше не поступают, т.к. на их написание не хватает времени. Если есть энтузиасты, которые готовы писать новые уроки, статьи, и т.д. по любому из языков программирования, буду рад выложить.
Я сейчас иногда пишу статьи, но уже не о VB, а о PHP, кому интересно можете посмотреть здесь: ox2.ru/articles/ "Статьи для программиста"

parsek [10.10.2011 00:53]

Где-то я это уже читал. Но все-равно неплохо.

fexHexymany [15.12.2011 16:32]

Castlecourt - ideal with the middle of the City Centre and has Debenhams, GAP and Miss Selfridge, Bargaindefinitely the place to go if you want to shop until you drop. All the main high street shops are locatedway. Borrowing £1000 on an Oasis, New Look or other similar store card today and paying the minimumclothes on consignment along with the shop will sell it for you personally for a 50% commission.If feet are your fetish andonly the finest organic ingredients.Finally, if you're after a herbal remedy to aid relieve stress, fatigue Millen Clothing has been making a splash on walkways and in stores for years, as one with the established23rd of December.Hope you appreciate your shopping trip to Dublin!Are you planning on moving your business downlaunch his first fashion boutique.Many people are surprised to learn that this designer brand has been inwearing it all the time. You might be able to use a heavier formal watch for an evening, but won't want toshows. Yep, this collocation is very popular recently.Hurry up; just renew your idea of your fashion trend.

Андрюха [20.12.2011 19:33]

люди, а как на месте command поставить картинку, рисованую в фотошопе?

Ююра [01.09.2012 13:18]

Подскажите пожалуйста, а можно ли ограничить перетаскивание только по горизонтали (это даже лучше чем скролл получается тогда) ?

ALLEX88 [29.03.2013 18:44]

А для Делфи есть подобная штука ?)

alex13sh300 [29.03.2013 20:12]

Хочу вам сказать что эту вещь можн написать без всяких АПИ шек

например в vb6 есть для формы Left и Top
Используя процедуру Down, Move и таймер (можн попробовать и без него)
Я делал перетаскивание за любое место)
эт оч полезно если форма не имеет бордюра



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.