Visual Basic

Alpherattz wrote:

I'm using DevExpress TreeList and I want to use it as button.

Bastard Programmer from Hell

Private Sub treeList1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles treeList1.MouseUp

    ShowHitInfo(treeList1.CalcHitInfo(New Point(e.X, e.Y)))
End Sub
Private Sub ShowHitInfo(ByVal hi As DevExpress.XtraTreeList.TreeListHitInfo)

    Dim msg As String = hi.HitInfoType.ToString() & vbCrLf
    If (hi.Column Is Nothing) Then
        msg &= "No column" & vbCrLf
    Else
        msg &= "Column: " & hi.Column.GetCaption() & vbCrLf
    End If
    If hi.Node Is Nothing Then
        msg &= "No Node" & vbCrLf
    Else
        msg &= "Node: " & hi.Node.Id.ToString() & vbCrLf
    End If
    If hi.Column IsNot Nothing AndAlso hi.Node IsNot Nothing Then
        msg &= "CellValue: " & hi.Node.GetDisplayText(hi.Column.AbsoluteIndex) & vbCrLf
    End If
    MessageBox.Show(msg)
End Sub

Private Sub treeList1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles treeList1.MouseUp
    If e.Button <> Windows.Forms.MouseButtons.Right Then
        Exit Sub
    End If
    ShowHitInfo(treeList1.CalcHitInfo(New Point(e.X, e.Y)))
End Sub

com.commandText = SQL

get number from user.
if number is less than 40 then
    output "Fail"
else if number is greater than or equal to 40 and number is less than 50
    output "Pass"
else if number is greater than or equal to 50 and number is greater than 60
    output "Merit"
else 
    output "Distinction"