如何显示和隐藏VBA控件中的按钮？

问题1：
如何显示和隐藏按钮，这代码怎么写？

如“图1"所示，
当书籍状态一栏出现“在库”时，按钮“我要排队”隐藏,“我要借阅”显示，
当书籍状态一栏出现“j借阅中”时，按钮“我要排队”显示,“我要借阅”隐藏，
当书籍状态一栏不为空时（既书籍已经处于借阅状态，且有人在排队了），按钮“我要排队”和“我要借阅” 都隐藏。
（当然啦，确定按钮是一直显示）
附：书籍状态栏控件名称为：lbSJZT
       排队情况栏控件名称为：lbPDQK
      我要排队按钮名称为：cbmWYPD
      我要借阅按钮名称为：cbmWYJY

问题2：
如何指定下拉菜单？

如图： 如何将comboBox（复合框）控件的下拉菜单中的选项指定为某工作表中的某特定位置。

         例如“图2”中这个comboBox（复合框控件）（名称是 cbSJMC），要将它的下拉菜单指定到"辅助页"表的“A列”。
         该如何写代码啊？

答案：问题1：
cbmWYPD.Visible = True '显示按钮
cbmWYPD.Visible=False '隐藏按钮
不过建议你用一个按钮不同Caption属性来控制,没必要用两个按钮控件来做
比如用cbmWYPD按钮
cbmWYPD按钮的Caption属性 可以在写书籍状态的label时写入
Private Sub cbmWYPD_Click()
if cbmWYPD.Caption="我要排队" then 
你要执行的操作
end if
if cbmWYPD.Caption="我要借阅" then 
你要执行的操作
end if
end sub

问题2：
说明:工作表的range("A:A").value 是一个多维数组要赋值给你一个空的cbSJMC.List要转换成一个1维的数组,所以用WorksheetFunction.Transpose转置一下把他变成一维)
cbSJMC.List=WorksheetFunction.Transpose(Sheets("辅助页").Range("A:A").Value)

其他：这些东西你自己写判断语句去做就行了.
方法是:   这个判断语句一般是放在各个文本框的Change事件中
比如: 根据书籍状态决定"我要排除"是否可用.(注意enabled只是表示是否可点击,如果你要直接隐藏的话,应该用visible属性)

if lbSJZT.value="在库" then
   cbmWYPD.Enabled = False
else
  cbmWYPD.Enabled = true
endif 

上一个：带可视化数据管理器 VB6.0精简版
下一个：vb如何读取这样的串口字符串并显示出来