'disini untuk koding ga bisa di copy display:block; -webkit-user-select:none; -moz-user-select:none; -khtml-user-select:none; -ms-user-select:none; user-select:none; unselectable:on;

.

Pulsa Murah

Menampilkan Password Chart Pada DataGridView VB.Net

Mungkin ketika kita ingin membuat form login atau form apapun itu yang terdapat inputan password di dalamnya pasti selalu menseting password chart, tapi bagaimana jika form yang kita buat itu terdapat datagrid untuk melihat data..?? tentu saja password kita akan terlihat. Karena tidak semua form yang terdapat password tidak terdapat datagrid pasti ada juga yang memakai datagrid untuk keperluar pengolahan data.

Admin mampu melihat isi data semua hal tentang user termasuk password ketika dia melihat datagrid, untuk itu Syams akan bantu mengatasi masalah ini sehingga password kita pada datagrid tidak akan terlihat oleh siapapun kecuali programmernya heheheeh...

Cukup ketikan koding atau script berikut :

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        If (e.ColumnIndex <> -1 AndAlso DataGridView1.Columns(e.ColumnIndex).Name = "password") Then
            If (Not e.Value Is Nothing) Then
                e.Value = New String("*", e.Value.ToString().Length)
            End If
        End If
    End Sub

Ingat..script ini berfungsi kalau ada kolom password di datagrid anda..selamat mencoba..

2 komentar:

  1. kalau untuk vb6 gimana kodenya mas

    BalasHapus
  2. waduh, lupa2 ingat nih hehehe.. dah lama ga bergelut di pemograman, tapi saya bantu dengan yg saya dapat di forum biasa saya mampir dulu.

    0) When first displaying my DataGridView (DGV) I initialise both the
    Tag and Value property of the cell with the Password

    1) In the EditingControlShowing event, I set the PasswordChar property
    of the Editing Control
    CType(DGV.EditingControl, TextBox).PasswordChar = "*"

    2) In the CellValidated event (i.e. just before leaving the cell in
    edit mode) I save the Password in the Cell's Tag Property
    And I also clear the PasswordChar property of the EditingControl
    Dim PasswordBox As TextBox = CType(DGV.EditingControl,
    TextBox)
    If PasswordBox IsNot Nothing Then
    DGV.Rows(e.RowIndex).Cells(e.ColumnIndex).Tag =
    PasswordBox.Text
    PasswordBox.PasswordChar = Nothing
    End If

    3) In the CellFormatting event (i.e. when the cell needs to format its
    value for display) I mask the content with the password char
    With DGV.Rows(e.RowIndex).Cells(e.ColumnIndex)
    .Value = New String("*", TryCast(.Tag, String).Length)
    End With

    Of course this code is only executed if the events are called for the
    relevant column (i.e. the one storing the password

    Semoga berhasil,ya

    BalasHapus