| Цитата |
Question
I am using Visual basic 6.0 ,my question is how to put horizontal and
vertical scrollbar in a picture box. I , mean when I scroll down the
scrollbar the content of the picture box will also goes down and also down
and right to left ...hope you can help me...thanks
Answer
Not too tough. Here's a technique I learned a while back. The key is to have TWO picture boxes on your form. The first one is the parent of the 2nd picture box, and the 2nd is the container for the picture. The reason is because the 2nd picture box will be the one that is "scrolled". Except it isn't really. You are just moving the "Top" and "Left" of the picture box up to make more visible.
To use the code below, create a new form. On it draw a picture box (color it Blue just so you know it's the 1st picture box), and then draw another picture box inside it (leave it white so you know it's the second). Now, create a horizontal scroll bar below the outside picture box and a vertical scroll bar to the right of the outside picture box. Finally, create a command button anywhere on the form outside the picture box.
Now, double-click your form, clear all code and paste the below:
| Код |
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Picture1.DrawWidth = 5
For i = 1 To 200
Picture1.Circle (Rnd * 10000, Rnd * 10000), Rnd * 2200, QBColor(Int(Rnd * 15))
Next i
End Sub
Private Sub Form_Load()
Picture1.Width = 10000
Picture1.Left = 0
Picture1.Top = 0
Picture1.Height = 10000
Command1_Click
End Sub
Private Sub VScroll1_Change()
Call VerticalScroll
End Sub
Private Sub VScroll1_Scroll()
Call VerticalScroll
End Sub
Private Sub HScroll1_Change()
Call HorizontalScroll
End Sub
Private Sub HScroll1_Scroll()
Call HorizontalScroll
End Sub
Private Sub VerticalScroll()
Dim l As Double
Dim a As Double
Dim x As Double
x = VScroll1.Value
a = Picture1.Height - Picture2.Height
l = (a * x) / 100
Picture1.Top = -l
End Sub
Private Sub HorizontalScroll()
Dim l As Double
Dim a As Double
Dim x As Double
x = HScroll1.Value
a = Picture1.Width - Picture2.Width
l = (a * x) / 100
Picture1.Left = -l
End Sub
|
|
Добавлено через 1 минуту и 16 секунд
И вообще поиск по словам PictureBox scrolling visual basic даёт чёртову уйму ссылок. |
