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..
Mengenai Yang Punya
Syams-X
Manusia biasa. Suka makan Mangga sama kulitnya dan makan Rambutan sama bijinya. Sekian.
kalau untuk vb6 gimana kodenya mas
BalasHapuswaduh, lupa2 ingat nih hehehe.. dah lama ga bergelut di pemograman, tapi saya bantu dengan yg saya dapat di forum biasa saya mampir dulu.
BalasHapus0) 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
Makasih ya.. Sangat bermanfaat :)
BalasHapus