Új hozzászólás Aktív témák

• #27612 scott_free senior tag

  Új Válasz 2015-07-06 11:08:38 #27612

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  scott_free

  senior tag

  sziasztok,

  ezt valahogy lehet egyszerűsíteni? (pl. Select Case-zel?)

  For Each cControl In Me.Controls
  If cControl.Tag Like "L1" Then
  cControl.Font.Size = 11
  cControl.Font.Name = "Arial"
  End If
  If cControl.Tag Like "ED" Then
  cControl.Font.Size = 11
  cControl.Font.Name = "Arial"
  End If
  If cControl.Tag Like "EDK" Then
  cControl.Font.Size = 11
  cControl.Font.Name = "Arial"
  End If
  If cControl.Tag Like "HD" Then
  cControl.Font.Size = 11
  cControl.Font.Name = "Arial"
  End If
  If cControl.Tag Like "HDK" Then
  cControl.Font.Size = 11
  cControl.Font.Name = "Arial"
  End If
  Next

Új hozzászólás Aktív témák