说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

100分求解:ActiveX控件在网页中用,如何使弹出的第二个form一直居于网页上层?--在线等

编辑:说三道四文库 发布时间:2018-07-19 04:30
HTML文档下载 WORD文档下载 PDF文档下载
有没有人做过这样的控件?
我想实现这样一个功能:
在User Control1中做一个Combox1,用户在combox1输入框中输入时,激活form2,在form2中有一个listview,其中显示从数据库中按照combox的值搜索得到的几个字段的值,此时,焦点要移回到combox1,使用户可以继续输入,输得越多,定位的越精确。当用户点击listview某一行时,将对应值付给combox1,主要是用来解决combox1的下拉选项非常多,用户很难选择的问题。
但是现在遇到的麻烦是:
1.无法将form2精确定位到combox的下方,(combox1所在的User COntrol1大小与combox一样,这样放在网页中,不会占据太大的空间。),用form2.left = combox1.left等不管用
2.当焦点移回到combox时,form2也被隐藏了,无法一直在网页上方
3.我曾经想不将combox1直接放到User Control1中,而是放在一个form1中,再将form1放在User Control1中,可是没法办到




谁做过类似的控件?或者有什么其它好的建议?
分不够可再加呀,
mark
可不可以加两个控件:combo和list,当combo得到输入时,list.visible=true ,当输入结束时,list.visible=fause?
至于user control1的大小,可以用代码调节。trying........
Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    UserControl.Height = Combo1.Height
    List1.Clear '//这里进行结果的处理
Else
    UserControl.Height = Combo1.Height + List1.Height
    List1.AddItem Chr(KeyAscii) '//这里进行数据库筛选操作
End If
End Sub

Private Sub UserControl_Initialize()
UserControl.Height = Combo1.Height
UserControl.Width = Combo1.Width

End Sub
这样一来,UserControl.Height一改动,就会造成页面布局的改动呀?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘