[分享]学习高手之作品(六)——销售回款分析图表

lion_f

怎么才能修改成适合自己用的系统，我研究了好几天还是不能调整到适合自己的系统阿

zjykpjx

en   众里寻他千百度阿

zhang911

QUOTE:

以下是引用dzz1001在2006-6-17 19:29:42的发言：
ListBox,ComboBox,OptionButton控件是怎么绑捆数据的，我看了很久还不知道是怎么绑捆的哦。

你要了解这些控件的使用,比如:

ComboBox

学习这些直接参考Excel中vba的帮助。

组合框控件、AddItem 方法、Picture 和 PicturePosition 属性示例

下例用组合框来显示控件的图片位置选项。每次用户单击列表选项，命令按钮上的图片和题注都将被更新。这个代码示例还使用了 AddItem 方法来填充组合框选项。

若要使用该示例，请将示例代码复制到某窗体的声明变量部分。请确保该窗体包含：

• 名为 Label1 的标签。
  
  
• 名为 CommandButton1 的命令按钮。
  
  
• 名为 ComboBox1 的组合框。

Private Sub UserForm_Initialize()
    Label1.Left = 18
    Label1.Top = 12
    Label1.Height = 12
    Label1.Width = 190
    Label1.Caption = "Select picture placement " _ 
        & "relative to the caption."
    
    '把列表条目加入组合框。每一
    '条目的值符合组合框中
    '对应的 ListIndex 的值。
    ComboBox1.AddItem "Left Top"        'ListIndex = 0
    ComboBox1.AddItem "Left Center"     'ListIndex = 1
    ComboBox1.AddItem "Left Bottom"     'ListIndex = 2
    ComboBox1.AddItem "Right Top"       'ListIndex = 3
    ComboBox1.AddItem "Right Center"    'ListIndex = 4
    ComboBox1.AddItem "Right Bottom"    'ListIndex = 5
    ComboBox1.AddItem "Above Left"      'ListIndex = 6
    ComboBox1.AddItem "Above Center"    'ListIndex = 7
    ComboBox1.AddItem "Above Right"    'ListIndex = 8
    ComboBox1.AddItem "Below Left"      'ListIndex = 9
    ComboBox1.AddItem "Below Center"    'ListIndex = 10
    ComboBox1.AddItem "Below Right"    'ListIndex = 11
    ComboBox1.AddItem "Centered"        'ListIndex = 12
    '使用下拉列表
    ComboBox1.Style = fmStyleDropDownList     '组合框值是 ListIndex 值
    ComboBox1.BoundColumn = 0          
    '把组合框设置为第一个条目
    ComboBox1.ListIndex = 0
      
         
    ComboBox1.Left = 18
    ComboBox1.Top = 36
    ComboBox1.Width = 90
    ComboBox1.ListWidth = 90
    
    '初始化 CommandButton1
    CommandButton1.Left = 230
    CommandButton1.Top = 36
    CommandButton1.Height = 120
    CommandButton1.Width = 120
    
    '注意：确认引用的位图文件是
    '存在于系统中的，并在
    '文件名中包括路径
    CommandButton1.Picture = _ 
         LoadPicture("c:\windows\argyle.bmp")
    CommandButton1.PicturePosition = ComboBox1.Value
End Sub

Private Sub ComboBox1_Click()
    Select Case ComboBox1.Value
    Case 0  '上左
        CommandButton1.Caption = "Left Top"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionLeftTop
    
    Case 1  '中左
        CommandButton1.Caption = "Left Center"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionLeftCenter
            
    Case 2  '下左
        CommandButton1.Caption = "Left Bottom"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionLeftBottom
        
    Case 3  '上右
        CommandButton1.Caption = "Right Top"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionRightTop
    
    Case 4  '中右
        CommandButton1.Caption = "Right Center"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionRightCenter
    
    Case 5  '下右
        CommandButton1.Caption = "Right Bottom"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionRightBottom
    
    Case 6  '左上
        CommandButton1.Caption = "Above Left"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionAboveLeft
    
    Case 7  '中上
        CommandButton1.Caption = "Above Center"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionAboveCenter
        
    Case 8  '右上
        CommandButton1.Caption = "Above Right"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionAboveRight
    
    Case 9  '左下
        CommandButton1.Caption = "Below Left"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionBelowLeft
    
    Case 10 '中下
        CommandButton1.Caption = "Below Center"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionBelowCenter
    
    Case 11 '右下
        CommandButton1.Caption = "Below Right"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionBelowRight
    
    Case 12 '中
        CommandButton1.Caption = "Centered"
        CommandButton1.PicturePosition = _ 
            fmPicturePositionCenter
    
    End Select
    
End Sub

学习其他的控件类似。还可以在搜索“控件”其他的帖子！

我要飞的更高

精英贴

asat

强~

amo_ruyi

楼主这么好的东西怎么没有办法解压缩呢

amo_ruyi

为什么下载不了啊

gloria_gxp

太厉害拉!超强 呵呵

先下载拉

bober

very good

glove

看了好久,还没法全看清楚，因为很多单元格被锁定,这个处理设计摸班要花很长的时间啊,LZ真是有耐心啊,要用十几个表格,也要细心啊,佩服,支持