Alterando a Fonte do Game

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Alterando a Fonte do Game

    Mensagem por Thales12 em Qua Fev 15, 2012 1:11 am

    Mudando a fonte do Game

    Prestem bem atenção.

    Código:
    Public Sub SetFont(ByVal Font As String, ByVal Size As Byte)

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
     
        GameFont = CreateFont(Size, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Font)
        frmMain.Font = Font
        frmMain.FontSize = Size - 5
     
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "SetFont", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub

    Para a fonte ser alterada esse código precisa ser executado. E no lugar em que o procedimento é chamado está um comentário, impossibilitando sua chamada.

    ' Set font
    ' Call SetFont(FONT_NAME, FONT_SIZE)
    frmMain.Font = "Meiryo UI"
    frmMain.FontSize = 10






    Apenas modifique isso.

    Créditos: Dragonick por criar o tuto
    Créditos: Thales12 por postar.

      Data/hora atual: Sab Ago 18, 2018 3:20 am