Haluaisin että kaikissa ohjelman formeissa olevat TextBoxien fontit olisivat sellaiset mikä on määritelty muuttujaan gstrFontti
Muutos onnistuu jos kirjoitan seuraavan rivin formin Load tapahtumaan. Onko muuta vaihtoehtoa kuin käydä lisäämässä jokaiseen formin Load tapahtumaan ko. rivit, vai miten saan sen toimimaan moduli osassa niin että jokaisen formin Load tapahtumassa kutsuttaisiin modulin ko.ohjelmaa?
Dim ctlOhjain As Control
For Each ctlOhjain In frmHinnasto
If TypeOf ctlOhjain Is TextBox Then
ctlOhjain.Font = gstrFontti
End If
Nextjoo:
'motuuliin:
Public Sub Sonkkaa(Kuka as Form, fontikka As String)
Dim ctlOhjain As Control
For Each ctlOhjain In Kuka
If TypeOf ctlOhjain Is TextBox Then
ctlOhjain.Font = fontikka
End If
Nextja sitten kutsut tota joka formin loadissa. Tai sitten vähän helpommin:
'motuuliin:
Public Sub Sonkkaa(fontikka As String)
Dim ctlOhjain As Control
For Each Kuka In Forms
For Each ctlOhjain In Kuka
If TypeOf ctlOhjain Is TextBox Then
ctlOhjain.Font = fontikka
End If
Next
Nextja sitten kutsut tota vaan jostain.
Kiitos, johan rupesi toimimaan!
Aihe on jo aika vanha, joten et voi enää vastata siihen.