Question

在VB6.0中，滚动条如何使用在PictureBox 控件中？

PictureBox 控件有没有自带滚动条？
如果没有，怎样插入滚动条控件？
该怎么完成，请说清楚一点。

Answer 1

Re: 如何获得PictureBox控件大小

得到图片大小：
CBitmap bitmap;
BITMAP bmp;
bitmap.LoadBitmap(IDB_BITMAP);
bitmap.GetBitmap(&bmp);
int nWidth=bmp.bmWidth;
int nHeight=bmp.bmHeight;

设置图片：
HINSTANCE hInst=AfxGetInstanceHandle();
((CStatic*)GetDlgItem(IDC_PIC))->SetBitmap(LoadBitmap(hInst, MAKEINTRESOURCE(IDB_BITMAP)));

获得控件的大小
CRect rect;
GetClientRect(&rect);

Answer 2

关注

Answer 3

建立Picture1，AutoSize设为False。

在Picture1内（注意！）建立Picture2，AutoSize设为True，载入图片。

自己添加HScroll和VScroll控件上去。

设置HScroll控件：
.Max=Picture2.Width-Picture1.Width
.Min=0
相似设置VScroll：
.Max=Picture2.Height-Picture1.Height
.Min=0

为HScroll编写Scroll事件过程：
Picture2.Left=-HScroll.Value
为VScroll编写Scroll事件过程：
Picture2.Top=-VScroll.Value

大致就是这样了，手头没有VB，不能运行测试，代码里可能会有些小问题，你可以自己参考些资料改进一下。

共同进步！