非常怪的scalemode的问题求教．
我想在窗体的resize事件中控制组合框的长度，用到api函数，可是为什么使用movewindow函数，scalemode必须设置成像素才行呢？如果设成缇的话，根本组合框就无法显示出来，真是怪了．请大家指教，代码如下：

Option Explicit

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 Command1_Click()
MsgBox ScaleMode

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 50: Combo1.AddItem Format$(i): Next i
End Sub

Private Sub Form_Resize()
Dim combo_height As Integer
Dim form_mode As Integer

form_mode = ScaleMode
ScaleMode = vbPixels '使用这一句正常
'ScaleMode = vbTwips '使用这一句则无法显示出组合框，而且每运行一次resize事件，组合框的 left ,top属性都会变化

combo_height = ScaleHeight - Combo1.Top - 5

If MoveWindow(Combo1.hwnd, Combo1.Left, Combo1.Top, Combo1.Width, combo_height, 1) = 0 Then
MsgBox "err"
Else
MsgBox Combo1.Left & "----" & Combo1.Top
End If

ScaleMode = form_mode '恢复原来的
End Sub

难道使用api 函数movewindow,只能以像素为单位吗?

因为MoveWindow函数所使用的坐标系统是以像素为标准的(实际上大部分API函数都是以像素为基本坐标单位的)。

？？？
为什么我的电脑上测试一下能显示出来？？？？'ScaleMode = vbTwips的值为10000左右比像素大了很多（像素为44 88）
但是第二次改变会显示错误

还有，resize不是窗体改变的事件吗？？
为什么我的鼠标还没有完成动作就已经被msgbox打断了？？？

补充一下Twips时确实看不见combo


但是为什么在form_load的时候也会出现msgbox???

我运行没有效果啊，comb没有变……

form_load

窗体从没有到有，你所size变了麽？
最小化，也变。

对了，我是将组合框放在框架中了，如果直接放在窗体上是不会有问题的。
但是放在frame框架中，就会出现我说的问题了。