Question

VB6.0 如何让下拉框里面的内容全部显示，就是说不要出现滚动条，知道的QQ459777807，立马100分

VB6.0 如何让下拉框里面的内容全部显示，就是说不要出现滚动条，知道的QQ459777807，立马100分
窗口内放一个输入框，按下某键，另一个输入框就显示键码。懂的加QQ。加多100分。

Answer 1

返回输入在text1中的首个字符的键码在text2中的代码：

Private Sub Text1_Change()
If Len(Text1.Text) > 0 Then
Text2.Text = Asc(Text1.Text)
Else
Text2.Text = ""
End If
End Sub

已经发到你的QQ上了。

Answer 2

加入如下代码：
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub setComboHeight(oComboBox As ComboBox, lNewHeight As Long)
Dim oldscalemode As Integer
Dim lngLeft&, lngTop&, lngWidth&
lngLeft = oComboBox.Left
lngTop = oComboBox.Top
lngWidth = oComboBox.Width
If TypeOf oComboBox.Parent Is Frame Then Exit Sub
oldscalemode = oComboBox.Parent.ScaleMode
oComboBox.Parent.ScaleMode = vbPixels
MoveWindow oComboBox.hwnd, lngLeft \ 15, lngTop \ 15, lngWidth \ 15, lNewHeight, 1
oComboBox.Parent.ScaleMode = oldscalemode
End Sub
再用以下代码调用就行了，3000可以更改
Private Sub Command1_Click()
Call setComboHeight(Combo1, 3000)
End Sub

追问

怎么这么乱的。弄不了的

追答

呵呵，改了下