Introduction - If you have any usage issues, please Google them yourself
linear scanning algorithm rivate AM1 (100) As Integer, AY1 (100) As Integer, AX2 (100) As Integer, AY2 (100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load () Picture1.BackColor = RGB (255, 255, 255) N = 0End SubPrivate Sub picture1_MouseDown (Button As Integer, Shift As Integer, As Single X, Y As Single) If Button = = a ThenCX1 CInt (X) : CX2 = CInt (X) = CY1 CInt (Y) : CY2 = CInt (Y) End Sub IfEnd
Packet : 921528line(new).rar filelist
line(new)
line(new)\工程1.vbw
line(new)\MSSCCPRJ.SCC
line(new)\Picture.txt
line(new)\工程exe.exe
line(new)\工程1.vbp