Powerbuilder Tips

Script dell'evento 'Open' :

							
//==== CREAZIONE VETTORE STAMPANTI ====
long ll_place1,  ll_place2
string ls_fullstring, ls_set_printer, ls_nome
integer li_ind, li_return
//stringa di tuttte le stampanti
ls_fullstring = PrintGetPrinters ( )
//identificazione delle stampanti e messa in array
for li_ind = 1 to 30
	ll_place1 = pos (ls_fullstring, "~t")
	ls_nome = left (ls_fullstring, ll_place1  -1)
	is_nome_printer [li_ind] = ls_nome
	ll_place1 = pos (ls_fullstring, "~n")
	if ll_place1 = 0 then
		exit
	end if
	ls_fullstring = mid(ls_fullstring, ll_place1 +1)
next
//====
ls_nome = ""
//==== SCORRIMENTO ARRAY ED INSERIMENTO NELLA LISTBOX ====
for li_ind = 1 to 30
	if is_nome_printer [li_ind ] = "" then
		exit
	else
		//aggiunge stampante alla lb
		li_return = lb_stampanti.AddItem( is_nome_printer [li_ind ] )
		//test errore....
	end if
next
//====
						

Instance variables :

							
// variabili instance
string is_nome_printer [30], is_preferita
integer ii_num_stampante
						

Script dell'evento 'Selectionchanged' della ListBox :

							
//identifico il numero di stampante selezionata
ii_num_stampante = lb_stampanti.SelectItem (index )
//identifico il nome di stampante selezionata
is_preferita = lb_stampanti.Text ( index )
						

Script dell'evento 'Clicked' del pulsante per impostare la stampante Predefinita :

														
//identifico il numero di stampante selezionata
ii_num_stampante = lb_stampanti.SelectItem (index )
//identifico il nome di stampante selezionata
is_preferita = lb_stampanti.Text ( index )