VB6中奇怪的问题？

2008-07-14 09:30:14 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在内部CTL方式下引用VB6 UserControl对象本文来自这个帖子和这个帖子与赵老虎等同学的讨论，感谢赵老虎耐心指点。 1、问题的提出有一个activex控件，原来是单独做的一个ocx，现在我把它拿到工程内部。之后我在form中用form.controls.add()添加这个对象，结果发现控件的left, top, width, height, tabindex等属性通通不能用了。比如像上面这样做工程，那就不会有left, to 阅读详情

在程序中我定义了一个文本框控件数组，取名：txtField 在其GotFocus事件中我写了如下代码：
Private Sub txtField_GotFocus(Index As Integer)
Dim tStr As String
Dim tRs As New ClsOpR
Dim a As Integer　
Select Case Index
　　　Case 0
　　　　　　’do something
　　　Case 1
’do something
　　　Case 2
’do something
　　　Case 3
’do something
Case Else
’do something
End Select

tRs.OpenRs tStr

'填充comboBox控件
Combo1.Clear
If tRs.PRS.RecordCount > 0 Then
For a = 1 To tRs.PRS.RecordCount
Combo1.AddItem tRs.PRS.Fields(0).Value
tRs.MoveNext
Next
End If
tRs.MoveNext
tRs.PRS.Close
Set tRs = Nothing

'设置comboBox的位置

Combo1.Move txtField(Index).Left, txtField(Index).Top, txtField(Index).Width
Combo1.BackColor = RGB(241, 241, 234)
Combo1.Visible = True
我这是用VB6做的一个数据库，用了ADO，水晶报表，我想将鼠标点击文本框控件时，ComBoBox自动移到文本框的位置，覆盖文体框，这样就可以选择ComBoBox的下拉项，做为文体框的内容，可是，omBoBox怎么也移不到我选择的文本框上，老是在其上面一段距离，请问是怎么回事？

...全文