📄 11319.htm
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>看实例学VFP：对组合框控件的再探索 - 编程入门网</title>
<meta name="keywords" content="看实例学VFP：对组合框控件的再探索">
<meta name="description" content="看实例学VFP：对组合框控件的再探索">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/images/style.css" rel="stylesheet" type="text/css" />
<script src="/js1/head.js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#efefef" oncopy=nocopy()>
<TABLE width="760" cellPadding="0" cellSpacing="0" bgcolor="#eff7fe" align="center">
<TR>
<TD><a href="/index.htm"><img src="/images/logo1.gif" width="150" height="60" border="0"></a></TD>
<TD width="470" align="right"><script src="/js1/top.js"></script></TD>
<TD width="125" align="center"><script src="/js1/topsy.js"></script></TD>
</TR>
</TABLE>
<table width="760" border="0" cellpadding="1" cellspacing="0" class="bklan" align="center">
<tr>
<td align="center" bgcolor="#eff7fe" height="24"> | <a href='/Programming/index.htm'>编程语言</a> | <a href='/webkf/index.htm'>web开发</a> | <a href='/data/index.htm'>数据库</a> | <a href='/Network/index.htm'>网络技术</a> | <a href='/OS/index.htm'>操作系统</a> | <a href='/Servers/index.htm'>服务器</a> | <a href='/web/index.htm'>网页设计</a> | <a href='/Design/index.htm'>图形设计</a> | <a href='/Office/index.htm'>办公软件</a> | <a href='/soft/index.htm'>常用软件</a> | <a href='/shadu/index.htm'>杀毒频道</a> | <a href='/PC/index.htm'>学电脑</a> |</td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content1.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td height="25" background="/templets/img/31bg3.gif" align="left" class="guidet"> → 当前位置:<a href='http://www.bianceng.cn/'>首页</a>→<a href='/Programming/index.htm'>编程语言</a>→<a href='/Programming/vfp/index.htm'>vfp</a>→正文</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top" class="guidet" width="595"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ct">
<tr>
<td align="center" valign="middle" class="til"><h3> 看实例学VFP：对组合框控件的再探索 </h3>
发布时间：2009-04-11 来源：编程入门网 作者：老马<br />
<script src="/js1/468.js"></script>
</td>
</tr>
<tr>
<td style="font-size:14px" align="left" class="til"><table border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><script src="/js1/300.js"></script></td>
</tr>
</table><p> 组合框控件(combobox)在vfp中也是一个常用的控件，组合框兼具文本框和列表框的功能，它的名称大概也由此而来。在<a href="/vfpjc/chapter5/5-8.HTM">vfp基础教程-组合框控件(combobox)</a> 中已经比较详细地给出了组合框的常用属性和方法。</p>
<p> 在组合框控件的应用中，很重要的一个环节是它的RowSourceType及RowSource这两个属性的组合。比如在<a href="/Programming/vfp/200902/11247.htm">看实例学VFP：对表中记录进行定位与查找操作</a>这个例子中是把组合框的RowSourceType属性值设为“1-值”，而在<a href="/Programming/vfp/200902/11270.htm">看实例学VFP：去除查询结果中的重复记录</a>这个例子中是把组合框的RowSourceType属性值设为“2-别名”。</p>
<p> 这个控件有一个style属性，如果将这个属性设为“0-下拉组合框”，可以在使用下拉列表框的同时，使用组合在其中的文本框，这也是系统默认的属性值；如果将这个属性设为“2-下拉列表框”，则组合框只具有列表框的功能；如果需要在表单启动时组合框自动有一个选定值，可以在表单的init事件中将这个选定值赋给组合框的displayvalue属性。</p>
<p> 这个控件还有一个值得一提的属性：Text，通过这个属性我们可以使用输入到组合框中的文本框中的值，也可以把这个值赋给一个变量。这个属性很重要，比如有时需要把输入到文本框中的值同时添加到组合框的列表项中，就需要使用这个属性。</p>
<p> 关于向组合框添加列表项：MSDN帮助给出了一个很好的建议，最好在添加前检查一下组合框的下拉列表中有无重复值，并给出了一段发生在组合框的Valid事件中的示例代码。在本文随后给出的例子，在添加列表项这部分的代码中参考了MSDN的这部分代码，不过本例是将这个操作放到了命令按钮的click事件中。</p>
<p> 本文来设计一个组合框既可以选值又可以输入值的例子，在<a href="/Programming/vfp/200903/11295.htm">看实例学VFP：超级链接控件的使用</a>一例中我们只能访问预设在列表框中的几个网站，本文用组合框控件来改进一下这个例子，使之不仅能访问预设的网址，还可以通过在组合框的文本框中输入值来访问一个网址，并且在访问后这个网址会自动添加到组合框的下拉列表中，运行界面如下图：</p>
<p><img height="58" alt="" width="355" border="0" src="/upimg/userup/0904/11141611b26.jpg" /> </p>
<p> 制作步骤如下：</p>
<p> 一、新建表单，将其caption属性设置为“编程入门网-组合框控件”，保存为“表单1.scx”。</p>
<p> 二、向表单上添加一个label控件，将其caption属性值设置为“请输入或选择一个网址”。</p>
<p> 三、向表单上添加一个命令按钮控件command1，将其caption属性值设置为“Go!”。</p>
<p> 四、向表单上添加一个组合框控件combo1，将其RowSourceType属性值设为“1-值”，style属性值使用默认的为“0-下拉组合框”。</p>
<p> 五、按上图适当调整各控件及表单的大小和位置。</p>
<p> 六、添加事件代码：</p>
<p> 1、表单的init事件代码：</p>
<p>this.AddObject("Hyperlink1","HyperLink") &&添加超级链接控件<br />this.combo1.additem("Baidu")<br />this.combo1.additem("Google")<br />this.combo1.additem("Sogou")<br />this.combo1.additem("Yahoo")<br />this.combo1.additem("MSDN")<br />this.combo1.additem("CSDN")<br />this.combo1.additem("Yesky")<br />this.combo1.additem("小小鸟")</p>
<p> 2、命令按钮的click事件代码：</p>
<pre>str1=alltrim(thisform.combo1.displayvalue)
do case str1
case str1="Baidu" &&访问百度
thisform.Hyperlink1.NavigateTo("www.baidu.com")
case str1="Google" &&访问谷歌
thisform.Hyperlink1.NavigateTo("www.google.cn")
case str1="Sogou" &&访问搜狗
thisform.Hyperlink1.NavigateTo("www.sogou.com")
case str1="Yahoo" &&访问雅虎
thisform.Hyperlink1.NavigateTo("one.cn.yahoo.com")
case str1="MSDN" &&访问微软MSDN主页
thisform.Hyperlink1.NavigateTo("msdn.microsoft.com")
case str1="CSDN" &&访问CSDN网站
thisform.Hyperlink1.NavigateTo("www.csdn.net")
case str1="Yesky" &&访问天极
thisform.Hyperlink1.NavigateTo("www.yesky.com")
case str1="小小鸟" &&访问编程入门网
thisform.Hyperlink1.NavigateTo("www.bianceng.cn")
otherwise
if empty(alltrim(thisform.combo1.text))
messagebox("请输入或选择一个网址！")
thisform.combo1.setfocus
return
endif
thisform.Hyperlink1.NavigateTo(thisform.combo1.text)
lItemExists=.f. &&假设列表中没有该值。
FOR i=1 to THISform.combo1.ListCount
IF THISform.combo1.List(i)=THISform.combo1.Text
lItemExists=.T.
EXIT
ENDIF
ENDFOR
IF !lItemExists
THISform.combo1.AddItem(THISform.combo1.Text)
ENDIF
endcase</pre>
<p> 七、运行“表单1.scx”。</p>
<p> 本例代码在Win2003+VFP6.0环境下调试通过，源码下载地址：</p>
<p> <a target="_blank" href="http://club.bianceng.cn/thread-996-1-1.html">http://club.bianceng.cn/thread-996-1-1.html</a></p>
<p> <a href="/Programming/vfp/200902/11245.htm">查看全套“菜鸟也学VFP”教程</a></p><center><br /><script src="/js1/4682.js"></script></center>
<p>上一篇：<a href='/Programming/vfp/200904/11318.htm'>看实例学VFP：文本框控件</a> 下一篇：<a href='/Programming/cs/jc/200904/11320.htm'>C#入门全攻略</a> </p></td>
</tr>
<tr>
<td align="left" style="font-size:14px;" height="25"><IMG src="/images/t0.gif" width="12" height="12" align=absMiddle><strong>相关文章</strong><br /><table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11318.htm">看实例学VFP：文本框控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200904/11317.htm">看实例学VFP：进度条控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11299.htm">看实例学VFP：模拟VB控件数组操作标签控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11298.htm">看实例学VFP：选项按钮组控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11297.htm">看实例学VFP：commondialog控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11296.htm">看实例学VFP：复选框控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11295.htm">看实例学VFP：超级链接控件的使用</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11294.htm">看实例学VFP：用编辑框控件做个“摸奖机”</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11293.htm">看实例学VFP：用列表框控件做个“开始菜单</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实例-动画</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修改表结构</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11290.htm">看实例学VFP：用sql命令创建表</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连编综合示例</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登录表单</a><br/>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="165" valign="top" class="guideb"><script src="/js1/1601.js"></script><table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>阅读排行</strong></td>
</tr>
<tr>
<td>·<a href="/Programming/vfp/200902/11252.htm">看实例学VFP：用SELECT语</a><br/>
·<a href="/Programming/vfp/200902/11245.htm">菜鸟也学VFP</a><br/>
·<a href="/Programming/vfp/200902/11256.htm">看实例学VFP：模糊查询</a><br/>
·<a href="/Programming/vfp/200902/11246.htm">看实例学VFP：示例数据库</a><br/>
·<a href="/Programming/vfp/200902/11254.htm">看实例学VFP：用sql语句修</a><br/>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登</a><br/>
·<a href="/Programming/vfp/200902/11253.htm">看实例学VFP：用sql语句向</a><br/>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修</a><br/>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连</a><br/>
·<a href="/Programming/vfp/200705/977.htm">vfp远程视图与spt应用详解</a><br/>
·<a href="/Programming/vfp/200902/11250.htm">看实例学VFP：删除数据表</a><br/>
·<a href="/Programming/vfp/200902/11247.htm">看实例学VFP：对表中记录</a><br/>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实</a><br/>
·<a href="/Programming/vfp/200902/11282.htm">看实例学VFP：表单集的例</a><br/>
·<a href="/Programming/vfp/200903/11287.htm">看实例学VFP：用顶层表单</a><br/>
</td>
</tr>
<tr>
<td><script src="/js1/1602.js"></script></td>
</tr>
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>最新文章</strong></td>
</tr>
<tr>
<td><script src="/plus/js/0.js" language="javascript"></script></td>
</tr>
</table></td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content2.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="26">
<td bgcolor="#e1f0fd" width="48"></td>
<td bgcolor="#6ab3f4" width="35"></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#c0c0c0" width="530" align="center"><a title="将本站设为你的首页" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://www.bianceng.cn');return false;" href="http://www.bianceng.cn/">设为首页</a> | <a class="navmenu"
title="将本站加入到你的收藏夹"
href="javascript:window.external.AddFavorite(location.href,document.title)">加入收藏</a> | <a href="/about/about.htm">关于本站</a> | <a href="/plus/flink.php">友情链接</a> | <a href="/about/banquan.htm">版权声明</a> | <a href="/plus/sitemap.html">网站地图</a> | <a href="/plus/rssmap.html">RSS订阅</a></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#6ab3f4" width="32"></td>
<td bgcolor="#e1f0fd" width="47"></td>
</tr>
<tr height="26">
<td colspan="9" bgcolor="#FFFFFF" align="center">编程入门网 版权所有,bianceng.cn,All Rights Reserved. <script src="/js/tongji.js"></script> 阅读次数：<script src="/plus/count.php?aid=11319&mid=0" language="javascript"></script></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -