2010年03月の記事
全2件 (2件中 1-2件目)
1
-
PictureBox Undo Redo
Imports System.Drawing.Drawing2DPublic Class Form1 Dim img As Image Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) 'Penオブジェクトの作成(幅10の黒色) Dim blackPen As New Pen(Color.Black, 10) '終点に矢印をつける blackPen.EndCap = LineCap.ArrowAnchor '線を描画 g.DrawLine(blackPen, 10, 10, 100, 10) g.Dispose() 'PictureBoxを再描画する PictureBox1.Invalidate() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'UnDo処理 Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.DrawImage(img, 0, 0) g.Dispose() 'PictureBoxを再描画する PictureBox1.Invalidate() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load img = PictureBox1.Image.Clone End SubEnd Class
2010.03.18
-
CommandBuilder
Dim cn As NpgsqlConnection Dim da As NpgsqlDataAdapter Dim dt As DataTable Dim sqlBuilder As NpgsqlCommandBuilder cn = New NpgsqlConnection("Server=localhost;" _ & "Port=5432;" _ & "User Id=guest;" _ & "Password=guest;" _ & "Database=postgres;") cn.Open() If cn.State ConnectionState.Open Then MessageBox.Show("接続エラー") Else MessageBox.Show("接続OK") End If da = New NpgsqlDataAdapter("SELECT * FROM list", cn) sqlBuilder = New NpgsqlCommandBuilder(da) da.InsertCommand = sqlBuilder.GetInsertCommand da.UpdateCommand = sqlBuilder.GetUpdateCommand da.DeleteCommand = sqlBuilder.GetDeleteCommand dt = New DataTable da.Fill(dt) '追加処理=========================== Dim tempRos As DataRow = dt.NewRow tempRos.BeginEdit() tempRos("visdate") = 18 tempRos("vistime") = "DataAdapter Insert" tempRos.EndEdit() dt.Rows.Add(tempRos) da.Update(dt) '削除処理================================ Dim deleteRow() As DataRow = dt.Select("id=1") deleteRow(0).Delete() da.Update(dt) '更新処理============================================ Dim updateRow() As DataRow = dt.Select("id=2") updateRow(0).BeginEdit() updateRow(0).Item("visdate") = "22" updateRow(0).EndEdit() da.Update(dt)
2010.03.13
全2件 (2件中 1-2件目)
1
