come posso quantomeno leggere il codice?
Sono parecchie decine di pagine e poi trattasi di diverse funzioni:
- le funzioni che gestiscono i controlli e l'input dei vari dialoghi presenti (e sono diversi dialoghi
- le funzioni di appoggio che gestiscono il disegno di primitive
- ... ecceccecc
Ti faccio l'esempio che segue:
Function solo_numeri(tEsto_origine As String) As String
Dim lunGhezza_Testo As Integer
Dim count As Integer
Dim Carattere As String
Dim NuoVoTesto As String
Dim codice_Ascii As Integer
NuoVoTesto = ""
lunGhezza_Testo = Len(tEsto_origine)
For count = 1 To lunGhezza_Testo
Carattere = Mid(tEsto_origine, count, 1)
codice_Ascii = Asc(Carattere)
Select Case codice_Ascii
Case 48 To 57
Carattere = Carattere
Case Else
Carattere = ""
End Select
NuoVoTesto = NuoVoTesto & Carattere
Next
solo_numeri = NuoVoTesto
End Function
Questa minima parte del codice serve per accettare solo numeri nei textbox che prevedeono come input soltanto un intero.
Invece il codice che segue, gestisce lo scrolling tra le varie gabbie
Private Sub ScrollG_Change()
Dim new_index As Integer
Dim old_index As Integer
old_index = indice_GabBia
aggiornadati_gaBbiA (old_index)
NGb.Caption = ScrollG.Value
new_index = ScrollG.Value
indice_GabBia = new_index
aggiornadati_gabbia_visualiZZati (new_index)
SpinDlong.Value = dLong.Value
SpinDIRR.Value = dirR.Value
SpinDsPIr = Dspir.Value
End Sub
