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
这个是水平的滚动条，垂直的同理