Understand, thank you
Private Sub btnToggle_Click (e As BANanoEvent)
iBorder = iBorder + 1
VAlert1.ColoredBorder = True
Select Case iBorder
Case 1
VAlert1.BorderType = vuetify.ALERT_BORDER_LEFT
Case 2
VAlert1.BorderType = vuetify.ALERT_BORDER_RIGHT
Case 3
VAlert1.BorderType = vuetify.ALERT_BORDER_TOP
Case 4
VAlert1.BorderType = vuetify.ALERT_BORDER_BOTTOM
Case 5
VAlert1.BorderType = vuetify.ALERT_BORDER_NONE
iBorder = 0
End Select
End Sub
Private Sub btnType_Click (e As BANanoEvent)
iType = iType + 1
VAlert1.Dark = False
Select Case iType
Case 1
VAlert1.AlertType = vuetify.ALERT_TYPE_ERROR
VAlert1.Caption = "Error Alert"
Case 2
VAlert1.AlertType = vuetify.ALERT_TYPE_SUCCESS
VAlert1.Caption = "Success Alert"
Case 3
VAlert1.AlertType = vuetify.ALERT_TYPE_WARNING
VAlert1.Caption = "Warning Alert"
Case 4
VAlert1.AlertType = vuetify.ALERT_TYPE_INFO
VAlert1.Caption = "Info Alert"
Case 5
VAlert1.AlertType = vuetify.ALERT_TYPE_NONE
VAlert1.Caption = "Normal Alert"
iType = 0
End Select
End Sub
Private Sub btnProminent_Click (e As BANanoEvent)
Select Case iProm
Case 0
VAlert1.Prominent = True
iProm =1
Case 1
VAlert1.Prominent = False
iProm = 0
End Select
End Sub
Private Sub btnDense_Click (e As BANanoEvent)
Select Case iDense
Case 0
VAlert1.Dense = True
iDense =1
Case 1
VAlert1.Dense = False
iDense = 2
Case 2
VAlert1.Visible = False
iDense = 3
Case 3
VAlert1.Visible = True
iDense = 0
End Select
End Sub
Private Sub btnShaped_Click (e As BANanoEvent)
Select Case iColor
Case 0
VAlert1.Shaped = True
iColor = 1
Case 1
VAlert1.Shaped = False
iColor = 2
Case 2
VAlert1.Outlined = True
iColor = 3
Case 3
VAlert1.Outlined = False
iColor = 4
Case 4
VAlert1.Dismissible = True
iColor = 5
Case 5
VAlert1.Dismissible = False
iColor = 6
Case 6
VAlert1.Icon = "mdi-share-circle"
iColor = 7
Case 7
VAlert1.Icon = ""
iColor = 0
End Select
End Sub
#if css
::-webkit-scrollbar {
background: transparent;
width: 12px !important;
}
::-webkit-scrollbar-thumb {
background: #606060 !important;
border-radius: 100px !important;
}
#End If