実行時にラベルフォントを変更するとエラーが発生する

Question

ウェブページのすべてのラベルのフォントを変更したいと思います。次のコードを記述しますが、フォントが読み取り専用のプロパティであるというエラーが返されます。私は非常に緊急が必要です。誰もが

コードを助けることができ、ここで私はあなたがWinformsのとASP.NETを混合していると思う事前

Answer 1

で

Dim ctrl As Control 
     Dim fnt As New Font("Verdana", 8, FontStyle.Bold, GraphicsUnit.Point) 

     For Each ctrl In Me.Controls 
      If (TypeOf ctrl Is Label) Then 
       lbl = CType(ctrl, Label) 
       lbl.Font = fnt 
      End If 
     Next 

のおかげです。あなたはあなたのWebPage上のラベルのフォントを変更したいと言いました。だから、それはASP.NET Webaplicationだと思います。

代わりにCSSを使用することを強くお勧めします。しかし、あなたが速い作業に何かが必要な場合、あなたはこれであなたのコードを置き換える必要があります。

Public Sub ApplyFontStyleRecursively(ByVal parentControl As System.Web.UI.Control, ByVal fontInfo As FontInfo) 
    If TypeOf parentControl Is Label Then 
     DirectCast(parentControl, Label).Font.CopyFrom(fontInfo) 
    End If 

    For Each c As System.Web.UI.Control In parentControl.Controls 
     ApplyFontStyleRecursively(c, fontInfo) 
    Next 
End Sub 

とそれを呼び出す：

Dim lbl As New Label 
lbl.Font.Name = "Verdana" 
lbl.Font.Bold = True 
ApplyFontStyleRecursively(Me.Page, lbl.Font)