vb圖片如何加滾動條

『壹』 在VB中怎麼往text中加垂直滾動條

1．首先打開VB，然後在VB窗體上添加一個文本框，如圖所示。

『貳』 vb中如何給picture添加滾動條

vb的控制項面板上有vscroll和hscroll
一個是垂直滾動條
一個是水平滾動條
添加這兩個滾動條放到frame框左邊和下面即可
看圖

『叄』 如何給vb控制項picturebox加滾動條

用過picturebox控制項的朋友都知道，在其中我們可以載入圖片。當圖片不是很大時，可能還不會有什麼問題，但是，如果所載入的圖片比picturebox大時，我們只能看到圖片的一部分，那麼，怎麼才能看到其他的部分呢？ 為了解決上述問題，我們可以在圖片框(picturebox)內部加上水平和垂直滾動條，利用滾動條來顯示看不到的圖片。具體方法如下： 首先給工程(project)添加一個ocx控制項，單擊選單上的工程(project)選單項，在彈出的下拉選單中點擊組件(components)，選中其中的「microsoft common dialog control 5.0」，確定完成載入工作；然後畫一個picturebox，採用vb提供的默認名字picture1, 再在picture1上面畫一個picturebox，默認名字為picture2，注意別忘了設置：picture2.autosize=true；接著，加上水平和垂直滾動條，默認名字分別為：hscroll1，vscroll1；以後載入圖形到picture2上，就可以了；最後，在窗體中引入其它控制項：一個按鈕（command），默認名為command1和一個「microsoft common dialog control」，默認名為commondialog1。具體vb代碼如下： private sub form—load() picture2.left = 0 picture2.top = 0 picture2.width = picture1.width picture2.height = picture1.height vscroll1.min = 0 hscroll1.min = 0 hscroll1.min = 0 vscroll1.max = picture2.height － picture1.height hscroll1.max = picture2.width － picture1.width if hscroll1.max 〈 0 then hscroll1.enabled = false if vscroll1.max 〈 0 then vscroll1.enabled = false end sub private sub command—click() on error goto errexit commondialog1.filter = "bitmap file(＊.bmp)|＊.bmp|all file(＊.＊)|＊.＊" commondialog1.filterindex = 1 commondialog1.showopen picture2.picture = loadpicture(commondialog1.filename) vscroll1.min = 0 hscroll1.min = 0 vscroll1.max = picture2.height － picture1.height hscroll1.max = picture2.width － picture1.width if hscroll1.max 〈 0 then hscroll1.enabled = false if vscroll1.max 〈 0 then vscroll1.enabled = false errexit: end sub private sub hscroll1—change() picture2.left = －hscroll1.value end sub private sub vscroll1—change() picture2.top = －vscroll1.value end sub 該程序通過點擊command1按鈕，在彈出的對話框中選擇一個圖形文件載入到picture2中，利用水平和垂直滾動條就可以實現圖片的滾動。

『肆』 如何在vb的窗體中加入滾動條

有專門的控制項
HScrollbar,VScrollbar，需要你自己搞定滾動和其他元素的關系，比如你放置一個大圖片，你計算好圖片和窗體的大小關系，然後設置滾動條的數值，當用戶點擊滾動條時你自己處理圖片的滾動。

『伍』 VB中圖片框怎麼加入滾動條

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8955
ClientLeft = 60
ClientTop = 345
ClientWidth = 9870
LinkTopic = "Form1"
ScaleHeight = 8955
ScaleWidth = 9870
StartUpPosition = 3 '窗口預設
Begin VB.VScrollBar VS1
Height = 2295
Left = 8280
TabIndex = 3
Top = 0
Width = 375
End
Begin VB.HScrollBar HS1
Height = 375
Left = 0
TabIndex = 2
Top = 7440
Width = 1455
End
Begin VB.PictureBox Pic1
Height = 7455
Left = 0
ScaleHeight = 7395
ScaleWidth = 8235
TabIndex = 0
Top = 0
Width = 8295
Begin VB.PictureBox Pic2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 10215
Left = -120
ScaleHeight = 10185
ScaleWidth = 10425
TabIndex = 1
Top = -720
Width = 10455
Begin VB.Shape Shape3
Height = 2055
Left = 3480
Top = 3600
Width = 3135
End
Begin VB.Shape Shape2
Height = 2295
Left = 6840
Top = 7440
Width = 3255
End
Begin VB.Shape Shape1
Height = 2175
Left = 480
Top = 240
Width = 3015
End
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()
Pic1.Left = 0
Pic1.Top = 0
Pic1.Width = Me.Width - VS1.Width
Pic1.Height = Me.Height - HS1.Height - 450

Pic2.Left = 0
Pic2.Top = 0
Pic2.Width = Pic1.Width * 6
Pic2.Height = Pic2.Height * 6

HS1.Left = 0
HS1.Top = Me.Height - HS1.Height - 450
HS1.Width = Me.Width - VS1.Width
HS1.Min = 0
HS1.Max = 100
HS1.LargeChange = 20
HS1.SmallChange = 5

VS1.Left = Me.Width - VS1.Width
VS1.Top = 0
VS1.Height = Me.Height - 450
VS1.Min = 0
VS1.Max = 100
VS1.LargeChange = 20
VS1.SmallChange = 5
End Sub

Private Sub HS1_Change()
Pic2.Left = -(HS1.Value / HS1.Max) * (Pic2.Width - Pic1.Width)
End Sub

Private Sub VS1_Change()
Pic2.Top = -(VS1.Value / VS1.Max) * (Pic2.Height - Pic1.Height)
End Sub

你把這些復制到記事本里,取名form1.frm運行一下看看.哪不明白再問,你就說看不懂,我也不知從哪給你講起

『陸』 關於vb中 picturebox和滾動條

首先給工程(Project)添加一個OCX控制項，單擊選單上的工程(Project)選單項，在彈出的下拉選單中點擊組件(Components)，選中其中的"Microsoft
Common
Dialog
Control
5.0"，確定完成載入工作；然後畫一個PictureBox，採用VB提供的默認名字Picture1,
再在Picture1上面畫一個PictureBox，默認名字為Picture2，注意別忘了設置：Picture2.AutoSize=TRUE；接著，加上水平和垂直滾動條，默認名字分別為：HScroll1，VScroll1；以後載入圖形到Picture2上，就可以了；最後，在窗體中引入其它控制項：一個按鈕（Command），默認名為Command1和一個"Microsoft
Common
Dialog
Control"，默認名為CommonDialog1。具體VB代碼如下：
Private
Sub
Form-Load()
Picture2.Left
=
0
Picture2.Top
=
0
Picture2.Width
=
Picture1.Width
Picture2.Height
=
Picture1.Height
VScroll1.Min
=
0
HScroll1.Min
=
0
HScroll1.Min
=
0
VScroll1.Max
=
Picture2.Height
－
Picture1.Height
HScroll1.Max
=
Picture2.Width
－
Picture1.Width
If
HScroll1.Max
〈
0
Then
HScroll1.Enabled
=
False
If
VScroll1.Max
〈
0
Then
VScroll1.Enabled
=
False
End
Sub
Private
Sub
Command-Click()
On
Error
GoTo
ErrExit
CommonDialog1.Filter
=
"Bitmap
file(＊.bmp)|＊.bmp|All
File(＊.＊)|＊.＊"
CommonDialog1.FilterIndex
=
1
CommonDialog1.ShowOpen
Picture2.Picture
=
LoadPicture(CommonDialog1.filename)
VScroll1.Min
=
0
HScroll1.Min
=
0
VScroll1.Max
=
Picture2.Height
－
Picture1.Height
HScroll1.Max
=
Picture2.Width
－
Picture1.Width
If
HScroll1.Max
〈
0
Then
HScroll1.Enabled
=
False
If
VScroll1.Max
〈
0
Then
VScroll1.Enabled
=
False
ErrExit:
End
Sub
Private
Sub
HScroll1-Change()
Picture2.Left
=
－HScroll1.Value
End
Sub
Private
Sub
VScroll1-Change()
Picture2.Top
=
－VScroll1.Value
End
Sub
----
該程序通過點擊Command1按鈕，在彈出的對話框中選擇一個圖形文件載入到Picture2中，利用水平和垂直滾動條就可以實現圖片的滾動。
滿意請採納。

『柒』 在VB中如何加入滾動條

滾動條是一個控制項
可以創建在窗體上
具體用法我不會教你的
textbox里有屬性設置有沒有滾動條。
resize是form大小改變事件的它在代碼輸入窗口最上邊可以找到方法
雙擊窗體進入form的代碼輸入窗口——在代碼輸入窗口中可以看到左上角是
form
右上角是form的事件——單擊就可以找到resize

『捌』 vb中 怎麼樣給picturebox加滾動條

添加兩個picturebox控制項，在picture1中添加picture2
。當然要加入滾動條。
在form
load中添加下面代碼
HScroll1.Max
=
picture2.Width
HScroll1.Min
=
0
在Private
Sub
VScroll1_Change()中添加
picture2.Top
=
-VScroll1.Value
這個是水平的滾動條，垂直的同理