Comments for Neal's Blog http://www.applicationgroup.com/blog Mon, 11 Jan 2010 14:42:51 +0000 http://wordpress.org/?v=2.9.2 hourly 1 Comment on Maintaining Form Position when closing and reopening in a multi-monitor environment by Neal http://www.applicationgroup.com/blog/?p=9&cpage=1#comment-537 Neal Mon, 11 Jan 2010 14:42:51 +0000 http://www.applicationgroup.com/blog/?p=9#comment-537 It has come to my attention that I did not include one of the required functions for this code. In the FormClosing section I call a function "stringtoasc" which I did not include. The purpose of this function is to remove ASCII control characters and non-ASCII characters from the string. This is required to determine the correct screen that the form is on. So here's the code for that function: '******************************************************************************************** ' Return only normal ASCII Characters (characters on the keyboard) from a string ' Remove ASCII code 63 - causing problem in screen display name matching '******************************************************************************************** Private Function stringtoasc(ByVal strVal As String) As String ' MsgBox(strVal.Length) stringtoasc = "" For i As Integer = 1 To strVal.Length If Asc(Mid(strVal, i, 1)) > 31 And Asc(Mid(strVal, i, 1)) < 127 And Asc(Mid(strVal, i, 1)) <> 63 Then stringtoasc = stringtoasc & Mid(strVal, i, 1) End If Next ' MsgBox(stringtoasc.Length) End Function It has come to my attention that I did not include one of the required functions for this code. In the FormClosing section I call a function “stringtoasc” which I did not include. The purpose of this function is to remove ASCII control characters and non-ASCII characters from the string. This is required to determine the correct screen that the form is on. So here’s the code for that function:

‘********************************************************************************************
‘ Return only normal ASCII Characters (characters on the keyboard) from a string
‘ Remove ASCII code 63 – causing problem in screen display name matching
‘********************************************************************************************
Private Function stringtoasc(ByVal strVal As String) As String
‘ MsgBox(strVal.Length)
stringtoasc = “”
For i As Integer = 1 To strVal.Length
If Asc(Mid(strVal, i, 1)) > 31 And Asc(Mid(strVal, i, 1)) < 127 And Asc(Mid(strVal, i, 1)) <> 63 Then
stringtoasc = stringtoasc & Mid(strVal, i, 1)
End If
Next
‘ MsgBox(stringtoasc.Length)
End Function

]]> Comment on Copy a large number of small files by chichi http://www.applicationgroup.com/blog/?p=3&cpage=1#comment-536 chichi Thu, 08 Oct 2009 00:33:23 +0000 http://www.applicationgroup.com/blog/?p=3#comment-536 Teaming the NICs and use Richcopy. Copy files in safe mode with network Teaming the NICs and use Richcopy. Copy files in safe mode with network

]]>