我是一刚学VB的新手,我想请高手指点一下combobox的具体用法,我只知道设置属性,但具体的用法不是很清楚,我想用组合框来调用图片.请高手指教一下.
combobox是最基本的控件了,你都不会,先看看书吧。
组合框来调用图片是什么意思?
Private Sub Form_Load() Combo1.AddItem "C:\Picture1.jpg" Combo1.AddItem "C:\Picture2.jpg" Combo1.AddItem "C:\Picture3.jpg" Combo1.AddItem "C:\Picture4.jpg" End Sub
Private Sub Combo1_Change() Image1.Picture=LoadPicture("Combo1.Text") End Sub
[此贴子已经被作者于2004-09-07 20:36:39编辑过]
Private Sub Form_Load() Combo1.AddItem "C:\Picture1.jpg" Combo1.AddItem "C:\Picture2.jpg" Combo1.AddItem "C:\Picture3.jpg" Combo1.AddItem "C:\Picture4.jpg" End Sub
Private Sub Combo1_Change() Image1.Picture=LoadPicture("Combo1.Text") End Sub
以上程序代码错误有两处(我想是他没调试过吧): 1、Image1.Picture=LoadPicture("Combo1.Text") 其中:Combo1.Text 是不用加双引号的 2、Private Sub Combo1_Change() 如上所言,代码Image1.Picture=LoadPicture(Combo1.Text) (这里是已更正的代码) 把它放在Change事件中,无论是Picture控件还是Image控件都是显示不出图片的,应放在Click单击事件中。 以下为个人简单编了一个示例: 所需控件:一个ComboBox,一个PictureBox 控件属性设置:Combo1设置基Style为2 源代码: Private Sub Combo1_Click() Picture1.Picture = LoadPicture(Combo1.Text) End Sub
Private Sub Form_Load() '以下图片仅本机所有,你可以用你的图片所在的位置 Combo1.AddItem ("F:\力\00000000000.jpg") Combo1.AddItem ("F:\力\love.jpg") Combo1.ListIndex = 0 End Sub 运行后如下图: [IMG]C:\Documents and Settings\Owner\My Documents\My Pictures\VB解答2.JPG[/IMG] [IMG]C:\Documents and Settings\Owner\My Documents\My Pictures\VB解答3.JPG[/IMG]
[此贴子已经被作者于2004-09-27 19:26:56编辑过]