Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Dim g As Graphics = System.Drawing.Graphics.FromHwnd(PB.Handle) Dim g1 As Graphics = System.Drawing.Graphics.FromHwnd(PB2.Handle) For i = 1 To CellWidth For l = Pointer1 + 1 To Pointer1 + 1 + CellHeight 'draw the '1's' as black If Mid$(CellString(i), l, 1) = "1" Then g.DrawEllipse(Pens.Black, i - 1, CellHeight - (l - Pointer1), 1, 1) g1.DrawEllipse(Pens.Black, i - 1, CellHeight - (l - Pointer1), 1, 1) Else g.DrawEllipse(Pens.Khaki, i - 1, CellHeight - (l - Pointer1), 1, 1) g1.DrawEllipse(Pens.DarkKhaki, i - 1, CellHeight - (l - Pointer1), 1, 1) End If Next l Next i ICount = ICount + 1 If j = 0 Then IList1A.Images.Add(PB.Image) IList1B.Images.Add(PB2.Image)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Visual Studio hangs on running project||6||85|
|VB.NET Inline If statement||4||58|
|reading an excel file vb.net||2||47|
|In VB.Net trying to download Sharepoint List to Excel and getting errors.||2||35|
Join the community of 500,000 technology professionals and ask your questions.