למומחים בVB שבניכם!!!!

vb-man

New member
למומחים בVB שבניכם!!!!

אני צריך דחוף קוד שמאפשר להזיז תמונה בעזרת העכבר. תודה מראש איתי....
 

The_Expert

New member
למה לא אמרת קודם..

שוב שלום, אולי זה יעזור: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Move X, Y End Sub *פשוט תעתיק את הקוד *צור אובייקט תמונה *האירוע הוא הזזת העכבר על הטופס, כך שהתמונה תזוז עם העכבר
 

noam172

New member
יש פתרון יותר טוב

לא כדאי להשתמש באירוע MouseMove מכמה סיבות: א. התמונה תזוז ככה עם העכבר ולא חשוב אם אתה לוחץ על העכבר או לא ב. האירוע MouseMove משוגר ללא הפסקה גם אם העכבר לא זז, ולא תוכל להשתחרר מהזזת התמונה, כי לאן שתזיז את העכבר גם התמונה תזוז לשם. לכן, עדיף שתשתמש באירוע DragDrop במקום, והתמונה תזוז רק אם תלחץ על הכפתור של העכבר בזמן שאתה מנסה להזיז את התמונה.
 
למעלה