ComboBox with Style=2

[Elen0]

Привет всем!

Подскажите пожалуйста!

Есть ComboBox и в нем Style=2, и если Combobox.Text="String" ,
то Error: "text" property is read-only
и он прав(Style=2!!!)

Но как же сделать comboBox.selected(.text)Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!???? :roll:

Help Me!......

[RayShade]

Что-что сделать то надо?

[Elen0]

To:Moderator
***************
Ну,кcнечнc , не selected ,а выбор 1 из вариантов
что Есть в этом ComboBox'e
я делала как Combobox.text="String",Если "string" он 1 из вариантов...
Есть что-то еще???

[A.A.Z.]

Немного не понял, может,

Код: Выделить всё

If Combo1.Text = "String" Then ... Else ...


Можешь конкретно объяснить ситуацию, что, как и куда?

[Elen0]

To A.A.Z. from Elen
-----------------------------------------
-----------------------------------------
Dim rsCity as new ADODB.Recordset
...
-----------------------------------------
Private Sub Form1_Load()

rsCity.MoveFirst
While Not rsCity.EOF
Me.ComBoBox1.AddItem rsCity("CityName")
rsProjects.MoveNext
Wend
'Если "London" он 1 из вариантов

ComBoBox1.Text = "London"

End Sub

[skiperski]

Код: Выделить всё

Private Sub Form1_Load()

Dim i Asd Long

i = 0
rsCity.MoveFirst
While Not rsCity.EOF
    ComBoBox1.AddItem rsCity("CityName")
    If (rsCity("CityName") = "London") Then
        ComBoBox1.ListIndex = i
    End If
    i = i + 1
    rsProjects.MoveNext
Wend

End Sub

[Elen0]

Код: Выделить всё

Private Sub Form1_Load()

Dim i Asd Long

i = 0
rsCity.MoveFirst
While Not rsCity.EOF
    ComBoBox1.AddItem rsCity("CityName")
    If (rsCity("CityName") = "London") Then
        ComBoBox1.ListIndex = i
    End If
    i = i + 1
    rsProjects.MoveNext
Wend

End Sub

-------------------------
Spasibo,rabotaet!!!!