Prikazi cijelu temu 30.04.2011 18:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Dinamicko pokretanje forme
PreuzmiIzvorni kôd (Visual Basic):
  1. Privatni Sub Form_Load ()
  2. S List1
  3. . AddItem "Form1"
  4. . AddItem "Form2"
  5. . AddItem "Form3"
  6. Završiti s
  7. End Sub
PreuzmiIzvorni kôd (Visual Basic):
  1. Privatni Sub List1_Click ()
  2. Dim frm kao oblik
  3. Dim selForm kao niz
  4. S List1
  5. selForm =. List (. ListIndex)
  6. Završiti s
  7. Set frm = Forms.Add (selForm)
  8. frm.Show
  9. Set frm = Nothing
  10. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.