| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
| 31 |
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Label1.Text = "AssemblyVersion : " & _
My.Application.Info.Version.ToString
Label2.Text = "AssemblyFileVersion : " & _
Application.ProductVersion.ToString
End Sub
'/// 登録をクリック ///
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnSave.Click
'-- ここで強制的に登録しなくても終了時に自動で保存される
'My.Settings.Save()
Me.Close()
End Sub
'/// キャンセルをクリック ///
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnCancel.Click
'-- 入力内容を破棄したい場合は、再読込みする
My.Settings.Reload()
Me.Close()
End Sub
| Major | Minor | Build | Revision | |
|---|---|---|---|---|
| VB6 | App.Major | App.Minor | - | App.Revison |
| Label1.Cation = App.Major & "." & App.Minor & "." & App.Revision | ||||
| VB.NET | Dim Ver As New Version(Application.ProductVersion) | |||
| Ver.Major | Ver.Minor | Ver.Build | Ver.Revison | |
| Dim Ver As New Version(Application.ProductVersion) Label1.Text = Ver.ToString | ||||
| VB2005 | Dim Ver As Version = My.Application.Info.Version | |||
| Ver.Major | Ver.Minor | Ver.Build | Ver.Revison | |
| Label1.Text = My.Application.Info.Version.ToString | ||||
'///// 行ヘッダに行番号を描画 /////
Private Sub dataGridView_RowPostPaint(ByVal sender As Object, _
ByVal e As DataGridViewRowPostPaintEventArgs) _
Handles Me.RowPostPaint
' - 行番号と行の境界(枠)の左上のPOINT(X,Y)を取得
Dim RowNo As Integer = e.RowIndex + 1 '行番号を取得
Dim X as Integer = e.RowBounds.Location.X '行(Row)の境界の左上X座標
Dim Y as Integer = e.RowBounds.Location.Y ' 同上 Y座標
'塗り潰し用ブラシを作成
Using bs As SolidBrush = New SolidBrush(Me.RowHeadersDefaultCellStyle.ForeColor)
'文字列を描画
e.Graphics.DrawString(RowNo.ToString(), _ '行番号文字列
Me.DefaultCellStyle.Font, _ 'フォントを指定
bs, _ 'ブラシを指定
X + 15, Y + 4) '文字出力座標
End Using
End Sub
'///// 行番号を右揃えで表示させる方法 /////
Private Sub dataGridView_RowPostPaint(ByVal sender As Object, _
ByVal e As DataGridViewRowPostPaintEventArgs) _
Handles Me.RowPostPaint
Dim RowNo As Integer = e.RowIndex + 1
Dim X As Integer = e.RowBounds.Location.X
Dim Y As Integer = e.RowBounds.Location.Y
Dim drawPoint As New Point(X + 35, Y + 4) '右揃え用に位置をずらす
Dim drawFormat As New StringFormat
'このフラグで右から左に出力される。
drawFormat.FormatFlags = StringFormatFlags.DirectionRightToLeft
Using bs As SolidBrush = New SolidBrush(Me.RowHeadersDefaultCellStyle.ForeColor)
e.Graphics.DrawString(RowNo.ToString(), _
Me.DefaultCellStyle.Font, _
bs, _
drawPoint, _
drawFormat)
End Using
End Sub
ダブルクリックしたときのイベント発生順序
VB6 VB.NET VB2005
----------------------------------------------------
1. MouseDown MouseDown MouseDown
2. MouseUp Click Click
3. Click DoubleClick MouseClick
4. DblClick MouseUp MouseUp
5. MouseUp MouseDown
6. DoubleClick
7. MouseDoubleClick
8. MouseUp
----------------------------------------------------
Private Sub Form_Load()
With List1
.Clear
.AddItem "私"
.AddItem "お父さん"
.AddItem "お母さん"
.AddItem "お兄ちゃん"
.AddItem "お姉ちゃん"
.ListIndex = 0
End With
End Sub
'/// 選択したリストの項目を表示 ///
Private Sub Command1_Click()
MsgBox "「" & List1.List(List1.ListIndex) & "」が選ばれました"
End Sub
'/// ボタンのクリックを内部で実行 ///
Private Sub List1_DblClick()
Command1_Click '上記のクリックイベントを呼んでいるだけ
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
With ListBox1
.Items.Clear()
.Items.Add("私")
.Items.Add("お父さん")
.Items.Add("お母さん")
.Items.Add("お兄ちゃん")
.Items.Add("お姉ちゃん")
.SelectedIndex = 0
End With
End Sub
'/// 選択したリストの項目を表示 ///
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("「" & ListBox1.SelectedItem & "」が選ばれました")
End Sub
'/// ボタンのクリックイベントを発生させる ///
Private Sub ListBox1_DoubleClick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Button1.PerformClick()
End Sub
Private Sub AddContextMenu()
'-- 行ヘッダにContextMenuStrip1を関連付け
For Each row As DataGridViewRow In DataGridView1.Rows
row.HeaderCell.ContextMenuStrip = ContextMenuStrip1
Next
'-- 列ヘッダにContextMenuStrip2を関連付け
For Each column As DataGridViewColumn In DataGridView1.Columns
column.HeaderCell.ContextMenuStrip = ContextMenuStrip2
Next
End Sub
Private colNo, rowNo As Integer
'DataGridViewのTextBoxセルを宣言
Private TextEditCtrl As DataGridViewTextBoxEditingControl
'//// 列毎にIMEを制御 ///////
Private Sub DataGridView1_CellEnter(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
Handles DataGridView1.CellEnter
colNo = e.ColumnIndex '現在の列番号
rowNo = e.RowIndex '現在の行番号
Select Case e.ColumnIndex
Case 0, 4, 11
'この列は日本語入力ON
DataGridView1.ImeMode = Windows.Forms.ImeMode.Hiragana
Case 1 To 3, 5 To 10
'この列はIME無効(半角英数のみ)
DataGridView1.ImeMode = Windows.Forms.ImeMode.Disable
End Select
End Sub
'///// DataGridViewの編集コントロールが表示された時に //////
'///// KeyPressイベントを関連付け //////
Private Sub DataGridView1_EditingControlShowing( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) _
Handles DataGridView1.EditingControlShowing
TextEditCtrl = CType(e.Control, DataGridViewTextBoxEditingControl)
AddHandler TextEditCtrl.KeyPress, AddressOf TextEditCtrl_KeyPress
End Sub
'///// TextBoxセル内でのKeyPressイベント //////
Private Sub TextEditCtrl_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs)
Select Case colNo '現在の列番号
Case 2, 3, 6 '数値のみ許可
Select Case e.KeyChar
Case Chr(Keys.Back) 'BackSpace
Case Chr(Keys.D0) To Chr(Keys.D9) '数値キー
'テンキー用は不要(コメント参照)
'Case Chr(Keys.NumPad0) To Chr(Keys.NumPad9)
'小数点(.)を許可したい場合は
'Case Chr(Keys.Decimal) を追加
Case Else
'上記キー以外は処理しないようにする
'(Delete,Enter,Tabなどは有効)
e.Handled = True
End Select
End Select
End Sub
'////// 編集が終わったタイミングでKeyPressイベントの関連付けを解除 /////
Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
Handles DataGridView1.CellEndEdit
RemoveHandler TextEditCtrl.KeyPress, AddressOf TextEditCtrl_KeyPress
End Sub
(Dim cmd As New OleDbCommand)
For i = 0 To 2
With Item(i)
cmd.CommandText = "insert into hoge_tb values(?,?,?)"
cmd.Parameters.Clear() 'これが無いとItem(0)の内容が３回登録されてしまう。
cmd.Parameters.Add("id", OleDbType.Integer).Value = .id
cmd.Parameters.Add("no", OleDbType.SmallInt).Value = i
cmd.Parameters.Add("namae", OleDbType.VarWChar).Value = .Name
cmd.ExecuteNonQuery()
End With
Next i
| 
| 
| 