Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Sub ReloadCalendar(ByVal ldate As Date, ByVal Selected As Integer) Try LoadQBEventsForMonth(ldate) ' loads TheAggArray with appointments for the month from quickbooks ClearDGV() ' clears the datagridview dgvCalendar.CellBorderStyle = DataGridViewCellBorderStyle.Raised MonthName.Text = monthstr(ldate.Month) Dim fdate As DayOfWeek = GetFirstOfMonthDay(ldate) Dim idate As Integer = 1 Dim row As Integer = 0 Dim column As Integer = fdate Do 'Dim newTextBox As New TextBox 'newTextBox.Text = idate 'newTextBox.BackColor = Color.AliceBlue If Not TheAggArray(idate) = "" Then ' we have appointments(s) for this date dgvCalendar.ShowCellToolTips = True dgvCalendar(column, row).ToolTipText = TheAggArray(idate) ' add appointment text to tooltip dgvCalendar(column, row).Value = idate & " !!!" ' place the day of month on the correct cell with an alert Else dgvCalendar(column, row).Value = idate ' place the day of month on the correct cell End If column += 1 If fdate = DayOfWeek.Saturday Then row += 1 column = 0 End If fdate = tdate(fdate) idate += 1 If idate = Date.DaysInMonth(ldate.Year, ldate.Month) + 1 Then Exit Do End If Loop Catch ex As Exception End Try End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.