AW: Problem mit UserForm
15.07.2008 16:01:00
ray
Hallo Rudi,
von wegen kein Problem....
auf der Form habe ich eine comboBox die so gefüllt werden soll:
Private Sub UserForm_Initialize()
frmCalculator.combo1.AddItem "+"
frmCalculator.combo1.AddItem "-"
frmCalculator.combo1.AddItem "*"
frmCalculator.combo1.AddItem "/" '
If Val(Application.Version) >= 9 Then
wHandle = FindWindow("ThunderDFrame", Me.Caption)
Else
wHandle = FindWindow("ThunderXFrame", Me.Caption)
End If
If wHandle = 0 Then Exit Sub
frm = GetWindowLong(wHandle, GWL_STYLE)
frm = frm Or &HC00000
SetWindowLong wHandle, -16, frmStyle
DrawMenuBar wHandle
'Me.Height = 195
'Me.Width = 207
If IsNumeric(ActiveCell) Then txtDisp = ActiveCell
End Sub
Die Größenanpassung habe ich mit ' deaktiviert.
Ich kann meine ComboBox zwar sehen, aber nciht anklicken....
Gruß vom verzweifelten Ray mit zunehmend schlechter werdenden Laune und WETTER