محمد كتب :شكرآ أخى على هذا الموضوع ممكن تساعدنى فى هذا الكود ؟

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim i As Integer = Val(Label1.Text)
        If Not i < 100 AndAlso i > 0 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = True
            Label2.BackColor = Color.Lime
            Label4.BackColor = Color.Lime
            Label5.BackColor = Color.Lime
            Label6.BackColor = Color.Lime
        End If
        If Not i < 200 AndAlso i > 100 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = False
            Label2.BackColor = Color.CornflowerBlue
            Label4.BackColor = Color.CornflowerBlue
            Label5.BackColor = Color.CornflowerBlue
            Label6.BackColor = Color.CornflowerBlue
            If Not i < 300 AndAlso i > 200 Then
                Label2.Visible = False
                Label4.Visible = False
                Label5.Visible = False
                Label6.Visible = False
            Else
                Label2.Visible = True
                Label4.Visible = True
                Label5.Visible = False
                Label6.Visible = False
                Label2.BackColor = Color.Orange
                Label4.BackColor = Color.Orange
                Label5.BackColor = Color.Orange
                Label6.BackColor = Color.Orange
                If Not i < 2000 AndAlso i > 300 Then
                    Label2.Visible = False
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                Else
                    Label2.Visible = True
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                    Label2.BackColor = Color.Red
                    Label4.BackColor = Color.Red
                    Label5.BackColor = Color.Red
                    Label6.BackColor = Color.Red
                End If
            End If
        End If
    End Sub

مراد بورجي كتب :اخي الكريم جزيت خير الاجزاء ان شاءلله وجعلة في ميزان حسناتك

سؤالى البحت بتاريخ ما يجيب نتيجة مائة بلمائة شوف الصورة وانت تفهم وهدا الكود مرفق ايظن اخي

PHP كود :

dt.Clear()
        Dim ds As New DataSet
        Dim sql1 As String = "select i.inv_no,i.code,i.drive,i.engine,i.transf,i.chass_no,i.eng_no,i.vin,i.color,i.cd_no,i.cd_date,i.key_no from Invoice3 i , cust_information c  where i.inv_no = c.inv_no And i.model like '%" & ComboBox1.Text & "%' And c.inv_date >='" & DateTimePicker1.Text & "' And c.inv_date <='" & DateTimePicker2.Text & "'"
        con3.Open()

        Dim da As New SqlDataAdapter(sql1, con3)
        da.Fill(dt)

        DataGridView1.DataSource = dt
        DataGridView1.Refresh()

        ''-----------------------------------------
        ''-----------------------------------------
        DataGridView1.Columns(0).Width = 60
        DataGridView1.Columns(1).Width = 80
        DataGridView1.Columns(2).Width = 80
        DataGridView1.Columns(3).Width = 80
        DataGridView1.Columns(4).Width = 80
        DataGridView1.Columns(5).Width = 90

        DataGridView1.Columns(6).Width = 80
        DataGridView1.Columns(7).Width = 180
        DataGridView1.Columns(8).Width = 80
        DataGridView1.Columns(9).Width = 80
        DataGridView1.Columns(10).Width = 80

        DataGridView1.Columns(11).Width = 90
     



        DataGridView1.Columns(0).HeaderText = " Invoice No "
        DataGridView1.Columns(1).HeaderText = "Mark"
        DataGridView1.Columns(2).HeaderText = "Drive"
        DataGridView1.Columns(3).HeaderText = "Engine"
        DataGridView1.Columns(4).HeaderText = "Trans"
        DataGridView1.Columns(5).HeaderText = "chass_no"

        DataGridView1.Columns(6).HeaderText = "Eng_no"
        DataGridView1.Columns(7).HeaderText = "VIN"
        DataGridView1.Columns(8).HeaderText = "Color"
        DataGridView1.Columns(9).HeaderText = "CD_no"
        DataGridView1.Columns(10).HeaderText = "CD_date "
        DataGridView1.Columns(11).HeaderText = "Key_no"
      



        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        '-------------------------------------------
        con3.Close() 


الميسري كتب :هل يمكنني صنع برنامج يقوم بتحديد الداون لود
يعني اعمل له حجم محدد يقوم بتنزيله
مثال عندي مقطع mp3 وابي انزله واشتي البرنامج اذا كان المقطع اكبر من 4 ميجا لا ينزله واذا كان اقل يقوم بتنزيله