|
|
أدوات الموضوع | انواع عرض الموضوع |
رقم المشاركة : ( 1 )
|
|||||||||||
|
|||||||||||
الدرس الأول :المشروع رقم 1 مع الكود الخاص به
المشروع الأول الكود Private Sub Command11_Click() End End Sub Private Sub Form_Load() Picture1.Scale***** = 10 Picture1.Scale****** = 5 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msgString As String Dim ix As Integer Dim iy As Integer ' extract the integer part of the mouse x & y position ix = Int(X) iy = Int(Y) ' if the mouse is over the space between buttons ' we wish to do nothing. empirical testing ' indicates that if the fractional part of x ' is greater than .84 or the fraction part of y ' is greater than .74 the mouse is over the space ' between buttons. ' If ((X - ix) < 0.85) And ((Y - iy) < 0.75) Then msgString = "you hit button " + Str$(ix * 5 + iy + 1) MsgBox (msgString) End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msgString As String msgString = "x = " + Str$(X) + " y = " + Str$(Y) ************.Caption = msgString End Sub
|
15/1/2009, 05:38 PM | رقم المشاركة : ( 4 ) | ||||
نـجـم نـجـوم المهندسين العرب
|
رد: الدرس الأول :المشروع رقم 1 مع الكود الخاص به
بارك الله فيك
|
||||
1/6/2009, 03:28 PM | رقم المشاركة : ( 5 ) | ||||
مـهـند س نـشـيط
|
رد: الدرس الأول :المشروع رقم 1 مع الكود الخاص به
مشكورررررررررررررررررررررررررررررر
|
||||
مواقع النشر (المفضلة) |
الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1) | |
|
|
Google Adsense Privacy Policy | سياسة الخصوصية لـ جوجل ادسنس
^-^ جميع آلمشآركآت آلمكتوبهـ تعبّر عن وجهة نظر صآحبهآ ,, ولا تعبّر بأي شكلـ من آلأشكآل عن وجهة نظر إدآرة آلمنتدى ~