Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → dodavanje labela, tekst boksova i dugmadi


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


Avko (05.12.2019 21:38):
Predmet: Re: dodavanje labela, tekst boksova i dugmadi
imas kakav primjer?
neki link ili nesto bilo sto da vidim

dex (05.12.2019 12:41):
Predmet: Re: dodavanje labela, tekst boksova i dugmadi
A zbog cega bi to radio? Zar ti nije jednostavnije da napravis kontrole i po potrebi im menjas svojstvo visible? Ustvari preporucuje se da se kontrolama visible ostavi na true, a po potrebi im se menja enabled, jer kontrole koje se pojavljuju i nestaju zbunjuju krajnjeg korisnika.

Avko (05.12.2019 10:05):
Predmet: Re: dodavanje labela, tekst boksova i dugmadi
to je to, radi.
Neznam gdje nam se Dex sakrio.
Sigurno spava u zadnjoj klupi.

zxz (04.12.2019 16:46):
Predmet: Re: dodavanje labela, tekst boksova i dugmadi
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub Add_Dynamic_CommandButton()
  2.    
  3.     'Add Dynamic CommandButton and assign it to object 'CmdBtn'
  4.    Set CmdBtn = UserForm2.Controls.Add("Forms.CommandButton.1")
  5.     With CmdBtn
  6.         .Caption = "CommandButton"
  7.         .Left = 12
  8.         .Top = 10
  9.         .Width = 102
  10.     End With
  11.  
  12.     UserForm2.Show
  13. End Sub
  14.  
  15. Sub add_Label()
  16.     'dodaj label
  17.      Set Labela = UserForm2.Controls.Add("Forms.label.1")
  18.           With Labela
  19.         .Caption = "Ovo je labela"
  20.         .Left = 12
  21.         .Top = 50
  22.         .Width = 102
  23.     End With
  24.     UserForm2.Show
  25. End Sub
  26.  
  27. Sub add_Text()
  28.     'dodaj txtbox
  29.    Set ctlTxt = UserForm2.Controls.Add("Forms.TextBox.1")
  30.     With ctlTxt
  31.         .Value = "Neki tekst"
  32.         .Top = 12
  33.         .Left = 12
  34.         .Width = 150
  35.     End With
  36.     UserForm2.Show
  37. End Sub


sad bi bilo zanimljivo tvoje loto napraviti sa add comand buton.
To je u klasicnom vb lako jer ima index pa mozes sa jednim imenom napraviti mnogo kontrola.
u form2 koliko ja znam toga nema.

Avko (03.12.2019 13:01):
Predmet: dodavanje labela, tekst boksova i dugmadi
add buttons on userform2, add label on userform2 i add textbox on userform2

tako sam pretrazivao i uspio sam samo dodati dinamicko dugme na formu 2 , a ostalo nisam. Pojavi se prazna forma.

ako netko zna.

evo instalirao sam 7-zip pa radim sa njime da mogu svi raspakirati

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 17 pm.