Консультация № 145843
03.10.2008, 03:08
0.00 руб.
0 2 0
Подскажите плиз пишу прогу на VB6 с нестандартным интерфейсом скрол текстбокса не вписывается в общую картинку . Как наложить свой рисунок на стандартный скролл текстбокса , есть уже созданный activeX скролбар но немогу подключить к текстбоксу.Приветствуются другие решения этой проблемы. Заранее спасибо

Обсуждение

давно
Профессионал
848
1596
03.10.2008, 11:13
общий
>>есть уже созданный activeX скролбар но немогу подключить к текстбоксу
построчкам можно скролить так...
Код:
 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 Const WM_VSCROLL = &H115
----
'скролить вверх
Call SendMessage(Text1.hwnd, WM_VSCROLL, 0, 0)
'вниз
Call SendMessage(Text1.hwnd, WM_VSCROLL, 1, 0)

но это думаю не то что вам нужно...
----
вот пример скролов через ScrollWindow, возможно он вам поможет
http://www.softholm.com/link/modules.php?name=Downloads&d_op=getit&lid=7577
давно
Профессионал
848
1596
03.10.2008, 11:39
общий
кстати чтоб отдельно юзать ScrollWindow нужно немного по другому объявить АРI...
вот пример как раз про текстбокс:-)
http://www.codeguru.com/forum/archive/index.php/t-7515.html
только получается что протягивается не содержимое в окне, а сама картинка окна...
там также предложено использовать EM_SCROLL и EM_LINESCROLL с SendMessage....для скрола содержимого.
Форма ответа