MS Excel

Téma: Funkcie pre „controls.Add“ vo Formulári

Zaslal/a Martin.B 22.2.2014 17:55

Dobrý deň všetkým,
mám problém s „doplnkovými funkciami“ pri objektoch (TextBox) ktoré som vytvoril cez: controls.Add("Forms.TextBox.1").

potrebujem zmeniť farbu pozadia ak sa zmení hodnota v objekte.
Neviem čo mám zadať za Private Sub ????_Change() aby to fungovalo.
Dúfam, že existuje riešenie, inač všetko čo som do teraz vytvoril môžem ...
v prílohe je príklad. (TextBox2 = je moja predstava)
Už začínam byť zúfali.

Vopred ďakujem za všetko čo ma posunie ďalej.
Martin

Příloha: zip

17946_pokus.zip (15kB, staženo 20x)

Uzamčeno - nelze přidávat nové příspěvky.

lubo(23.2.2014 0:03)#017952

Vlož "Class module"

Option Explicit
Public WithEvents TxtBox As MSForms.TextBox
Public BackColor As Long

Private Sub Class_Initialize()
BackColor = RGB(255, 255, 255)
End Sub

Private Sub Class_Terminate()
Set TxtBox = Nothing
End Sub

Private Sub TxtBox_Change()
TxtBox.BackColor = BackColor
End Sub

Pojmenuj ho třeba clsTextBox.

Kód v UserForm1 oprav:

Dim TB As New clsTextBox ' Kontejner s dynamickým TextBoxem

Private Sub UserForm_Activate()

Set TB = New clsTextBox
Set TB.TxtBox = Me.Controls.Add("Forms.TextBox.1")

With TB.TxtBox
.Name = "TextBox1"
.Top = 10
.Left = 10
.Width = 200
.Height = 14
.Value = "Text"
.Font.Size = 8
End With

TB.BackColor = RGB(20, 20, 20)
End Sub

Private Sub TextBox2_Change()
TextBox2.BackColor = RGB(105, 125, 205)
End Sub
citovat

Martin.B(2.3.2014 21:37)#018071

Super ďakujem.citovat

Téma: Funkcie pre „controls.Add“ vo Formulári

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje