View Single Post
Staro 07.02.2009., 17:12   #1
malixx
Premium
 
Datum registracije: Feb 2009
Lokacija: Zagreb
Postovi: 76
VISUAL BASIC pomoć !

Ovako, imam jako dugi kod u formi, te mi piše da zauzima previše prostora pa ne radi. U formi imam padajući izbornik (hdcp), imam text box (r), i još nekih koji nisu sada važni, i naravno button. Svaki kod počinje sa if ndcp="broj", pa ih imam puno, sada bi ja htio, svaki taj kod u neki poseban file stavit (neznam jel su to moduli ili šta), tako kada bi u formi odabro u padajućem izborniku npr br. 17, a u boxu "r" se upiše jedan broj, tada forma pozove u sebe taj cijeli file s kodom i obradi informaciju (u donjem primjeru možete vidjet). Napominjem da su ti kodovi još veći i dugački, ja sam to samo skratio na minimum, pa da vas pitam jel je ovakvo šta moguće napravit u vb6? Unaprijed hvala.


'--glavna forma--
If hdcp = "17" Then
Call nešto1
End If

If hdcp = "18" Then
Call nešto2
End If
'--zavšava forma--

'ovo je znači izvan forme, treba dodat u formu! Iz nekog filea.
'nešto1 (neki file)
If r18 > "5" Then n18 = "0"
If r18 = "5" Then n18 = "1"
If r18 = "4" Then n18 = "2"
If r18 = "3" Then n18 = "3"
If r18 = "2" Then n18 = "4"
If r18 = "1" Then n18 = "5"
End If

'ovo je drugi file
'nešto2 (neki file)
If r2 > "5" Then n2 = "1"
If r2 = "5" Then n2 = "2"
If r2 = "4" Then n2 = "3"
If r2 = "3" Then n2 = "4"
If r2 = "2" Then n2 = "5"
If r2 = "1" Then n2 = "6"

Ako treba mogu vam uplodat program pa dati link.
malixx je offline   Reply With Quote