vb combobox的高度是只读属性，要怎样才能改变它的高度，谢谢大侠们！

Question

如题：
    我想要的效果是在窗体大小变化时，combobox的大小也能随之而改变，但是combobox控件的高度是只读的，不能改变，所以不能随窗体大小而改变，请问这个问题要怎样解决，谢谢。

Answer 1

改变COMBO的字体大小，高度就会随着改变

Answer 2

Option Explicit
Private FormOldWidth     As Long     '保存窗体的原始宽度
Private FormOldHeight     As Long     '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj     As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
      Next Obj
      On Error GoTo 0
  End Sub
    
  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)     As Double
      Dim i     As Long, TempPos       As Long, StartPos       As Long
      Dim Obj     As Control
      Dim ScaleX     As Double, ScaleY       As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth           '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight           '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 4
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
              Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
          Next i
      Next Obj
      On Error GoTo 0
  End Sub
上面这段代码是改变窗体大小的，但是窗体上的combobox控件不随之而改变，其它都能改变，如果像你们说的那样改变字体，要怎样实现呀。麻烦帮我改一改好吗，万分感谢！

Answer 3

Private Sub Form_Resize()
    Combo2.FontSize = Me.Height / 500
End Sub

Answer 4

Private Sub Form_Resize() 
    Combo2.FontSize = Me.Height / 500 
End Sub
这样子的话只是窗体初始的时候变化了啊，还是不能随窗体的大小改变而改变啊，我是想让它在窗体大小改变时，combobox的位置也跟着改变呀。

Answer 5

Private Sub Form_Resize()
Combo1.Font.Size = Form1.Height / 100 '可以改变Form1.Height / 100这个参数调整到合适的
End Sub

Answer 6

Private Declare Function SendMessage Lib _
  "USER32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As Long
    
  Private Const CB_ERR       As Long = -1
  Private Const CB_SETITEMHEIGHT       As Long = &H153
    
  Private Sub Command1_Click()
  '稍小一点的高度
    
          SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 50
          Combo1.Refresh
            
  End Sub
    
  Private Sub Command2_Click()
  '稍大一点的高度
          SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 100
          Combo1.Refresh
            
    
  End Sub

Answer 7

老张的API用得出神入化。学习

Answer 8

Option Explicit
Private FormOldWidth    As Long    '保存窗体的原始宽度
Private FormOldHeight    As Long    '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj    As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
      Next Obj
      On Error GoTo 0
  End Sub
    
  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)    As Double
      Dim i    As Long, TempPos      As Long, StartPos      As Long
      Dim Obj    As Control
      Dim ScaleX    As Double, ScaleY      As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 4
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
              Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
              If TypeOf Obj Is ComboBox Then Obj.FontSize = Int(Obj.FontSize * ScaleY)
          Next i
      Next Obj
      On Error GoTo 0
  End Sub

Answer 9

如果要像这样做的话，要怎样才能把代码添加到我上面给出的那段代码里面去，然后实现combobox跟着窗体变化而变化呢。

Answer 10

Option Explicit 
Private FormOldWidth    As Long    '保存窗体的原始宽度 
Private FormOldHeight    As Long    '保存窗体的原始高度 
  '在调用ResizeForm前先调用本函数 
  Public Sub ResizeInit(FormName As Form) 
      Dim Obj    As Control 
      FormOldWidth = FormName.ScaleWidth 
      FormOldHeight = FormName.ScaleHeight 
      On Error Resume Next 
      For Each Obj In FormName 
          Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " 
      Next Obj 
      On Error GoTo 0 
  End Sub 
    
  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数 
  Public Sub ResizeForm(FormName As Form) 
      Dim Pos(4)    As Double 
      Dim i    As Long, TempPos      As Long, StartPos      As Long 
      Dim Obj    As Control 
      Dim ScaleX    As Double, ScaleY      As Double 
      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例 
      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例 
      On Error Resume Next 
      For Each Obj In FormName 
          StartPos = 1 
          For i = 0 To 4 
          '读取控件的原始位置与大小 
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare) 
              If TempPos > 0 Then 
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos) 
                  StartPos = TempPos + 1 
              Else 
                  Pos(i) = 0 
              End If 
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小 
              Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY 
              If TypeOf Obj Is ComboBox Then Obj.FontSize = Int(Obj.FontSize * ScaleY) 
          Next i 
      Next Obj 
      On Error GoTo 0 
  End Sub

Answer 11

工程 -》 部件 -》 引用 ，勾选 “Microsoft Forms 2.0 Object Library”用后面出现的 Combobox，高度随便你改

Answer 12

 '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小 
              Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY 
              If TypeOf Obj Is ComboBox Then Obj.FontSize = Int(Obj.FontSize * ScaleY)          Next i 
      Next Obj 
加上这一句后虽然高度改变了，但是它的位置没有跟着窗体的变化而变化 呀。

Answer 13

Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY 这个不是可以改变位置吗？

Answer 14

Option Explicit
Private FormOldWidth    As Long    '保存窗体的原始宽度
Private FormOldHeight    As Long    '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj    As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          If TypeOf Obj Is ComboBox Then
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.FontSize & " "
          Else
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
          
          End If
      Next Obj
      On Error GoTo 0
  End Sub  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)    As Double
      Dim i    As Long, TempPos      As Long, StartPos      As Long
      Dim Obj    As Control
      Dim ScaleX    As Double, ScaleY      As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 4
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
                If TypeOf Obj Is ComboBox Then
                    If i = 4 Then
                        Obj.FontSize = Pos(3) * ScaleY
                    End If
                    
                    Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX
                Else
                    Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
                End If
          Next i
      Next Obj
      On Error GoTo 0
  End SubPrivate Sub Form_Initialize()
    Call ResizeInit(Me)
End SubPrivate Sub Form_Resize()
    Call ResizeForm(Me)
End Sub

Answer 15

9楼的代码就可以了啊！只是文本没有垂直居中而已。其实楼主大可不必计较此事。高度不变就不变吧，没什么了不起。
如果实现想追求这个，就用我的Anole吧，可以随意调，而且文本居中。^_^

Answer 16

“jhone99 ”的代码的确可以了，不过不光有combobox控件，当是line控件时，有不可以随着变化，还有好多控件都不可以，那不是要判断好多次呀，就是想找一个不用这么麻烦判断的方法，20楼有好的方法麻烦把代码贴出来看看啊，谢谢

Answer 17

Option Explicit
Private FormOldWidth    As Long    '保存窗体的原始宽度
Private FormOldHeight    As Long    '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj    As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          If TypeOf Obj Is ComboBox Then
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.FontSize & " "
          ElseIf TypeOf Obj Is Line Then
                Obj.Tag = Obj.X1 & " " & Obj.X2 & " " & Obj.Y1 & " " & Obj.Y2 & " " & Obj.BorderWidth & " "
          Else
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "          End If
      Next Obj
      On Error GoTo 0
  End Sub  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)    As Double
      Dim i    As Long, TempPos      As Long, StartPos      As Long
      Dim Obj    As Control
      Dim ScaleX    As Double, ScaleY      As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 5
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
          Next i
          
            If TypeOf Obj Is ComboBox Then
                Obj.FontSize = Pos(3) * ScaleY
                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX
            ElseIf TypeOf Obj Is Line Then
                Obj.X1 = Pos(0) * ScaleX
                Obj.X2 = (Pos(1) - Pos(0)) * ScaleX + Obj.X1
                Obj.Y1 = Pos(2) * ScaleY
                Obj.Y2 = (Pos(3) - Pos(2)) * ScaleY + Obj.Y1
                Obj.BorderWidth = Pos(4) * Sqr(ScaleX * ScaleX + ScaleY * ScaleY)
            Else
                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
            End If
      Next Obj
      On Error GoTo 0
  End SubPrivate Sub Form_Initialize()
    Call ResizeInit(Me)
End SubPrivate Sub Form_Resize()
    Call ResizeForm(Me)
End Sub

Answer 18

不错 不错，  msflexgrid 里的网格的 高度和宽度怎么样随着比例变化而变化