| Вопрос: привязка ScrollBar | Добавлено: 01.12.05 20:11 |
Автор вопроса:  Николай П | Web-сайт: laguna-uhta.ru/
|
|
как привязать scroll к таким контролам как Frame и PictureBox .
можно просто указать где посмотреть пример или информацию. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Dushes ICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #1 | Добавлено: 02.12.05 08:42 |
| У меня есть пример на привязку ScrollBar к PictureBox. Вот тока ссылку не помню =(. | ||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 02.12.05 11:46 |
Могу замылить примерчик с двумя пикчерами и двумя скролами. Если, конечно, дашь мыло 
Как фариант - код файла формы (frm) VERSION 5.00 Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Form1" ClientHeight = 4500 ClientLeft = 45 ClientTop = 330 ClientWidth = 6915 ClipControls = 0 'False LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4500 ScaleWidth = 6915 StartUpPosition = 3 'Windows Default Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 4095 Left = 240 ScaleHeight = 4065 ScaleWidth = 6465 TabIndex = 0 Top = 240 Width = 6495 Begin VB.CommandButton Command1 Height = 255 Left = 6240 TabIndex = 4 Top = 3840 Width = 255 End Begin VB.HScrollBar HScroll1 Height = 255 Left = 0 TabIndex = 3 Top = 3840 Width = 6255 End Begin VB.VScrollBar VScroll1 Height = 3855 Left = 6240 TabIndex = 2 Top = 0 Width = 255 End Begin VB.PictureBox Picture2 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 11685 Left = 0 Picture = "frmpict.frx":0000 ScaleHeight = 11655 ScaleWidth = 8100 TabIndex = 1 Top = 0 Width = 8130 End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_Load() If Picture1.ScaleHeight > Picture2.Height Then VScroll1.Enabled = False Else VScroll1.Max = Picture1.ScaleHeight - Picture2.Height VScroll1.Enabled = True End If If Picture1.ScaleWidth > Picture2.Width Then HScroll1.Enabled = False Else HScroll1.Max = Picture1.ScaleWidth - Picture2.Width HScroll1.Enabled = True End If End Sub Private Sub HScroll1_Change() Picture2.Move HScroll1.Value End Sub Private Sub VScroll1_Change() Picture2.Move Picture2.Left, VScroll1.Value End Sub Положи большую картинку на Picture2. Если не пойдет - пиши, вышлю исходник в виде файла. |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 02.12.05 11:49 |
|
LOL, пытается сказать:
Пойщи в инете примерчик скрола картинки в пикчебоксе )
|
||
|
Номер ответа: 4 Автор ответа: DushesICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #4 | Добавлено: 02.12.05 18:12 |
| Дай EMAIL, скину такой пример с API... | ||
|
Номер ответа: 5 Автор ответа: Николай П Вопросов: 14 Ответов: 27 |
Web-сайт: Профиль | | #5 | Добавлено: 02.12.05 20:31 |
|
скидывай - bestworkk@yandex.ru
Большое спасибо за помощь ! |
||
|
Номер ответа: 6 Автор ответа: Николай ПВопросов: 14 Ответов: 27 |
Web-сайт: Профиль | | #6 | Добавлено: 02.12.05 20:32 |
|
скидывай - bestworkk@yandex.ru
Большое спасибо за помощь ! |
||
|
Номер ответа: 7 Автор ответа: Николай ПВопросов: 14 Ответов: 27 |
Web-сайт: Профиль | | #7 | Добавлено: 02.12.05 20:35 |
|
искал ...
но либо я не могу искать ,либо это такая уж сложная задача что ничего не находится ... нашёл один пример скрола для формы но так и не смог его переделать под фрейм - содержимое фрема перемещается,то что надо, но , блин, и сам фрейм тоже ползает по форме, а это уже ни а какие рамки не лезет ... |
||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 02.12.05 22:34 |
| пока тот пример, может подправим... | ||
|
Номер ответа: 9 Автор ответа: Николай ПВопросов: 14 Ответов: 27 |
Web-сайт: Профиль | | #9 | Добавлено: 02.12.05 23:34 |
|
LamerOnLine
Dushes
HACKER
спасибо за участие ! разобрался со скролами, выкину коды может кому-нибудь ещё пригодится: 'на форме создаём Picture1.Box 'внутри Picture1 создаём Frame1 'на форму помещаем вертикальный VScroll1 Private Sub Form_Load() With VScroll1 .Height = Picture1.ScaleHeight .Min = 0 .Max = Picture1.ScaleHeight - Frame1.Height .SmallChange = Screen.TwipsPerPixelY * 10 .LargeChange = .SmallChange End With End Sub Private Sub VScroll1_Change() Frame1.Move Frame1.Left, VScroll1.Value End Sub скролл можно разместить внутри Picture1 или рядом с ним, если скролл поместить внутрь Frame1, тогда он будет двигаться вместе с фреймом
для того что бы сделать скролл для Picture, можно воспользоваться этим же кодом, только разместить внутри первого Picture1 второй Picture2 и заменить в коде все Frame1 на Picture2. |
||
|
Номер ответа: 10 Автор ответа: Николай ПВопросов: 14 Ответов: 27 |
Web-сайт: Профиль | | #10 | Добавлено: 02.12.05 23:39 |
|
да, забыл уточнить,для таких же как я, что высота
Frame1 или Picture2 должна быть больше чем Picture1. Вот теперь бы ещё кто бы помог с Access разобраться ... 
Как из проги на VB дать команду Access запустить созданный в нём макрос (находящийся внутри Access). |
||
Страница: 1 |