برنامج من تصميمي

بسم الله الرحمن الرحيم

قبل 4-5 اشهر وفي اثناء تعلم الاساسيات في لغة فيجيوال بيسك دوت نت بدأت برنامج صغير بالعتماد علي الاداه (File System Watcher)

الأن افكر ان اعرض هذا البرنامج كمنتج تجاري علي الانترنت لكن في البداية اريد ان اري تعليقاتكم وهل يستحق هذا البرنامج العرض كمنتج تجاري

البرنامج يحتاج لكي يعمل الي (FrameWork v2) وذلك لاني استخدمت " Visual Basic 2005 Express Edition " .

اذا لاحظ احدكم المشكلة في ال (Picture Control) فارجوا المساعدة

الكود الذي استخدمته للرسم هو

    Private Sub lv_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lv.MouseDown
	DrawAna(lv.GetItemAt(e.X, e.Y))
    End Sub    

    Function DrawAna(ByVal It As ListViewItem) As Boolean
        Dim aA As Graphics = p.CreateGraphics
      ; Dim I2(8) As Integer

        p.Refresh()	; Picture Control

        For I As Integer = It.Index + 1 To lv.Items.Count - 1
            If lv.Items.Item(I).Text & lv.Items.Item(I).SubItems.Item(1).Text = It.Text & It.SubItems.Item(1).Text Then

                aA.DrawLine(Pens.Blue, It.Bounds.X + CInt(p.Width / 2), It.Bounds.Y + 8, lv.Items.Item(I).Bounds.X + CInt(p.Width / 2), lv.Items.Item(I).Bounds.Y + 8)
                aA.DrawString("-:", Me.Font, Brushes.Yellow, It.Bounds.X + CInt(p.Width / 2), It.Bounds.Y)
                aA.DrawString(":-", Me.Font, Brushes.Yellow, lv.Items.Item(I).Bounds.X + CInt(p.Width / 2), lv.Items.Item(I).Bounds.Y)

                aA.Dispose() : Return True : Exit Function

            End If
        Next

        aA.Dispose() : Return False
    End Function

http://s17.yousendit.com/complete.aspx?id=...BK2V8QAQ13XYY7K

وصلة البرنامج

تحيــــاتي