如何解决从片段类更改BottomNavigationView Backround
我要从 片段 类 以编程方式更改 BottomNavigationView背景 ,通过 数据绑定 完成对BottomNavigationView的访问,但在 未 strong> UI 。
访问包含BottomNavigationView完成以下内容的xml:
Function findTTY(color As String,distance As Integer,condition As String) As Integer
Dim r As Integer
Dim c As Integer
Dim temp As Integer
Dim target As Integer
Dim range_col As Integer
Dim sheet_tab As String
Dim col As Integer
Dim dis_row As Integer
Select Case condition
Case "Trees"
sheet_tab = "Trees"
Case "Rocks"
sheet_tab = "Rocks"
Case "Paint"
sheet_tab = "Paint"
Case "Boat"
sheet_tab = "Boat"
Case "Car"
sheet_tab = "Car"
End Select
For r = 1 To 100
For c = 1 To 100
If Worksheets(sheet_tab).Cells(r,c).Value = color Then
For temp = 2 To 100
If Worksheets(sheet_tab).Cells(temp + 1,c).Value - 1 >= distance And distance >= Worksheets(sheet_tab).Cells(temp,c).Value Then
dis_row = temp
Exit For
End If
Next temp
For range_col = 1 To 100
If Worksheets(sheet_tab).Cells(1,range_col).Value = "TTY" Then
col = range_col
End If
Next range_col
findTTY = Worksheets(sheet_tab).Cells(dis_row,col)
End If
Next c
Next r
End Function
但是没有收到错误并且应用正常运行,不幸的是更改背景色不适用
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。