參考如下代碼
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、重慶網(wǎng)絡(luò)推廣、成都小程序開(kāi)發(fā)、重慶網(wǎng)絡(luò)營(yíng)銷、重慶企業(yè)策劃、重慶品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供重慶建站搭建服務(wù),24小時(shí)服務(wù)熱線:18982081108,官方網(wǎng)址:www.cdcxhl.com
1
2
$("select").val(); // 選中項(xiàng)目的value值
$("select option:checked").text(); // 選中項(xiàng)目的顯示值
示例如下:
創(chuàng)建Html元素
1
2
3
4
5
6
7
8
請(qǐng)選擇:
select id="sel"
option value="1"選項(xiàng)1/option
option value="2"選項(xiàng)2/option
option value="3"選項(xiàng)3/option
option value="4"選項(xiàng)4/option
/select
input type="button" value="點(diǎn)擊查看被選項(xiàng)目"
編寫(xiě)jquery代碼
1
2
3
4
5
6
7
$(function(){
$("input").click(function() {
a = $("#sel").val();
b = $("#sel option:checked").text();
alert("被選項(xiàng)目的值:"+a+",被選項(xiàng)目的顯示值:"+b+"。");
});
})
您可以選擇使用CheckListBox控件。CheckListBox支持多選。
由于不清楚您用什么語(yǔ)言,所以我寫(xiě)了VB.net?、C#.net
vb.net?Code
'?Determine?if?there?are?any?items?checked.
If?CheckedListBox1.CheckedItems.Count??0?Then
'?If?so,?loop?through?all?checked?items?and?print?results.
Dim?x?As?Integer
Dim?s?As?String?=?""
For?x?=?0?To?CheckedListBox1.CheckedItems.Count?-?1
s?=?s??"Checked?Item?"??(x?+?1).ToString??"?=?"??CheckedListBox1.CheckedItems(x).ToString??ControlChars.CrLf
Next?x
MessageBox.Show(s)
End?If
C#.net?Code
//?Determine?if?there?are?any?items?checked.
if(checkedListBox1.CheckedItems.Count?!=?0)
{
//?If?so,?loop?through?all?checked?items?and?print?results.
string?s?=?"";
for(int?x?=?0;?x?=?checkedListBox1.CheckedItems.Count?-?1?;?x++)
{
s?=?s?+?"Checked?Item?"?+?(x+1).ToString()?+?"?=?"?+?checkedListBox1.CheckedItems[x].ToString()?+?"\n";
}
MessageBox.Show?(s);
}
vb.net?Code
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?selectstr?As?String?=?""
For?i?As?Integer?=?0?To?Me.CheckedListBox1.Items.Count?-?1
If?Me.CheckedListBox1.GetItemChecked(i)?Then
selectstr?=?Me.CheckedListBox1.Items(i).ToString
End?If
Next
MsgBox(selectstr)
End?Sub
希望能幫到您。
Public Class Form1
Dim b(9)() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a(9) As String '這個(gè)數(shù)組用來(lái)存儲(chǔ)第一個(gè)下拉框的全部值。
For i = 0 To 9
a(i) = i '賦值。
ReDim b(i)(9) '定義選擇第一個(gè)下拉框的值時(shí),第二個(gè)下拉框分別有十個(gè)值。
For j = 0 To 9
b(i)(j) = i '賦值。
Next
Next
ComboBox1.Items.AddRange(a)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))
End Sub
End Class
設(shè)置一個(gè)全局變量:
Public item As String
然后在第一個(gè)窗口那里?。?/p>
item = ComboBox1.SelectedItem.ToString()
然后加到第二個(gè)窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(這個(gè)不可改內(nèi)容的設(shè)定可以在建立ComboBox的時(shí)候就設(shè)定了)
ComboBox2.Items.Add(item) (加入內(nèi)容,你或者也可以用別的,比如insert,這個(gè)可以加到指定的位置)
ComboBox2.SelectedItem = item (顯示那個(gè)剛加進(jìn)來(lái)的內(nèi)容)
這樣應(yīng)該可以了,建議你多看MSDN。
在下拉菜單的SelectionChangeCommitted事件中調(diào)用Button2_Click
Private Sub 選擇列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted
Button2_Click(sender, e)
End Sub
我不是很懂你的意思,如果你要用combox里的數(shù)據(jù)那就在and like之間加個(gè)
選擇列名ComboBox.text
不就得了
Then str = str " and " 選擇列名ComboBox.text " like '%" TextBox6.Text
是不是這樣:
private
sub
form_load()
dim
r
as
string
open
"c:\1.txt"
for
input
as
#1
'假設(shè)你的文檔是c:\1.txt
do
while
not
eof(1)
line
input
#1,r
combo1.additem
r
loop
close
#1
end
sub
如果這樣,就直接用1.txt,但要注意的是你的1.txt要和你的程序放在同一文件夾中。