易语言组合框d出列表调整字体后 列表框显示位置不对齐组合框

导致 列表框显示位置不对齐组合框 的原因主要有以下几点：
1，字体过大
2，组合框的顶边位置
3，屏幕的分辨率
列表框的位置系统会自动处理，有3个位置
1，当列表框的高度小于组合框底边的时候，列表框显示在组合框下方，并且对齐
2，当列表框的高度大于组合框底边，但小于组合框顶边的时候，列表框显示在组合框的上 方， 并且对齐
3，上面两个条件都不符合的话，列表框从屏幕顶端往下显示，这时候就会遮住组合框，（这就出现了你问的问题所出现的情况。）
改善方法：
1，选择合适的字体大小，过大的字体或者太小的字体会影响软件的美观
2，对不同的屏幕分辨率，选择不同的字体大小

首先要知道你的编辑框可以编辑多少行文字
如果可以下拉 那么 垂直局中则没意义
然后 根据你输入文字的行数来计算 要打多少个回车
比如5行输入了1行文字 那么就要打2个回车 3行 1个
如果输入偶数行 那么肯定要偏一点
这种方法不能绝对剧中
如果你想要绝对局中 就需要根据行数来重定向焦点比较麻烦我建议你实现功能时能用巧妙的方法实现就尽量不要走麻烦的路线
毕竟继承别人的框架需要你对别人的框架非常熟悉才能做到游刃有余
追问： 嗯 你说的我都试过了 不行的 你也可以按以下步骤试试，如果你能帮我实现最后一步就OK了（坚持一下哦）：1 加入一个组合框控件;（这个我已经OK了）2 加入后的高度和按扭的高度不同，调整组合框的高度;（这个我也已经OK了）3 给组合框的编辑框加上文字后，发现文字和按钮的文字不在一条线上，需要调整文字的对齐方式;（不知道怎么做！）希望你能帮我实现最后一步的 *** 作，先谢谢你了 ！

Private Sub Combo1_KeyPress(KeyAscii As Integer)
'① 只能输入数字
Select Case KeyAscii
Case 48 To 57, 13 '0～9数字和回车键为合法数据
If KeyAscii = 13 Then '如果回车则添加一笔
Combo1AddItem Combo1Text
End If
Case Else '否则为非法数据，去除非法字符
KeyAscii = 0 '0值意思就是除了上一个Case里数字与回车放行，其他全部在此拦截
End Select
End Sub
Private Sub Command1_Click()
Dim Min As Integer, iMin As Integer
Dim Max As Integer, iMax As Integer
Dim t As Integer
'②为了运算能正确做比较，这里的值先设置相反。
Min = 32767 '这里写个大值，不超过Integer限定的32767
Max = 0 '这里写个小值
For t = 0 To Combo1ListCount - 1 Step 1
'③ 开始循环取出每一个值跟 Min、Max做比较
'如果取出的值比Max大（Max就记录它）
If Max < Val(Combo1List(t)) Then
Max = Val(Combo1List(t))
iMax = t '与Max同步记录位置
End If
'如果取出的值比Min小（Min就记录它）
If Min > Val(Combo1List(t)) Then
Min = Val(Combo1List(t))
iMin = t '与Min同步记录位置
End If
Next t
' t变量刚刚是做循环用途，底下开始的运行作为交换值的用途
'循环完毕，最小值、最小值下标、最大值和最大值下标已经完成赋值

'开始依照④要求，先做组合框的第0项与最小值交换
t = Val(Combo1List(0))
Combo1List(0) = Val(Combo1List(iMin))
ombo1List(iMin) = t
'开始依照④要求，最大值与最后项交换（照抄前添加必要的Val函数）
t = Val(Combo1List(Combo1ListCount - 1))
Combo1List(Combo1ListCount - 1) = Val(Combo1List(iMax))
Combo1List(iMax) = t
End Sub
1在窗体里添加一个Combo1然后到Text属性清空Combo1，属性Style设置为1 Simple Combo,然后用鼠标把控件高度拉开。继续到List属性里按照顺序填入图形内指定的值。再把控件的高度宽度调整到适合即可。
2添加一个命令按钮Command1,到Caption属性改为交换文字，可以到Font里面设置文字大小。
3把窗体的布局依照位置调整一下就全部OK了
'说明写的够详细了，如果是作业，就把文字说明删掉些

---