Iniziare a  programmare per entrambi i linguaggi (3a parte )         

Questa è solo una buona occasione per chiarirmi le idee su ciò che sto       Iniziare a program.1 
facendo. La cosa migliore e sintetizzare qui il codice per realizzare una     Iniziare a program.2
vera applicazione.


Il codice qui di seguito mostrato permette di usare con NSbasic anche
array di oggetti come è possibile creare in Visual Basic, dotati cioè di un
indice da richiamare per eseguire il codice associato come avviene per 
il codice precedentemente mostrato ma ANCHE di modificare la posizione
e le dimensioni dei singoli oggetti indicizati.

Considerando pertanto le caratteristiche degli oggetti ancora mancanti 
nella form per crearli dovremo usare il seguente codice:

Dim Blabel(4)
Dim PosLab,PosLbl,x,p,z, y
Dim L,T,W,H
y=0
PosLab="70,84,50,18|70,104,100,18|70,124,125,18|70,144,50,18|70,164,150,18"
I=0
Do While Len(PosLab)
z=Instr(PosLab + "|","|")
PosLbl=Left(PosLab,z-1)
x=0
Do While Len(PosLbl)
p=Instr(PosLbl + ",",",")
If x=0 Then L=Left(PosLbl,p-1)
If x=1 Then T=Left(PosLbl,p-1)
If x=2 Then W=Left(PosLbl,p-1)
If x=3 Then H=Left(PosLbl,p-1)
PosLbl=Mid(PosLbl,p+1):x=x+1
Loop
ADDOBJECT "Label","Blabel" & y ,L,T,W,H 
EXECUTE("SET Blabel(" & y & ") = Blabel" & y)
EXECUTE("SUB Blabel"& y &"_Click" _
& vbCrLf & "Blabel_Click("& y &")" _
& vbCrLf &"END SUB")
Blabel( y ).FontBold = True
Blabel( y ).BorderStyle=1
Blabel( y ).Caption=""
PosLab = Mid(PosLab, z + 1):y=y+1
Loop

Le linee di codice sopra indicate creeranno un array di Labels la cui
dimensione and posizione singola potra essere varita semplicemente con
la variando i valori posti nella stringa  "PosLab". (e non per sole Labels )
(this code will be authomatically created by the Vers.2 of NSassist soonest).
Al termine abbiamo ottenuto 2 forms (VB e NSbasicCE) che possono essere
usate con codice standard su entrambi i sistemi e quindi usare codice in
comune con pochi altri aggiustamenti. 

Se non gradite copiare il codice delle 3 parti lo trovate QUI


<<< Tips Index