更改默认主题颜色

Question

我正在使用Theme.Holo.Light如何更改主题的默认颜色。 借助风格。 以下是我的主题

Dim myDB As DAO.Database
Dim myRst As DAO.Recordset


Set myDB = CurrentDb
Set myRst = myDB.OpenRecordset("SELECT * FROM tContracts WHERE ContID = " & Me.OpenArgs) 
'this upper line is choosing information from my table contracts and picking on Contract ID (contID)
Me.ContID = myRst("contID")
Me.ContClientID = myRst("ContClientID")
Me.ContPropertyID = myRst("ContPropertyID")
Me.ContStartDate = myRst("ContStartDate")
Me.ContMonthlyRent = myRst("ContMonthlyRent")
Me.ContEndDate = myRst("ContEndDate")
Me.ContComment = myRst("ContComment")

myRst.Close
myDB.Close

Answer 1

<style name="AppTheme.Base" parent="Theme.AppCompat.Light.DarkActionBar">
    <!-- Customize your theme here. -->

    <!-- colorPrimary is used for the default action bar background -->
    <item name="colorPrimary">@color/colorPrimary</item>

    <!-- colorPrimaryDark is used for the status bar -->
    <item name="colorPrimaryDark">@color/colorPrimaryDark</item>

    <!-- colorAccent is used as the default value for colorControlActivated
         which is used to tint widgets -->
    <item name="colorAccent">@color/colorAccent</item>

    <!-- You can also set colorControlNormal, colorControlActivated
         colorControlHighlight & colorSwitchThumbNormal. -->
</style>

您可以使用主题编辑器设置各种颜色。