| Вопрос: Чертов скролл | Добавлено: 02.05.07 15:19 |
Автор вопроса:  KreAtoR
|
|
Народ, выложите пример со скроллом.
У меня в окно не влезает текст, а размер окна менять нельзя. Текст надо скроллом двигать. Подскажите КАК????? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 02.05.07 15:55 |
|
Сходить в гугл, поискать человека по имени J. Random Hacker (это непросто, но он оставляет по интернету подсказки, позволяющие его найти). Попросить у него серийники к последней версии "Textbox SDK", а также ссылки на саму SDK (153 Мб).
После установки она откроет доступ к секретному свойству, автоматически добавляющему ползунок к тексту (даже горизонтальный). |
||
|
Номер ответа: 2 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #2 | Добавлено: 02.05.07 16:50 |
|
Ха-Ха-Х-Ха... KreAtoR а читать умееш?
В этом разделе Форума есть тема "Как приделать скроллбар к текстбоксу?" прочитай. А за "Textbox SDK" долго смеялся |
||
|
Номер ответа: 3 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #3 | Добавлено: 02.05.07 17:27 |
| 2 intel-DX текстбох это понятно. это в менюшке выставляется. А неадо несколько лабелов вместе склеить на один фрейм и двигать этот фрейм туда сюда. | ||
|
Номер ответа: 4 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #4 | Добавлено: 02.05.07 17:51 |
| Я например ничего не понял из выше сказаного. | ||
|
Номер ответа: 5 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #5 | Добавлено: 02.05.07 18:12 |
|
Есть From1 есть frame1 в нем label1 и label2
е еще есть VScroll Задача. Вывести на экран окно (Form) в нее вставить форму (Frame1) и вставить скролл (VScroll) !!!! подключить скролл к форме!!!! росле того как подключил... вставить в форму(frame1) текст в лабелях (label1 и label2) |
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 02.05.07 18:25 |
|
Что за нежелание пользоваться поиском?
http://www.google.com/search?ie=UTF-8&hl=ru&q=%56%42%20%53%63%72%6F%6C%6C%20%46%6F%72%6D |
||
|
Номер ответа: 7 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #7 | Добавлено: 07.05.07 16:13 |
| 2. HACKER senks | ||
|
Номер ответа: 8 Автор ответа: Сашок ICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #8 | Добавлено: 07.05.07 19:52 |
|
Такие вопросы уже были на форумах.
Могу дать код. Для формы: Option Explicit Private Sub Form_Load() Call Hook(Me.Hwnd) tmrGet.Enabled = True End Sub Private Sub tmrGet_Timer() Call SetWindowTextA(frmMain.Hwnd, "Wheel " & Wheel) End Sub Для модуля Option Explicit Public Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal Hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetWindowLongA Lib "user32" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function SetWindowTextA Lib "user32" (ByVal Hwnd As Long, ByVal lpString As String) As Long Public Const GWL_WNDPROC = -4 Public Const WM_MOUSEWHEEL = &H20A Public OldWindowProc As Long, Wheel As Integer ' wParam 7864320 Or 23592960 Or 15728640 Public Sub Hook(Hwnd As Long) OldWindowProc = SetWindowLongA(Hwnd, GWL_WNDPROC, AddressOf NewWindowProc) End Sub Public Function NewWindowProc(ByVal Hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If Msg = WM_MOUSEWHEEL Then Wheel = IIf(wParam < 0, -1, 1) NewWindowProc = CallWindowProcA(OldWindowProc, Hwnd, Msg, wParam, lParam) End Function |
||
|
Номер ответа: 9 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #9 | Добавлено: 07.05.07 19:55 |
| Выше приведенный код позволяет узнать вврех или вниз производится скрол. А дальше берешь Label и вносишь в него текст (который должен бы быть на форме) и меняешь его координаты по высоте. Вот и все | ||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 07.05.07 22:33 |
| Если бы Сашок внимательнее прочитал вопрос, наверное он понял бы, что он не прав... | ||
|
Номер ответа: 11 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #11 | Добавлено: 08.05.07 12:47 |
| Да че вы паритесь.. просто запоминаешь начальное положение лабелофф твоих, а при одноименном событии контрола Scroll прибавляешь к нему Scroll.Value | ||
Страница: 1 |