vb操作外部程序combo

❶ vb 展开combo列表的方法

补充一下，需要先获得焦点：

PrivateSubCommand1_Click()
Combo1.SetFocus'获取焦点
SendKeys"%{Down}"'发送虚拟键ALT+下
EndSub

❷ vb中combo的详细用法

1、定义控件对应变量

假定已经创建了一个Dialog，并且从控件工具箱将 Combo Box 控件拖放到上面。打开 Class Wizard，添加控件对应变量，如：CComboBoxm_cbExamble;

在后面的代码中会不断使用这个变量。

2、在ComboBox控件属性的Data标签里面添加，一行表示ComboBox下拉列表中的一行。换行用ctrl+回车。

3、在程序初始化时动态添加

如： //控件内容初始化

CString strTemp;

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent();//消除现有所有内容

for(int i=1;i<=100;i++)

{

strTemp.Format("%d",i);

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp);

}

4、下拉的时候添加

如：CString strTemp;

intiCount=((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetCount();//取得目前已经有的行数

if(iCount<1)//防止重复多次添加

{

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent();

for(inti=1;i<=100;i++)

{

strTemp.Format("%d",i);

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp);

}

}

5、取得Combo Box框内容

取当前内容

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetWindowText(strTemp);

取其他行内容

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetLBText(n,strTemp);

❸ VB解决，获得正在运行程序的combobox当前内容

当组合框改变时获取内容:
Private Sub Combo1_Click()
Text1 = Combo1.Text
End Sub

当单击按钮时获取组合回框内容答：
Private Sub Command1_Click()
Text1 = Combo1.Text
End Sub

❹ VB，如何使用combo作为选择

Private Sub Combo1_Click()
Text1 = Combo1 + 1
Text2 = Combo1 + 2
Text3 = Combo1 + 3
Text4 = Combo1 + 4
Text5 = Combo1 + 5
Text6 = Combo1 + 6
Text7 = Combo1 + 7
End Sub
要删除的话
用Combo1.RemoveItem 0 后面的0代表的是删除第一项 要删除第二版项就Combo1.RemoveItem 1 依次类推权
如果要删除选中的 用Combo1.RemoveItem Combo1.ListIndex 就可以了

❺ VB按钮控制combo

Private Sub Command1_Click()
If Combo1.Text = "A" Then
Combo2.Clear
Combo2.AddItem "A1"
Combo2.AddItem "A2"
Combo2.AddItem "A3"
End If
If Combo1.Text = "B" Then
Combo2.Clear
Combo2.AddItem "B1"
Combo2.AddItem "B2"
Combo2.AddItem "B3"
End If
If Combo1.Text = "C" Then
Combo2.Clear
Combo2.AddItem "C1"
Combo2.AddItem "C2"
Combo2.AddItem "C3"
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
End Sub

❻ VB如何获取外部程序的combobox的内容

很难很难，没有外部程序的源码，很难实现，combobox是组合框，还有很多内容未显示出来的，显示出来的内容可以考虑用屏幕捕捉来获取

❼ vb获得外部程序的combobox内容

Option Explicit

Private Const CB_GETCOUNT = &H146
Private Const CB_GETLBTEXT = &H148

Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)

Private Sub Command1_Click()
Dim count As Long
Dim a As String
a = String$(255, 0)

count = SendMessageBynum&(Combohwnd, CB_GETCOUNT, 0, 0)
SendMessageByString& Combohwnd, CB_GETLBTEXT, 0, a
a = Left$(a, InStr(a, Chr$(0)) - 1)

End Sub

Combohwnd 是 combobox 的句柄
count 是获取的 combobox 项目数
a 是获取的 combobox 指定项内容， 0 对应第一项

❽ vb控件combo1使用方法

一：新建一个模块，保存以下代码.注意修改数据库路径/名/密码/
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sql As String

Public UserName As String
Public UserLimit As Integer

'==================
'连接数据库
'==================
Public Function DB_Link()
On Error Resume Next
Dim CnStr As String
Dim DBPath As String, DBName As String
Dim DBUser As String, DBPsw As String
DBPath = App.Path & "\" '数据库地址
DBName = DATABASE_NAME '数据库文件名
DBPsw = DATABASE_PASSword '数据库密码
CnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data source =" & DBPath & DBName & "; Jet OLEDB:Database Password=" & DBPsw
Conn.CursorLocation = adUseClient '必须设置客户端游标方式
Conn.Open CnStr
End Function

'====================
'断开数据库
'====================
Public Function DB_Close()
On Error Resume Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Function

二:窗体代码.
private sub form_load()
db_link
sql = "select * from 保存项目名称的那个表名"
set rs =conn.execute(sql)
do until rs.eof
combo1.additem rs("项目名称所在列名")
rs.movenext
db_close
end sub
以上是添加到combo1的代码...
后面你说的什么保存到用户信息表中什么的看不明白..

需要帮忙的话给我发email:[email protected]

❾ vb程序编程，就是combo下拉菜单中，那些选项的排列是怎么样的

Combo1.List(0) = "梨子" 这句是设置列表第一个项目的内容 也就是 西瓜被替换成梨子了
顺序没错
Combo1.AddItem "西瓜"
Combo1.AddItem "苹果"
Combo1.AddItem "橘子"
Combo1.AddItem "葡萄"
Combo1.AddItem "哈密瓜"
Combo1.AddItem "火龙果"
Combo1.AddItem "柚子"
Combo1.List(0) = "梨子"
Combo1.List(7) = "猕猴桃"

❿ VB 中用按钮控制 combo 的方法

Private Sub Command1_Click()
Dim index As Integer
index = Combo1.ListIndex
If index = Combo1.ListCount - 1 Then
MsgBox ("没有内容")
Exit Sub
End If
Combo1.ListIndex = index + 1
End Sub