|
|
1<br /> 2<br /> 3<br /> 4<br /> 5<br /> 6<br /> 7<br /> 8<br /> 9<br />10<br />11<br />12<br />13<br />14<br />15<br />16<br />17<br />18<br />19<br />20<br />21<br />22<br />23<br />24<br />25<br />26<br />27<br />28<br />29<br />30<br />31 |
|
|
|
<span style="color: #006699; font-weight: bold">Dim</span> bClick <span style="color: #000000; font-weight: bold">As</span> <span style="color: #007788; font-weight: bold">Boolean</span><br /><br /> <span style="color: #006699; font-weight: bold">Private</span> <span style="color: #006699; font-weight: bold">Sub</span> <span style="color: #CC00FF">Form1_MouseDown</span>(<span style="color: #006699; font-weight: bold">ByVal</span> sender <span style="color: #000000; font-weight: bold">As</span> <span style="color: #007788; font-weight: bold">Object</span>, _<br /> <span style="color: #006699; font-weight: bold">ByVal</span> e <span style="color: #000000; font-weight: bold">As</span> MouseEventArgs) <span style="color: #006699; font-weight: bold">Handles</span> <span style="color: #006699; font-weight: bold">MyBase</span>.MouseDown<br /> bClick <span style="color: #555555">=</span> <span style="color: #006699; font-weight: bold">True</span><br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">Sub</span><br /> <span style="color: #006699; font-weight: bold">Private</span> <span style="color: #006699; font-weight: bold">Sub</span> <span style="color: #CC00FF">Form1_MouseMove</span>(<span style="color: #006699; font-weight: bold">ByVal</span> sender <span style="color: #000000; font-weight: bold">As</span> <span style="color: #007788; font-weight: bold">Object</span>, _<br /> <span style="color: #006699; font-weight: bold">ByVal</span> e <span style="color: #000000; font-weight: bold">As</span> MouseEventArgs) <span style="color: #006699; font-weight: bold">Handles</span> <span style="color: #006699; font-weight: bold">MyBase</span>.MouseMove<br /> <span style="color: #006699; font-weight: bold">Static</span> nX <span style="color: #000000; font-weight: bold">As</span> <span style="color: #006699; font-weight: bold">Single</span><br /> <span style="color: #006699; font-weight: bold">Static</span> nY <span style="color: #000000; font-weight: bold">As</span> <span style="color: #006699; font-weight: bold">Single</span><br /><br /> <span style="color: #006699; font-weight: bold">If</span> bClick <span style="color: #006699; font-weight: bold">Then</span><br /> <span style="color: #006699; font-weight: bold">If</span> nX <span style="color: #555555"><></span> <span style="color: #FF6600">0</span> <span style="color: #006699; font-weight: bold">Then</span><br /> <span style="color: #006699; font-weight: bold">Me</span>.Left <span style="color: #555555">=</span> <span style="color: #006699; font-weight: bold">Me</span>.Left <span style="color: #555555">+</span> e.X <span style="color: #555555">-</span> nX<br /> <span style="color: #006699; font-weight: bold">Else</span><br /> nX <span style="color: #555555">=</span> e.X<br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">If</span><br /> <span style="color: #006699; font-weight: bold">If</span> nY <span style="color: #555555"><></span> <span style="color: #FF6600">0</span> <span style="color: #006699; font-weight: bold">Then</span><br /> <span style="color: #006699; font-weight: bold">Me</span>.Top <span style="color: #555555">=</span> <span style="color: #006699; font-weight: bold">Me</span>.Top <span style="color: #555555">+</span> e.Y <span style="color: #555555">-</span> nY<br /> <span style="color: #006699; font-weight: bold">Else</span><br /> nY <span style="color: #555555">=</span> e.Y<br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">If</span><br /> <span style="color: #006699; font-weight: bold">Else</span><br /> nX <span style="color: #555555">=</span> <span style="color: #FF6600">0</span><br /> nY <span style="color: #555555">=</span> <span style="color: #FF6600">0</span><br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">If</span><br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">Sub</span><br /> <span style="color: #006699; font-weight: bold">Private</span> <span style="color: #006699; font-weight: bold">Sub</span> <span style="color: #CC00FF">Form1_MouseUp</span>(<span style="color: #006699; font-weight: bold">ByVal</span> sender <span style="color: #000000; font-weight: bold">As</span> <span style="color: #007788; font-weight: bold">Object</span>, _<br /> <span style="color: #006699; font-weight: bold">ByVal</span> e <span style="color: #000000; font-weight: bold">As</span> MouseEventArgs) <span style="color: #006699; font-weight: bold">Handles</span> <span style="color: #006699; font-weight: bold">MyBase</span>.MouseUp<br /> bClick <span style="color: #555555">=</span> <span style="color: #006699; font-weight: bold">False</span><br /> <span style="color: #006699; font-weight: bold">End</span> <span style="color: #006699; font-weight: bold">Sub</span><br /> |
|
Inserendo il codice soprariportato potrete muovere il vostro form in drag and drop
