[dubai.eig]

(10-04-17, 10:22 AM)abdualla كتب : شوف ينفع هذا التعديل لنفس الكود الأخير في جز الحدث PrintDocument1_PrintPage

PHP كود :

   Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim leftMargin As Integer = e.MarginBounds.Left
        Dim topMargin As Integer = e.MarginBounds.Top

        Dim cellFont As New Font("Arial", 14)
        Dim cellForeColor As New SolidBrush(Color.Black)
        Dim cellBackColor As New SolidBrush(Color.WhiteSmoke)
        Dim cellBorderColor As New Pen(Brushes.Blue, 1)
        Dim cellSize As New Size(300, 100)

        Dim y As Integer = 0

        For index = 0 To products.Count - 1

            Dim cellText As String =
                "confirming QSO with " & products.Keys(index) & vbNewLine & _
                products(products.Keys(index))

            Dim txtSize As Size = TextRenderer.MeasureText(cellText, cellFont)

            Dim cellPoint As New Point(leftMargin + (0), topMargin + (y))
            Dim cellRectangle As New Rectangle(cellPoint, New Size(cellSize.Width, txtSize.Height))

            e.Graphics.FillRectangle(cellBackColor, cellRectangle)
            e.Graphics.DrawString(cellText.Trim, cellFont, cellForeColor, cellRectangle)
            e.Graphics.DrawRectangle(cellBorderColor, cellRectangle)

            y += txtSize.Height

        Next

    End Sub 


---

لأن الطلب الأخير محتاج وقت

شكرا بارك الله فيك

اسمحلي على تعبك

الكود ما نفع لان الاستيكر في مقاسات معينة



لهذا ما نفع

ادري ماخذ وقتك  كثر الله من امثالك

[abdualla]

أههااااا فهمت عليك

طيب هل المسألة فيها قاعدة بيانات،
اذا تريد ترسل مشروعك اللي بتشتغل عليه على الخاص اطلع عليه يمكن الاقي فيه أشياء جاهزة توفر من الوقت.

[dubai.eig]

(10-04-17, 10:40 AM)abdualla كتب : أههااااا فهمت عليك

طيب هل المسألة فيها قاعدة بيانات،
اذا تريد ترسل مشروعك اللي بتشتغل عليه على الخاص اطلع عليه يمكن الاقي فيه أشياء جاهزة توفر من الوقت.

صحيح الداتا اسحبها من قاعدة البيانات  SQLite

كود :

     Dim str As String = String.Format("Data Source= DB.s3db")
           Dim con As New SQLiteConnection(str)
           Dim com As String = "select Qso_id,CALLop ,qso_date ,timek ,bands ,modes ,rst_sent ,rst_rcvd FROM DB"
           Dim Adpt As New SQLiteDataAdapter(com, con)
           Dim ds As New DataSet()

           Adpt.Fill(ds, ("DB"))

           DataGridView1.DataSource = ds.Tables("DB").DefaultView
           With DataGridView1
               .RowHeadersVisible = False
               .Columns(0).Visible = False
               .Columns(1).HeaderCell.Value = "Call Sign"
               DataGridView1.Columns(1).Width = "100"

               .Columns(2).HeaderCell.Value = "Date"
               DataGridView1.Columns(2).Width = "100"

               .Columns(3).HeaderCell.Value = "UTC"
               DataGridView1.Columns(3).Width = "70"

               .Columns(4).HeaderCell.Value = "Band"
               DataGridView1.Columns(4).Width = "70"

               .Columns(5).HeaderCell.Value = "Mode"
               DataGridView1.Columns(5).Width = "70"

 

               .Columns(7).HeaderCell.Value = "rst sent"
               DataGridView1.Columns(7).Width = "60"

               .Columns(8).HeaderCell.Value = "rst rcvd"
               DataGridView1.Columns(8).Width = "60"

         

           End With

ال CALLop  هو نفسه      DataGridView1.Columns(1).Name = " Name"

---

(10-04-17, 10:40 AM)abdualla كتب : أههااااا فهمت عليك

طيب هل المسألة فيها قاعدة بيانات،
اذا تريد ترسل مشروعك اللي بتشتغل عليه على الخاص اطلع عليه يمكن الاقي فيه أشياء جاهزة توفر من الوقت.

المشروع حجمه كبير شويه بس مثل ما وضحت اني اسحب الداتا ن القاعدة الى الداتا قريد 

مثل ما واضح فوق واذا محتاج اي شي ثاني امر ان شاءالله اوفرة لك

[dubai.eig]

السلام عليكم

لاهمية الموضوع عندي اتمنى احصل حل للكود

ما قصر استاذ عبدالله ساعدني كثير وباقي الان اخر خطوة وهيه

   

اريد احدد لكل مربع عدد الادخالات واذا هناك ادخالات اضافية ل Product معين يتم فتح مربع جديد له

الموضوع مهم جدا لي واللي يقدر يساعدني جزاء الله خير حتى بمقابل مالي عن طريق paypal  او تحويل بنكي او اي تحويل اخر

انا جربت موضوع crystal reports

اول شي ما كان موجود في vb2013
قمت بتنزيله ومن ثم طلع لي مشكله اخر ان ما يشتغل مع SQLite

جزاكم الله خير