Predmet:Re: dodavanje labela, tekst boksova i dugmadi
PreuzmiIzvorni kôd (Visual Basic):Sub Add_Dynamic_CommandButton()
'Add Dynamic CommandButton and assign it to object 'CmdBtn'
Set CmdBtn = UserForm2.Controls.Add("Forms.CommandButton.1")
With CmdBtn
.Caption = "CommandButton"
.Left = 12
.Top = 10
.Width = 102
End With
UserForm2.Show
End Sub
Sub add_Label()
'dodaj label
Set Labela = UserForm2.Controls.Add("Forms.label.1")
With Labela
.Caption = "Ovo je labela"
.Left = 12
.Top = 50
.Width = 102
End With
UserForm2.Show
End Sub
Sub add_Text()
'dodaj txtbox
Set ctlTxt = UserForm2.Controls.Add("Forms.TextBox.1")
With ctlTxt
.Value = "Neki tekst"
.Top = 12
.Left = 12
.Width = 150
End With
UserForm2.Show
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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.