Sub Evaluator() Dim Input As Int16 Dim o As Windows.Forms.TableLayoutCellPaintEventArgs 'Dim caller as Form1.PanelPanter(AddressOf Form1.TableLayoutPanel1_CellPaint) 'The following just needs to be explored here: http://msdn.microsoft.com/en-us/library/vstudio/system.windows.forms.painteventargs(v=vs.100).aspx Input = Assigner(Form1.i) Dim g As Graphics g = Form1.Panel1.CreateGraphics Dim Rectang As Rectangle Dim Tangrec As Rectangle Dim Coller As Integer Dim Rower As Integer o = New Windows.Forms.TableLayoutCellPaintEventArgs(g, Rectang, Tangrec, _ Coller, Rower) If -1 < Divy And Divy < Form1.i Then Form1.Div = Input Form1.TextBox3.Clear() AdjustTable() 'Trying to Invalidate Form1.Panel1.Invalidate(True) 'Trying to call CellPaint() directly Form1.TableLayoutPanel1_CellPaint(Me, o) ElseIf Divy < 0 Then 'call the code that shows the over use of vacume ElseIf Form1.i <= Divy Then 'call the code showing the overspill of chemicals. End If If Done = True Then End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)