最豪华飞机头等舱图片:mschart控件加滚动条

来源：百度文库编辑：偶看新闻时间：2024/04/28 11:25:09

'全部显示
Private Sub Command1_Click()
    MSChart1.Left = Picture1.ScaleLeft
    MSChart1.Top = Picture1.ScaleTop
    MSChart1.Height = Picture1.ScaleHeight
    MSChart1.Width = Picture1.ScaleWidth
    HScroll1.Enabled = False
End Sub
'2倍显示
Private Sub Command2_Click()
    MSChart1.Left = Picture1.ScaleLeft
    MSChart1.Top = Picture1.ScaleTop
    MSChart1.Height = Picture1.ScaleHeight
    MSChart1.Width = Picture1.ScaleWidth * 2
    HScroll1.Max = 100
    HScroll1.Min = 0
    HScroll1.Value = 0
    HScroll1.SmallChange = 10
    HScroll1.LargeChange = 20
    HScroll1.Enabled = True
End Sub
'4倍显示
Private Sub Command3_Click()
    MSChart1.Left = Picture1.ScaleLeft
    MSChart1.Top = Picture1.ScaleTop
    MSChart1.Height = Picture1.ScaleHeight
    MSChart1.Width = Picture1.ScaleWidth * 4
    HScroll1.Max = 100
    HScroll1.Min = 0
    HScroll1.Value = 0
    HScroll1.SmallChange = 10
    HScroll1.LargeChange = 20
    HScroll1.Enabled = True
End Sub
'初始化
Private Sub Form_Load()
MSChart1.Left = Picture1.ScaleLeft
MSChart1.Top = Picture1.ScaleTop
MSChart1.Height = Picture1.ScaleHeight
MSChart1.Width = Picture1.ScaleWidth * 2
HScroll1.Max = 100
HScroll1.Min = 0
HScroll1.Value = 0
HScroll1.SmallChange = 10
HScroll1.LargeChange = 20
End Sub
'滚动条
Private Sub HScroll1_Change()
MSChart1.Left = Picture1.ScaleLeft - (MSChart1.Width - Picture1.ScaleWidth) * HScroll1.Value * 0.01
Form1.Refresh
End Sub

frame控件能不能自动增加滚动条? 如何在VC++中加滚动条,我用得基类是CVIEW,不知道在哪加控件谁有 MSchart.ocx 控件 vb中WebBrowser控件滚动条问题（如何不显示滚动条 vb中WebBrowser控件滚动条问题（如何不显示滚动条？） vb中WebBrowser控件滚动条问题（如何不显示滚动条？怎么在百度空间加‘滚动条’ 百度空间怎么加透明滚动条在VB中如何去掉WebBrowser控件的滚动条？在VB中，滚动条控件的VALUE属性（）？ VB中滚动条的控件在哪？怎么弄？ vb中的listbox控件有没有横向滚动条啊如何使用vb的MSchart控件? 滚动条的滚动 vb中怎么样给picturebox加滚动条? 在DREAMWEAVER中怎么给表格加滚动条啊? 怎样在space自定义列表中加滚动条 msn space里如何给文章加滚动条？ vb中有没有办法让窗体自动加滚动条? vb中窗体能不能自加滚动条? msn space如何给文本加滚动条？怎么给VB的PICTUREBOX加滚动条？怎么给文章分类和友情链接加滚动条？如何在网页的文本框中加滚动条