社区
VB基础类
帖子详情
怎样才能把Combo1下拉框,不能有输入功能.combo1.text的值不能进行修改
learn_vb
2000-08-11 09:11:00
怎样才能把Combo1下拉框,不能有输入功能.combo1.text的值不能进行修改
...全文
236
3
打赏
收藏
怎样才能把Combo1下拉框,不能有输入功能.combo1.text的值不能进行修改
怎样才能把Combo1下拉框,不能有输入功能.combo1.text的值不能进行修改
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shines77
2000-08-13
打赏
举报
回复
把Combo1的Style属性设置成2-Dropdown list
并在第一次运行时执行Combo1.Listindex = 0(这样才能选择第一项List,否则Combo1是空的)
例如:
Private Sub Form_Load()
Combo1.Style = 2 '此项也可设计时设置
Combo1.ListIndex = 0
End Sub
monday
2000-08-12
打赏
举报
回复
everjoe是对的。
everjoe
2000-08-11
打赏
举报
回复
将Combo1的style属性设置为2
[原创]基于JQUERY的
Combo
下拉框
控件
特点: 构造初始化时,可传入一个SELECT对象控件,也可以传入DIV容器,程序会自动区分并渲染 如果初始化时,传入的是SELECT控件,则控件中的内容和使用模式将被缓存到Goo
Combo
对象中 有三种模式可定义:basic基本,multiple可多选,filter过滤显示 当Input内容框为可写状态时,可以通过
输入
TEXT
来直接获取要选择的
值
; 可定义是否为动态自动载入(即INPUT内容框被选定后再
进行
数据载入); 可以用上/下方向键和回车键来选择内容框中的
值
; 可以用AJAX方法,动态从远程服务器上获取下拉内容; 控件中含有隐藏的SELECT表单控件,ID及NAME都可自定义,这样可使
COMBO
控件放在一个普通的表单内,用户用一般的提交方式, 也可把选中的
值
准确地传到后台 经测试,兼容IE6--IE8,Firefox,chrome浏览器,在非IE浏览器下更加美观:)。 另:压缩包中有两个PNG文件,是FIREWORK的编辑文件,大家可以用FIREWORK编辑
下拉框
右边的按钮外观,或者加入各种16*16大小的PNG小图标,用来装饰
下拉框
select多选下拉列表+模糊查询
功能
.rar
select多选下拉列表+模糊查询
功能
,亲测完整,有ASP和HTML样例,代码完整。 Insert title here ----请选择---- ----量表一---- ----量表二---- ----量表三---- ----量表四---- $(function(){ $("#table_id").
combo
Select(); });
web自动化-键盘&对话框&
下拉框
&显示等待&隐式等待
本课程主要讲解web自动化-键盘
下拉框
对话框 显示等待 隐式等待,主要内容如下:1. 键盘操作案例2.
下拉框
操作3. 对话框处理4. 滚动条操作5. 显示等待6. 隐式等待7. 强制等待
计算机网络课程设计之聊天程序
实现聊天的简单
功能
Private Sub
Combo
1_Click() TxtSend.Font.Name =
Combo
1.
Text
End Sub Private Sub Check1_Click() '设置隶书字体 If Check1.Value = 1 Then TxtSend.FontName = "隶书" Else TxtSend.FontName = "宋体" End If End Sub Private Sub Check2_Click() '设置下划线字体 If Check2.Value = 1 Then TxtSend.FontUnderline = True Else TxtSend.FontUnderline = False End If End Sub Private Sub Check3_Click() '设置斜体字体 If Check3.Value = 1 Then TxtSend.FontItalic = True Else TxtSend.FontItalic = False End If End Sub Private Sub Check4_Click() '设置字体大小为18榜 If Check4.Value = 1 Then TxtSend.FontSize = 18 Else TxtSend.FontSize = 10 End If End Sub Private Sub Form_Load()
Combo
1.
Text
= TxtSend.Font.Name ‘设置
下拉框
,选择更多的字体 Dim i As Integer For i = 0 To Screen.FontCount - 1
Combo
1.AddItem Screen.Fonts(i) Next With UDPSever ‘控件的名字为UDPSever .RemoteHost= "172.16.50.24" ‘服务器主机IP名称 .RemotePort = 1001 ‘连接的端口号 .Bind 1002 ‘绑定到本地的端口 End With End Sub Private Sub txtSend_Change() UDPSever.SendData txtSend.
Text
‘在键入文本时,立即将其发送出去 End Sub Private Sub UDPSever _DataArrival (ByVal bytesTotal As Long) ‘在服
extjs3
combo
box取value和
text
案例详解
使用
combo
box时,它有一个hiddenName的属性,专门用于提交
combo
box中value的
值
,接下来介绍extjs3
combo
box如何取value和
text
值
,感兴趣的朋友可以不要错过了啊
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章