Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
Function CommandCode(PC As Long) Dim command As String Dim argPassedIn As String command = Worksheets("GUI").Cells(PC + 1, 2).Value argPassedIn = Worksheets("GUI").Cells(PC + 1, 3).Value If InStr(argPassedIn, ",") = False Then CallByName Me, command, VbMethod, argPassedIn If InStr(argPassedIn, ",") Then CallByName Me, command, VbMethod, Split(argPassedIn, ",") End Function Function MySend(ByVal data As String) If LCase(data) = "chr(13)" Then data = Chr(13) If LCase(data) = "chr(27)" Then data = Chr(27) wsTCP.SendData data End Function Function CheckWarning(word1 As String, word2 As String) 'Detect whether there is a warning. If there is, keep sending word2. Do While (InStr(sBuffer, word1) > 0) 'Gets out of loop when word1 no longer exists sBuffer = "" MySend word2 Call CheckBuffer Loop End Function
|Excel - Save a copy of work book||13||84|
|Getting warning: You are about to delete 1 row(s)||9||48|
|How to compare ms sql hashbytes results within vb6||5||73|
|how to know if my Checkbox is True in VB6.0?||9||54|