|
分類:[.NET 全般]
分類:[.NET 全般]
お世話になります
今データベースを使わずにIDとパスワードを管理できるソフトを作っております
そこでパスワードを表示させている列がありますそこをチェックボックスでマスクのON、Offを設定したいのですが
どうすればいいか分かりませんどうかよろしくお願いします。
下ソース
Imports System.IO
Imports System.Text
Imports System.Xml.Serialization
Public Class KanriMain
Private ds As New DataSet1()
Shared Function GetAppPath() As String
Return System.IO.Path.GetDirectoryName( _
System.Reflection.Assembly.GetExecutingAssembly().Location)
End Function
Private Sub KanriMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'DataSetのカラムを自動生成しない
Me.dgv.AutoGenerateColumns = False
'dgvにユーザーが新しい行を追加できないようにする()
'dgv.AllowUserToAddRows = False
'No.カラムを作成
Dim txtNo As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
txtNo.HeaderText = "No."
txtNo.DataPropertyName = "No."
txtNo.Width = 150
dgv.Columns.Add(txtNo)
'サイト名カラムを作成
Dim txtNam As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
txtNam.HeaderText = "サイト名"
txtNam.DataPropertyName = "サイト名"
txtNam.Width = 150
dgv.Columns.Add(txtNam)
'URLカラムを作成
Dim txtURL As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
txtURL.HeaderText = "URL"
txtURL.DataPropertyName = "ＵＲｌ"
txtURL.Width = 150
dgv.Columns.Add(txtURL)
'IDカラムを作成
Dim txtID As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
txtID.HeaderText = "ID"
txtID.DataPropertyName = "ＩＤ"
txtID.Width = 100
dgv.Columns.Add(txtID)
'PSカラムを作成
Dim txtPs As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
txtPs.HeaderText = "PS"
txtPs.DataPropertyName = "PS"
txtPs.Width = 50
dgv.Columns.Add(txtPs)
'データグリッドにデータソースをセット
dgv.DataSource = ds.管理
'指定されたファイルは存在したのか？
If File.Exists(GetAppPath() & "\SampleData.xml") Then
'存在した場合は既存のファイルを読み込む
ds.管理.ReadXml(GetAppPath() & "\SampleData.xml")
Else
'xmlファイルが存在しない場合はファイルを作成
ds.管理.WriteXml(GetAppPath() & "\SampleData.xml")
End If
'奇数行だけ色変更
dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Pink
'DataGridに新しい行の追加
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'DataGridの変更内容の保存
ds.管理.WriteXml(GetAppPath() & "\SampleData.xml")
End Sub
Private Sub Kanrimain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MessageBox.Show("終了しますか？", "終了確認ダイアログ", MessageBoxButtons.YesNo) = DialogResult.No Then
e.Cancel = True
Me.Dispose()
End If
End Sub
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
Dim r As DataGridViewRow
Dim result As DialogResult = MessageBox.Show("削除するぜ！！", _
"質問", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2)
If result = Windows.Forms.DialogResult.Cancel Then
MessageBox.Show("消さないでおきましょう")
End If
If result = Windows.Forms.DialogResult.OK Then
For Each r In dgv.SelectedRows
If Not r.IsNewRow Then
dgv.Rows.Remove(r)
ds.管理.WriteXml("C:\Documents and Settings\091016\My Documents\Downloads\SampleData.xml")
MessageBox.Show("削除したよ〜")
End If
Next r
End If
End Sub
End Class
長文失礼しました
|
