Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Softver i operativni sistemi » Ms office » dodavanje labela, tekst boksova i dugmadi
dex 05.12.2019 13: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 11:05
Predmet:Re: dodavanje labela, tekst boksova i dugmadi

to je to, radi.
Neznam gdje nam se Dex sakrio.
Sigurno spava u zadnjoj klupi.

Avko 05.12.2019 22:38
Predmet:Re: dodavanje labela, tekst boksova i dugmadi

imas kakav primjer?
neki link ili nesto bilo sto da vidim

Avko 03.12.2019 14: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
Prilozi:
dodavanje_kontrola.zip (Velicina datoteke:18.22 KB)

zxz 04.12.2019 17: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.