任何流，象MemoryStream，NetStream等，而不仅仅是FileStream。
f实例56：控制图形移动
实例说明在本实例中，我们将使用VScrollBar控件和HScrollBar控件来控制图片的移动，我们
还可以设置移动的间距大小。程序运行结果如图561所示。
技术要点
图561运行结果
控制图片移动直接拖动图片更改ScrollBar控件的移动间距大小
实现过程
■新建项目
打开VisualStudioNET，选择“新建项目”，在项目类型窗口中选择“VisualBasic项目”，在模板窗口中选择“Wi
dows应用程序”，在名称域中输入“ScrollBarCtl”，然后选择保存路径。单击“确认”。
■添加控件
向当前窗体上添加一个GroupBox控件，在GroupBox控件上放置六个Label控件和两个ComboBox控件；然后再添加一个Picture控件，一个VScrollBar控件和一个HScrollBar控件和六个Label控件。按照图561的运行结果排列好位置。
f174中级篇
■设置属性对窗体上的控件进行属性设置。详细情况如表561所示。
表561窗体各控件的属性值
窗体控件
PictureBoxComboBox1ComboBox1其余控件
属性PictureItemsItmesText
值
Huma
jpg123455102050跟界面一致
■添加代码
由于空间有限，我们仅列出主要代码，其余代码请看光盘。
水平滚动条移动时，改变图片的位置PrivateSubHScrollBar1_ScrollByValse
derAsSystemObjectByValeAsSystemWi
dowsFormsScrollEve
tArgsHa
dlesHScrollBar1Scroll
label11TextHScrollBar1ValueToStri
ghAbsPosCS
gHScrollBar1ValueHScrollBar1Mi
imumpictureBox1LeftHScrollBar1RightCI
thScrollMultiplierhAbsPospictureBox1WidthE
dSub更改大间距移动的值PrivateSubcomboBox1_SelectedI
dexCha
gedByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlescomboBox1SelectedI
dexCha
gedVScrollBar1LargeCha
geCo
vertToI
t16comboBox1SelectedItemToStri
gHScrollBar1LargeCha
geCo
vertToI
t16comboBox1SelectedItemToStri
glabel11TextHScrollBar1ValueToStri
glabel12TextVScrollBar1ValueToStri
gE
dSub更改小间距移动的值PrivateSubcomboBox2_SelectedI
dexCha
gedByValse
derAsSystemObjectByValeAsSystemEve
tArgsHa
dlescomboBox2SelectedI
dexCha
gedVScrollBar1SmallCha
geCo
vertToI
t16comboBox2SelectedItemToStri
gHScrollBar1SmallCha
geCo
vertToI
t16comboBox2SelectedItemToStri
glabel11TextHScrollBar1ValueToStri
glabel12TextVScrollBar1ValueToStri
gE
dSub直接拖动图片PrivateSubpictureBox1_MouseDow
ByValse
derAsSystemObjectByValeAsSystemWi
dowsFormsMouseEve
tArgsHa
dlespictureBox1MouseDow
draggi
gTrueexey表示光标相对于图片位置的相对坐标。我们需要将这个值保存下来oldXeX
f中级篇175
oldYeYE
dSub
■运行程序
r