Bài viết Một số đoạn code vb.net thường gặp (Devexpress thiết kế giao diện)

Thảo luận trong 'Visual Basic/VBA' bắt đầu bởi hongoctrien, 21 Tháng sáu 2013.

  1. Offline

    hongoctrien

    • Friends

    Số bài viết:
    2.449
    Đã được thích:
    2.464
    Điểm thành tích:
    2.431
    Những cái này mình học hỏi, sưu tầm được trong quá thực hiện đồ án tốt nghiệp, giờ gửi lên đây để hỗ trợ các bạn trong quá trình làm đồ án.

    Mô hình 3 lớp
    Có thể xem bài viết này http://sinhvienit.net/forum/c-bai-giang-thiet-ke-theo-mo-hinh-3-lop-source-code.15234.html

    Tạo phím tắt chức năng
    Mã:
        Protected Overloads Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
     
            If keyData = (Keys.Delete) Then
                btndel_Click()
                Return True
            End If
     
            If keyData = (Keys.Control Or Keys.P) Then
                print()
                Return True
            End If
     
            If keyData = (Keys.Control Or Keys.A) Then
                SelectAll()
                Return True
            End If
     
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    Lấy giá trị (chỉ định) những dòng được chọn
    Mã:
        Private Function SelectedValue() As List(Of String)
            Dim Rows As New List(Of String)
            Dim I As Integer
     
            Dim view As GridView = getGirdView()
     
            Dim selectedRows As Integer() = View.GetSelectedRows()
     
            For I = 0 To View.SelectedRowsCount - 1
                Dim rowHandle As Integer = selectedRows(I)
                Rows.Add(View.GetRowCellValue(rowHandle, "maDV"))
            Next
            Return Rows
        End Function

    Sửa trực tiếp trên gridview
    Mã:
        Private Sub gridView_ValidateRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.ValidateRowEventArgs) Handles GridView2.ValidateRow, GridView3.ValidateRow, GridView4.ValidateRow
            Dim view As GridView = TryCast(sender, GridView)
     
            If Not view.IsNewItemRow(e.RowHandle) Then
                If (_phanLoai = "dstt") Then
                    Dim maDV As String = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "maDV")
                    Dim ngayQD As DateTime = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "ngayQD")
                    Dim ghiChu As String = Me.GridView2.GetRowCellValue(Me.GridView2.FocusedRowHandle, "ghiChu")
                    ttdvblo.SuaTruongThanh(maDV, ngayQD, ghiChu)
                    DanhSach_DV_TruongThanh()
                ElseIf _phanLoai = "dscsh" Then
                    Dim maDV As String = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "maDV")
                    Dim ngayQD As DateTime = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "ngayQD")
                    Dim dvDen As String = Me.GridView3.GetRowCellValue(Me.GridView3.FocusedRowHandle, "dvChuyenDen")
                    ttdvblo.SuaChuyenSH(maDV, ngayQD, dvDen)
                    DanhSach_DV_ChuyenSinhHoat()
                ElseIf _phanLoai = "dskt" Then
                    Dim maDV As String = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "maDV")
                    Dim ngayQD As DateTime = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "ngayQD")
                    Dim lyDo As String = Me.GridView4.GetRowCellValue(Me.GridView4.FocusedRowHandle, "lyDo")
                    ttdvblo.SuaKhaiTru(maDV, ngayQD, lyDo)
                    DanhSach_DV_KhaiTru()
                End If
            End If
        End Sub
    Sự kiện khi double click vào một dòng trên gridview
    Mã:
        'double click
        Private Sub gridView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.DoubleClick, GridView2.DoubleClick, GridView3.DoubleClick, GridView4.DoubleClick, GridView9.DoubleClick
            Dim view As GridView = CType(sender, GridView)
            Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
            DoRowDoubleClick(view, pt)
        End Sub
        Private Sub DoRowDoubleClick(ByVal view As GridView, ByVal pt As Point)
            frmThongTinDoanVien._maDV = GetmaDV()
            Dim frmThongTinDV As New frmThongTinDoanVien
            frmThongTinDoanVien.Show(Me)
        End Sub

    Menu chuột phải
    Xem bài viết này http://documentation.devexpress.com...raGridViewsGridGridView_PopupMenuShowingtopic

    Tạm thời mới nhớ được có chừng đó. Có thắc mắc, yêu cầu gì các bạn cứ nói nhé
    duyen.only.it thích bài này.

Chia sẻ trang này

Advertising: Linux system admin | nukeviet | nukeviet 4 | Upload ảnh miễn phí