# Re: combox ºÍ text

Posted by ¹þÁÖ on January 10, 1999 at 16:41:35:

In Reply to: combox ºÍ text posted by who on January 10, 1999 at 13:58:22:

:Option Explicit
:Dim RText As String
:Dim RData As String
:
:Private Sub Combo1_Click()
:Select Case Combo1.ListIndex
: Case 0
: RData = "TestText1"
: Case 1
: RData = "TestText2"
:End Select
:RText = Combo1.ListIndex & "," & Combo1.Text & :"," & RData
:Text1.Text = RText
:End Sub
:
:Private Sub Form_Load()
:Combo1.AddItem "Item1"
:Combo1.AddItem "Item2"
:End Sub

Follow Ups: