Combobox

Klaus Rosmanitz · **Posted:** February 7th, 2006, 6:30 pm

Hi!

Is there any way that you can customize the ListBox object in Opus so that it works like a Combobox (like in Flash). It would be helpful if anyone could attach a simple example.

Greetings

Klaus

Ronnie Dackus · **Posted:** February 7th, 2006, 8:15 pm

Code:

function SearchDB()
{
var db = new Database("FILEDSN=lasselsbergerVT.dsn");
var records = null;

   var sql = "SELECT * FROM Artikel WHERE Omschrijving LIKE '%"+zoekserie+"%' OR Merk LIKE '%"+zoekserie+"%' OR Code LIKE '%"+zoekserie+"%'OR Kleur LIKE '%"+zoekserie+"%'ORDER BY Code;";
   // Debug.trace(sql+"\n");
   records = db.ExecuteSQL(sql);
   
   
count = records.GetNumberOfRecords()

for (n=0;n<count;n++) {
Listbox.ReplaceSelection(records.Code + " " + records.formaatlengte + " " + records.formaatbreedte + " " + records.afbeelding +"\n")
records.NextRecord()
}
}

Ronnie Dackus · **Posted:** February 7th, 2006, 8:19 pm

Hi Klaus,

To fast to help! :roll:

Code:

function SearchDB()
{
var db = new Database("FILEDSN=lasselsbergerVT.dsn");
var records = null;

   var sql = "SELECT * FROM Artikel WHERE Omschrijving LIKE '%"+zoekserie+"%' OR Merk LIKE '%"+zoekserie+"%' OR Code LIKE '%"+zoekserie+"%'OR Kleur LIKE '%"+zoekserie+"%'ORDER BY Code;";
   // Debug.trace(sql+"\n");
   records = db.ExecuteSQL(sql);
   
   
count = records.GetNumberOfRecords()

for (n=0;n<count;n++) {
Listbox.ReplaceSelection(records.Code + " " + records.formaatlengte + " " + records.formaatbreedte + " " + records.afbeelding +"\n")
records.NextRecord()
}
}

From my database I read the data into a listbox : Code , formaatlengte, formaatbreedte and afbeelding.

On click the data is sored in a var selected, if you want to store the again in variables in your pub use this script.

Code:

myText.SetSelection(0,-1)
myText.ReplaceSelection(" ")
myText1.SetSelection(0,-1)
myText1.ReplaceSelection(" ")
myText2.SetSelection(0,-1)
myText2.ReplaceSelection(" ")
myText3.SetSelection(0,-1)
myText3.ReplaceSelection(" ")
var myArray = selected.split(" ")
myText.ReplaceSelection(myArray[0])
artikelcode1 = myText.GetSelectionText(myArray[0])
myText1.ReplaceSelection(myArray[1])
x1=myText1.GetSelectionText(myArray[1])
myText2.ReplaceSelection(myArray[2])
x=myText2.GetSelectionText(myArray[2])
myText3.ReplaceSelection(myArray[3])
afbeeldingvt1=myText3.GetSelectionText(myArray[3])

You have to make 3 text fields myText1 etc.

Hope this helps.

cheers

Ronnie

Digital Workshop

Combobox

Who is online