菜鸟提问

davida

如何在word中实现单选框的分组？俺搜了一些帖子看，实在不好意思，在“窗体”中没找到“分组框”。

附件是俺正在做的一个表，为什么“下拉框”不能使用，已经在VB中写了内容进去，俺想实现的是点“太古”或“欧规”时“下拉框”不可用，点“世贸经销商”或“其它代理商”时可使用相应的“下拉框”。

不知道这样传上去各位大侠能不能看到VB的代码，要是不能好心告诉俺怎么传才能看到，帮俺指正。

各位大侠多多指教，谢谢啊。

davida

为什么没人理俺？？？

sdbbsdbb

不是偶不理你，而是楼主的水平太高，我最多只会在VB的设计状态下搞这个东东，没想到在WROD中也能搞这个东东？

这里的守老大这几天又没空，另外几位高手又不常来，因此，我这只三脚猫只好知难而闭猫嘴了，嘿嘿！

支持一下！

守柔

这个需要用到Frame（框架控件），请在控件工具箱/其它控件中，找到：microsoft forms 2.0 frame控件。

我简单地示范了一下，你重新设计一下。

davida

守老大，frame控件俺找到了，但怎么再把单选框放上去？俺一直放不成功。

再就是经销商里面的单选框与组合框使用问题，代码如下，帮俺看看为什么不能实现，多多指教：

Private Sub ComboBox1_Change() ComboBox1.AddItem "直销" ComboBox1.AddItem "杭州" ComboBox1.AddItem "宁波" ComboBox1.AddItem "金华" ComboBox1.AddItem "苏州" ComboBox1.AddItem "常州" ComboBox1.AddItem "郑州" ComboBox1.AddItem "无锡" ComboBox1.AddItem "温州" ComboBox1.AddItem "台州" ComboBox1.AddItem "绍兴" ComboBox1.AddItem "南京" ComboBox1.AddItem "合肥"

End Sub

Private Sub ComboBox2_Change() ComboBox2.AddItem "大连尊荣" ComboBox2.AddItem "北京路华" ComboBox2.AddItem "中汽南方" End Sub

Private Sub OptionButton1_Click() ComboBox1.Enabled = True ComboBox2.Enabled = False ComboBox2.Text = "" End Sub

Private Sub OptionButton2_Click() ComboBox1.Enabled = False ComboBox1.Text = "" ComboBox2.Enabled = False ComboBox2.Text = "" End Sub

Private Sub OptionButton3_Click() ComboBox1.Enabled = False ComboBox1.Text = "" ComboBox2.Enabled = False ComboBox2.Text = "" End Sub

Private Sub OptionButton4_Click() ComboBox2.Enabled = True ComboBox1.Enabled = False ComboBox1.Text = "" End Sub

俺想实现的是点“太古”或“欧规”时“下拉框”不可用，点“世贸经销商”或“其它代理商”时可使用相应的“下拉框”，而另一下拉框不可用。

davida

守老大又不理俺了。

sdbbsdbb

我替守老大向你打个招呼报个歉吧，老大是人，即要工作，又要生活，当然也需要休息，最近就算我们放守老大一个“年度休假”，好不好？

davida

好，那其他老大帮帮俺吧。

守柔

以下是引用davida在2005-6-23 9:21:15的发言： 守老大又不理俺了。

抱歉,我实在太忙,谢谢步兵兄理解与支持.

代码如下:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-25 6:31:22 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub OptionButton1_Click() ComboBox1.Enabled = True ComboBox2.Enabled = False ComboBox2.Text = "" Additem1 End Sub '---------------------- Private Sub OptionButton2_Click() ComboBox1.Enabled = False ComboBox1.Text = "" ComboBox2.Enabled = False ComboBox2.Text = "" End Sub '---------------------- Private Sub OptionButton3_Click() ComboBox1.Enabled = False ComboBox1.Text = "" ComboBox2.Enabled = False ComboBox2.Text = "" End Sub '---------------------- Private Sub OptionButton4_Click() ComboBox2.Enabled = True ComboBox1.Enabled = False ComboBox1.Text = "" AddItem2 End Sub '---------------------- Private Sub AddItem2() Application.ScreenUpdating = False ComboBox2.Clear ComboBox2.AddItem "大连尊荣" ComboBox2.AddItem "北京路华" ComboBox2.AddItem "中汽南方" Application.ScreenUpdating = True End Sub '---------------------- Private Sub Additem1() Application.ScreenUpdating = False ComboBox2.Clear ComboBox1.AddItem "直销" ComboBox1.AddItem "杭州" ComboBox1.AddItem "宁波" ComboBox1.AddItem "金华" ComboBox1.AddItem "苏州" ComboBox1.AddItem "常州" ComboBox1.AddItem "郑州" ComboBox1.AddItem "无锡" ComboBox1.AddItem "温州" ComboBox1.AddItem "台州" ComboBox1.AddItem "绍兴" ComboBox1.AddItem "南京" ComboBox1.AddItem "合肥" Application.ScreenUpdating = True End Sub '----------------------

'简单地说两句,这个东东,不用ACTIVEX控件,使用USERFORM更方便.

你的ACTIVEX的有一个引用,在我这儿没有,丢失,我看了一下,与文档无关,我移除了.

在使用FRAM控件时,在文档中设计,要比在USERFORM中设计,难一些,稍不留神,WORD便 BYEBYE了,所以,我也耗一些时间(半个小时) GhtVQndO.rar (20.24 KB, 下载次数: 32)

2005-6-25 06:32 上传

点击文件名下载附件
菜鸟提问

davida

多谢守老大，俺先研究学习一下，有问题再向您请教。