Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
Private Sub cmdLogin_Click() Call increment(1) End Sub Private Sub increment(progctr As Long) RunStatus = True 'Make sure the loop can run progctrfinal = TextBox1.Value Do While RunStatus = True And progctr < progctrfinal Call CommandCode(progctr) progctr = progctr + 1 Label3.Caption = progctr 'output the counter value, using the label caption as a store of the current value DoEvents If progstuck Then Exit Do Loop End Sub Private Sub Pause_Click() RunStatus = False End Sub Private Sub Resume_Click() RunStatus = True increment CLng(Label3.Caption) + 1 'restart the counting using the preserved value of the counter End Sub Function CommandCode(PC As Long) Dim command As String Dim argPassedIn As String Dim myarray As Variant command = Worksheets("GUI").Cells(PC + 1, 2).Value argPassedIn = Worksheets("GUI").Cells(PC + 1, 3).Value 'There is only one argument If InStr(argPassedIn, ",") = False And Len(argPassedIn) > 0 Then CallByName Me, command, VbMethod, argPassedIn 'There is no argument If Len(argPassedIn) = 0 Then CallByName Me, command, VbMethod 'There are 2 arguments If InStr(argPassedIn, ",") Then myarray = Split(argPassedIn, ",") CallByName Me, command, VbMethod, myarray End If End Function
|Reading the Contents of a Directory In Access VBA||5||47|
|vb6 connector to mongodb||2||26|
|HOW D I CLEAR PICTURES IN IMAGE CONTROL AND COMMENTS IN CELLS WHEN WORKBOOK IS OPENED||18||47|
|VBA: Select SQL query based on a config Sheet v2||11||30|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!