Hejsan

Kan man markera t,ex aktuell månad i en combobox som innehåller alla månader vid dropdown.

Tobbe

Ska den marker just när list rutan visas. Eller räcker den med att aktell månad är default på direkten?

Hej

Aktuell månad är redan markerad från start men det jag vill är att aktuell månad skall bli markerad när man gör dropdown.

testade med ett ex, från tips o trix men får det inte att funka

'formen
cbomonth1.ListIndex = SendMessage(cbomonth1.hWnd, _
LB_FINDSTRING, 1, _
ByVal Format(Now(), "mmmm"))

'Modulen
Public Declare Function SendMessage Lib "user32.dll" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Const LB_FINDSTRING = &H18F

Men får bara error kanske det beror på att jag har ändrat från List1 till Cbomonth !!!

mvh Tobbe

Gorde detta

cbomonth1.ListIndex = (cbomonth1 = Format(Now(), "mmmm"))

Men de funkar bara första gången.

Prova detta

<code>
Private Sub Form_Load()

With Combo1
.AddItem "Januari"
.AddItem "Februari"
.AddItem "Mars"
.AddItem "April"
.AddItem "Maj"
.AddItem "Juni"
.AddItem "Juli"
.AddItem "Augusti"
.AddItem "September"
.AddItem "Oktober"
.AddItem "November"
.AddItem "December"
End With

Combo1.ListIndex = Format(Date, "mm")

End Sub

</code>

Finns snyggare sätt att ladda Comboboxen på:
<code>
Option Explicit

Private Sub LoadMonths(Combo As ComboBox, Optional Default As Long)
Dim Index As Long
Combo.Clear
For Index = 1 To 12
Combo.AddItem StrConv(MonthName(Index), vbProperCase)
Next
Select Case Default
Case 1 To 12
Combo.ListIndex = Default - 1
End Select
End Sub

Private Sub Form_Load()
LoadMonths Combo1, Month(Date)
End Sub


</code>
Men för att sätta månad till aktuell månad föreslår jag:
<code>
Private Sub Command1_Click()
Combo1.ListIndex = Month(Date) - 1
End Sub
</code>

Hej Andreas

Testar ditt förslag men får felkod för MonthName Sub or Function not defined.

är det något API som saknas eller?

mvh
Tobbe

Kör du vb5?

Ja en gör ju det!!!

Då är det det som är problemet. MonthName() och en massa andra användbara funktioner har tillkommit i VB6.

Dax att uppgradera.