| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 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
'///// 行ヘッダに行番号を描画 /////
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
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
Private Sub DataGridView1_CellEnter(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
Handles DataGridView1.CellEnter
'---- 列番号を調べて制御 ------
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
Public Sub New()
MyBase.New
Dim urlSetting As String = _
System.Configuration.ConfigurationSettings.AppSettings(
"hoge.ws_hoge.Service1")
If (Not (urlSetting) Is Nothing) Then
Me.Url = String.Concat(urlSetting, "")
Else
Me.Url = "http://localhost/websvhoge/ServiceHoge.asmx"
End If
End Sub
| プログラミングMicrosoft Visual Basic .NET〈Vol.1〉基礎編 | |
 | Francesco Balena ドキュメントシステム おすすめ平均   すべての.NETプログラマー必読の本 基本です現時点では、VB.NETのベストの解説書Amazonで詳しく見るby G-Tools |
 | プログラミングMicrosoft Visual Basic .NET〈Vol.2〉活用編 Francesco Balena ドキュメントシステム Amazonで詳しく見る by G-Tools |
| プログラミング Microsoft Visual Basic 2005 言語編〈上〉 | |
 | フランチェスコ バレナ Francesco Balena クイープ おすすめ平均 言語仕様の詳細を知るなら！Amazonで詳しく見るby G-Tools |
 | プログラミングMicrosoft Visual Basic 2005 (言語編下) Francesco Balena Amazonで詳しく見る by G-Tools |
'--- 起動 ---
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
'NotifyIconの初期化
With NotifyIcon1
.Text = Me.Text
.Icon = Me.Icon
.ContextMenu = ContextMenu1
.Visible = True
End With
End Sub
'--- ContextMenu(表示) ---
Private Sub MenuItem1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles MenuItem1.Click
Me.Visible = True
Me.WindowState = FormWindowState.Normal
End Sub
'--- アイコンをダブルクリックは表示 ---
Private Sub NotifyIcon1_DoubleClick( _
ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles NotifyIcon1.DoubleClick
Me.Visible = True
Me.WindowState = FormWindowState.Normal
End Sub
'--- ContextMenu(終了) ---
Private Sub MenuItem3_Click( _
ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles MenuItem3.Click
NotifyIcon1.Visible = False 'トレイからアイコンを削除
Application.Exit() 'プログラムの終了
End Sub
'--- 「画面を閉じる」ボタン ---
Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Me.Visible = False
Me.WindowState = FormWindowState.Minimized
End Sub
'--- 「最小化」ボタンを押したときの処理 ---
Private Sub Form1_Resize(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Resize
Select Case Me.WindowState
Case FormWindowState.Minimized
If Me.Visible = True Then Me.Visible = False
End Select
End Sub
'--- Context(終了)以外からは終了しない ---
Private Sub Form1_Closing(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) _
Handles MyBase.Closing
e.Cancel = True '終了をキャンセル
Me.WindowState = FormWindowState.Minimized
End Sub
Public Function GetAllControls(ByVal top As Control) As Control()
Dim buf As ArrayList = New ArrayList
For Each c As Control In top.Controls
buf.Add(c)
buf.AddRange(GetAllControls(c))
Next
Return CType(buf.ToArray(GetType(Control)), Control())
End Function
Private Sub ControlInit()
Dim AllCtrl As Control() = GetAllControls(Me)
For Each c As Control In AllCtrl
If TypeOf c Is TextBox Then
'TextBoxだったら
c.Text = "" 'TextBoxの初期化
ElseIf TypeOf c Is Label Then
'Labelだったら
Dim lb As Label
'(注) c のままではBorderStyleにアクセスできない
lb = CType(c, Label)
If lb.BorderStyle = BorderStyle.Fixed3D Then
'BordeStyleがFixed3Dだったら
lb.Text = "" 'Labelの初期化
End If
End If
Next
End Sub
'=== プロジェクト名：SharedForm ===
'--- Class1.vb ---
Public Class Class1
Public Shared f1 As New Form1
Shared Sub Main()
Application.Run(f1)
End Sub
End Class
'--- Form1.vb ---
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim f2 As New Form2
If f2.ShowDialog(Me) = DialogResult.OK Then
'f2側から変更しているので不要
'TextBox1.Text = f2.TextBox2.Text
'TextBox1.BackColor = System.Drawing.Color.Red
End If
f2.Dispose()
End Sub
'--- Form2.vb ---
Imports SharedForm.Class1
Public Class Form2
(中略)
Private Sub Form2_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.Left = f1.Left + f1.Width
Me.Top = f1.Top
TextBox1.Text = f1.TextBox2.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
f1.TextBox1.Text = TextBox2.Text
f1.TextBox1.BackColor = System.Drawing.Color.Red
Me.Close()
End Sub
End Class
サンプル画面 | Visual Basic.NET基礎300の技 ガリバー      by G-Tools |
| 
| 
| 
| 