Visual Basic

dilkonika wrote:

If all the things are clear in google

dilkonika wrote:

then why you keep open this forum ?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

dilkonika wrote:

And who ask to you to write my code ? I ask for steps. And a step is not
" Go to goolge and search about this ....."

dilkonika wrote:

For example look at one of my recent question

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

• read the first number using inputbox
• make the same thing with other number
• add 2 numbers.

Const sql As String = "SELECT d.LINK,d.absdt  " _
   & ",CAST(ROUND(SUM([ABSCNT]), 2) AS NUMERIC(24,2)) AS absentCount " _
   & "FROM ADetails d INNER JOIN AASTU s ON d.link = s.link  " _
   & "INNER JOIN AASCH sch ON d.schoolnum = sch.schoolnum  " _
   & "WHERE d.STULINK = @link " _                         
   & "AND d.schoolnum = @SchoolNum " _
   & "GROUP BY d.LINK,d.absdt  " _
   & "ORDER BY d.ABSDT ; "

Using con As SqlConnection = DB.OpenConnectionS()
   Using da As SqlDataAdapter = New SqlDataAdapter(sql, con)
      da.SelectCommand.Parameters.Add("@link", SqlDbType.Int).Value = Letter.Link  
      da.SelectCommand.Parameters.AddWithValue("@SchoolNum", SchoolNum)
      da.Fill(_dt)
   End Using
End Using

Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = WM_CHAR Then
                Return
            End If
            MyBase.WndProc(m)
        End Sub
    End Class

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        Const WM_KEYDOWN As Integer = &H100

        If ((msg.Msg = WM_KEYDOWN)) Then
            Select Case (keyData)
                Case Keys.Tab
                    Me.Label1.Text = "Tab Key Captured"
                Case Keys.Enter
                    Me.Label1.Text = "Enter Key Captured"
                Case Keys.Return
                    Me.Label1.Text = "Return Key Captured"
                Case Else
                    Me.Label1.Text = keyData.ToString
            End Select
        End If

        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

Protected Overrides Sub WndProc(ByRef m As Message)
    Const WM_CHAR = &H102
    If m.Msg = WM_CHAR Then
        Return
    End If
    MyBase.WndProc(m)
End Sub

Class NW
        Inherits NativeWindow
        Public Sub New(hwnd As IntPtr)
            AssignHandle(hwnd)
        End Sub
        Const WM_NCHITTEST As Integer = &H84
        Const WM_CHAR As Integer = &H102
        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = WM_NCHITTEST OrElse m.Msg = WM_CHAR Then
                Return
            End If
            MyBase.WndProc(m)
        End Sub

<pre>
End Class</pre>

1. Properties don't have buttons. Forms have buttons.
2. What kind of help do you need?