Category Archives: Visual Basic 6

Boolean Gray Code 4,6

?join(GraySeq(4),vbnewline) 00000001001100100110011101010100110011011111111010101011 1001 1000 ?join(GraySeq(6),vbnewline) 000000000001000011000010000110000111000101000100001100001101001111001110001010001011001001001000011000011001011011011010011110011111011101011100010100010101010111010110010010010011010001010000110000110001110011110010110110110111110101110100111100111101111111111110111010111011111001111000101000101001101011101010101110101111101101101100100100100101100111100110100010100011100001100000 Advertisements

Posted in Visual Basic 6 | Leave a comment

syslistview, ListView spy

Run the code below if you want to steal data from a syslistview control   Dim Ix    As Long, Field As Variant  Dim Spy As New ListViewSpy: Call Spy.Init(ListViewHwnd)   ‘— ListViewHwnd : The handle of the target listview … Continue reading

Posted in Visual Basic 6 | Leave a comment