ANBS Controls part 3

3rd set of ANBS controls, Get Set1 here and Set2 here
ANBSOptionWithText to show an option box with text input,
ANBSOptionBoxes to show multiple option buttons in 1 line, and
ANBSCheckbox to show 1 checkbox


Public

Tested

My Own Work
Function ANBSOptionBoxes(BName, NoOfBoxes, BCaptionsList,BSelectedID, ReadOnly1_ReadWrite2, LabelColWidth, BLongDescription)
Rett = ""
Rett = Rett & ""
If LabelColWidth > 0 Then
Rett = Rett & "" & vbcrlf
Rett = Rett & ""
Rett = Rett & BCaption & "" & vbcrlf
Rett = Rett & "" & vbcrlf
Div2Close = "
" & vbcrlf
End If

ANBSInputBox = Rett
End Function

Function ANBSOptionWithText(BIDO, BNameO, BNameT, BValueO, BValueT, BCaption, BCaptionO, Checked1, ReadOnly1_ReadWrite2, LabelColWidth, BTypeT, BLongDescription)
' BNameO = Name of option control, BNameT = Name of text control
' BTypeO = "password", "Text", ...
Rett = ""
ReadOnly = ""
DescDiv = ""
Checked2 = ""
Div2Close = vbcrlf
If BTypeT = "" Then BTypeT = "text"
If Fix(ReadOnly1_ReadWrite2) = 1 Then ReadOnly = " readonly "
If Checked1 = 1 then Checked2 = " checked "
If BLongDescription > "" Then
DescDiv = DescDiv & "" & vbcrlf
DescDiv = DescDiv & BLongDescription & vbcrlf
DescDiv = DescDiv & "" & vbcrlf
End If
If LabelColWidth > 0 Then
Rett = Rett & "" & vbcrlf
Rett = Rett & ""
Rett = Rett & BCaption & "" & vbcrlf
Rett = Rett & "" & vbcrlf
Div2Close = "
" & vbcrlf
End If
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & " Rett = Rett & " id=""" & BIDO & """ name=""" & BNameO & """ value=""" & BValueO & """ " & ReadOnly & Checked2
Rett = Rett & "class=""custom-control-input"" > "
Rett = Rett & "" & BCaptionO & ""
Rett = Rett & ""
Rett = Rett & "
"
Rett = Rett & "
"
' Rett = Rett & "" & BCaptionO & " "
Rett = Rett & "
"
Rett = Rett & " Rett = Rett & " id=""" & BNameT & """ name=""" & BNameT & """ value=""" & BValueT & """ " & ReadOnly & " >"
Rett = Rett & "" & DescDiv & Div2Close
Rett = Rett & ""
Rett = Rett & "" & vbcrlf
Rett = Rett & ""
ANBSOptionWithText = Rett
End Function

Function ANBSCheckbox(BName, BValue, BCaption, ReadOnly1_ReadWrite2, LabelColWidth, BDescription)
Rett = ""
ReadOnly = " "
DescDiv = ""
BChecked = " "
InputStyle = ""
Div2Close = "" & vbcrlf
If Fix(BValue) = 1 Then BChecked = " checked "
If Fix(ReadOnly1_ReadWrite2) = 1 Then ReadOnly = " disabled "
If BDescription > "" Then
DescDiv = DescDiv & "" & vbcrlf
DescDiv = DescDiv & BDescription & vbcrlf
DescDiv = DescDiv & "" & vbcrlf
End If
If LabelColWidth > 0 Then
Rett = Rett & "" & vbcrlf
Rett = Rett & ""
Rett = Rett & ""
Rett = Rett & "" & vbcrlf
Div2Close = "" & vbcrlf
End If
Rett = Rett & ""
Rett = Rett & " Rett = Rett & " class=""custom-control-input""" & BChecked & ReadOnly & " >"
Rett = Rett & " " & BCaption & ""
ANBSCheckbox = Rett & DescDiv & Div2Close
End Function

BName, NoOfBoxes, BCaptionsList,BSelectedID, ReadOnly1_ReadWrite2, LabelColWidth, BLongDescription
or
BIDO, BNameO, BNameT, BValueO, BValueT, BCaption, BCaptionO, Checked1, ReadOnly1_ReadWrite2, LabelColWidth, BTypeT, BLongDescription
or
BName, BValue, BCaption, ReadOnly1_ReadWrite2, LabelColWidth, BDescription

Views 712 Downloads 202

Classic ASP UI
ANmarAmdeen
755
Attachments
Revisions

v4.0