Button ID's are created like:
and postbackproc looks like this:
The output from OutputHSLog shows the button that was pressed, but nothing happens.
also I created my own AddButton code:
The Delete Button works fine though.
Code:
For i = 0 To gMaxRecords - 1 If tmpRecords(i).Category = "Holiday" Or tmpRecords(i).Category = "US-Holiday" Then ' Show Only EVENTS no Holidays. Else stb.AppendHTML(HTML_StartRow) '------Edit Button stb.AppendHTML(HTML_StartForm("frmEditEvent", "EditEvent", "Post")) stb.AppendHTML(HTML_StartCell(strClass, 10, HTML_Align.CENTER)) stb.AppendHTML(AddButton("btnEditEvent" & i.ToString, "waves-effect waves-dark btn btn-sm btn-secondary", "Edit")) '------Delete Button stb.AppendHTML(AddButton("btnDeleteEvent" & i.ToString, "waves-effect waves-dark btn btn-sm btn-secondary", "Delete")) stb.AppendHTML(HTML_EndCell) stb.AppendHTML(HTML_EndForm)
Code:
Case "CalEvents.html" name = parts("id") value = parts(name) Try '=========================================== '=========================================== '------------------------------------------- ' BUTTON ADD NEW EVENT '------------------------------------------- If name = "btnAddEvent" Then value = parts(name) OutputHSLog(LOG_DEBUG, "HSPI.PostBackProc-btnAddEvent BUTTON PRESSED.") xmlAddRecord = Nothing response = "PAGE_NEWPAGE,AddEvent.html" End If For i = 0 To gMaxRecords '-------------------------------------- ' BUTTON EDIT EVENT '-------------------------------------- If name = "btnEditEvent" & i Then value = parts(name) OutputHSLog(LOG_DEBUG, "HSPI.PostBackProc-btnEditEvent" & i.ToString & " BUTTON PRESSED.") gRecordSelected = i BuildEditEventPage() response = "PAGE_NEWPAGE,EditEvent.html" End If '--------------------------------------- ' BUTTON DELETE EVENT '--------------------------------------- If name = "btnDeleteEvent" & i Then value = parts(name) OutputHSLog(LOG_DEBUG, "HSPI.PostBackProc-btnDeleteEvent" & i.ToString & " BUTTON PRESSED.") gRecordSelected = i DeleteEventByName(EVENTFILE, xmlRecords(gRecordSelected).EventName) SaveAllXMLRecords(EVENTFILE) response = "PAGE_REFRESH,TRUE" End If Next
also I created my own AddButton code:
Code:
Public Function AddButton(ByVal strID As String, ByVal strClass As String, ByVal strBtnText As String) As String Dim RetString = "" RetString &= "<div id='" & strID & "_div'>" & Environment.NewLine RetString &= "<button type='button' " If strClass IsNot Nothing AndAlso Not String.IsNullOrEmpty(strClass) Then RetString &= "class='" & strClass & "' " End If If strID IsNot Nothing AndAlso Not String.IsNullOrEmpty(strID.Trim) Then RetString &= "id='" & strID & "' " End If RetString &= "onclick='" & strID & "()'" 'RetString &= "action='button_press'" If strBtnText IsNot Nothing AndAlso Not String.IsNullOrEmpty(strBtnText.Trim) Then RetString &= "> " & strBtnText End If RetString &= "</button>" & Environment.NewLine RetString &= "</div>" Return RetString End Function
Comment