Χρήση Combo Control με αυτόματη συμπλήρωση (αγγλικές εντολές)
Σελίδα 1 από 1
Χρήση Combo Control με αυτόματη συμπλήρωση (αγγλικές εντολές)
Declare form1 Form
Declare combo1 combobox Form form1
Declare text1 textbox Form form1
With form1,"Title" As title$
With combo1,"Edit", True,"UseOnlyTheList", false,"autocomplete", True, "listIndex" As ListIndex,"ShowAlways", True
With combo1,"label","Combo1", "ListText" As item$, "list" As list$(), "text" As combo1$
item$={alfa
delta
gamma
beta
}
With combo1,"Find" As Find()
Method combo1,"Sort"
combo1$=list$(find("gam*"))
Method combo1,"Move", 1000,1000,6000,600
Method text1, "Move", 1000,2900,6000,600
With text1, "left" As left, "text" As text1.text$ , "ShowAlways", True
Print left
Method form1, "show"
Method text1,"GetFocus"
Function form1.unload {
Keyboard "!"
show
}
Function combo1.dblclick {
text1.text$=combo1$
title$=combo1$
If find(title$)= -1 Then {
Method combo1,"additem",title$
Method combo1,"Sort"
listindex=find(title$)
}
}
Function combo1.click {
If listindex>=0 Then text1.text$=list$(listindex)
}
Function combo1.scroll {
If listindex>=0 Then text1.text$=list$(listindex)
}
a$=key$
Declare Text1 nothing
Declare combo1 nothing
Declare form1 nothing
Declare combo1 combobox Form form1
Declare text1 textbox Form form1
With form1,"Title" As title$
With combo1,"Edit", True,"UseOnlyTheList", false,"autocomplete", True, "listIndex" As ListIndex,"ShowAlways", True
With combo1,"label","Combo1", "ListText" As item$, "list" As list$(), "text" As combo1$
item$={alfa
delta
gamma
beta
}
With combo1,"Find" As Find()
Method combo1,"Sort"
combo1$=list$(find("gam*"))
Method combo1,"Move", 1000,1000,6000,600
Method text1, "Move", 1000,2900,6000,600
With text1, "left" As left, "text" As text1.text$ , "ShowAlways", True
Print left
Method form1, "show"
Method text1,"GetFocus"
Function form1.unload {
Keyboard "!"
show
}
Function combo1.dblclick {
text1.text$=combo1$
title$=combo1$
If find(title$)= -1 Then {
Method combo1,"additem",title$
Method combo1,"Sort"
listindex=find(title$)
}
}
Function combo1.click {
If listindex>=0 Then text1.text$=list$(listindex)
}
Function combo1.scroll {
If listindex>=0 Then text1.text$=list$(listindex)
}
a$=key$
Declare Text1 nothing
Declare combo1 nothing
Declare form1 nothing
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης
|
|