Maaf tadi belum selesai terlanjur kepencet send.... .... ..... Case Else MsgBox "Nama form tsb tidak ada !" txtForm.Text = "" End Select
2008/4/11 Newbie Semarang <[EMAIL PROTECTED]>: > Cara paling yang mudah pake SELECT CASE, ketika tombol di klik. > > If Len(Trim(txtForm.Text)) = 0 Then > MsgBox "Nama Form belum diisi) > Exit sub > endif > Select case Ucase(txtForm.Text) > Case "FORM 1" > frm1.Show > Case "FORM 2" > frm2.Show > > ... dst > ... > .... > Case Else > > End Select > > > > > > > 2008/4/10 trankkinaz <[EMAIL PROTECTED]>: > > Hello VB-lovers > > > > Salam kenal, member baru nieh. > > trus langsung nanya yah ^_^ > > begini, aku punya 1 project dengan _+ _ 50 form, rencananya aku akan > > buat > > satu master form yang fungsinya untuk memanggil salah satu dari ke-50 > > form tsb. > > cara 1: buat button untuk mewakili tiap form --> tapi cara ini gak keyen > > > > banget khan ;o( > > cara 2: pake component script control --> nah cara yang ini blm bisa > > juga (mentok bo) > > cara 3: tanya ke milist ... (he..hee) > > > > so please milisers mohon pencerahannya dunk gimana caranya? > > biar user tinggal ketik nama form truss pencet tombol buka, tyus kebuka > > dech form yg dimaksud... > > > > Tengkiu seblumnya.. > > > > salam, > > Tetap Semangat! > > > > > > > > [Non-text portions of this message have been removed]
