VB2年目の新米プログラマです。
(1)グリッドの先頭行に新規データを追加する
(2)グリッドチェックボックス項目のカラムの行全てにチェックをつける
(3)グリッドチェックボックス項目のカラムの行全てにチェックをはずす
(4)グリッドで選択した行を全てグリッドから削除する
グリッドへのデータ追加や削除、グリッドのチェックボックスのちょっとした
処理をちょっとの時間考えたり解らない所をネットでちょっと調べたりして
問題なくサクサクと書けるようになりました。
2年目のプログラマとしてこの様な部品アルゴリズムを問題なくかけるので
2年目プログラマとして順調に成長していると言えるでしょうか。
会社ではもうちょっと複雑なsql文やVBコードの部品をいくつもつくり
プロジェクトととして完成させ1000行から2000行のプログラムを
2日間位で作れるようになりました。
Public Class Form2
Private Sub initialize()
fgdList.Cols(1).TextAlignFixed = TextAlignEnum.CenterCenter
fgdList.Cols(2).TextAlignFixed = TextAlignEnum.CenterCenter
fgdList.Cols(1).TextAlign = TextAlignEnum.CenterCenter
fgdList.Cols(2).TextAlign = TextAlignEnum.LeftCenter
fgdList.Cols(1).Name = "code"
fgdList.Cols(2).Name = "name"
'列エディタを起動してDataTypeプロパティをBooleanにするとチェックボックスで表示される(開発時)
fgdList.Cols(3).Name = "select"
fgdList.Cols(1).DataType = GetType(Decimal)
fgdList.Cols(2).DataType = GetType(String)
'Boolean型にするとチェックボックスになる
fgdList.Cols(3).DataType = GetType(Boolean)
fgdList.Cols(1).Format = "000"
fgdList.AllowEditing = False
fgdList.Cols(4).Width = 1
'これによってグリッド行を選択する事が出来る(この場合複数行選択)
'グリッドの画面のプロパティでSelectionModeを設定してもいい
fgdList.SelectionMode = SelectionModeEnum.ListBox
fgdList.Rows.Count = 1
End Sub
'グリッドの先頭行に新規データを追加する
Private Sub AddGrid()
Dim introwcount As Integer = fgdList.Rows.Count
'最終行に1行、行を追加する
fgdList.Rows.Add()
'行を1行ずつ下へ移動させる
For intIndex As Integer = fgdList.Rows.Count - 1 To 1 Step -1
fgdList(intIndex, "code") = fgdList(intIndex - 1, "code")
fgdList(intIndex, "name") = fgdList(intIndex - 1, "name")
Next
'一番先頭行に新規データを追加する
fgdList(1, "code") = CType(introwcount, Decimal)
fgdList(1, "name") = CType("NAME" & introwcount, String)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
AddGrid()
btnAllClear.Enabled = True
btnAllSelect.Enabled = True
btnDelete.Enabled = True
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
initialize()
btnAllClear.Enabled = False
btnAllSelect.Enabled = False
btnDelete.Enabled = False
End Sub
'グリッドチェックボックス項目のカラムの行全てにチェックをつける
Private Sub btnAllSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllSelect.Click
For intIndex As Integer = 1 To fgdList.Rows.Count - 1
fgdList(intIndex, "select") = True
Next
End Sub
'グリッドチェックボックス項目のカラムの行全てにチェックをはずす
Private Sub btnAllClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllClear.Click
For intIndex As Integer = 1 To fgdList.Rows.Count - 1
fgdList(intIndex, "select") = False
Next
End Sub
'グリッドで選択した行を全てグリッドから削除する
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
'グリッドの最終行から削除していかないとダメ
For intIndex As Integer = fgdList.Rows.Count - 1 To 1 Step -1
If fgdList.Rows(intIndex).Selected = True Then
fgdList.Rows.Remove(intIndex)
End If
Next
If fgdList.Rows.Count = 1 Then
btnAllClear.Enabled = False
btnAllSelect.Enabled = False
btnDelete.Enabled = False
End If
End Sub
End Class
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
詳細な回答は、前の回答者さんが記述されていると思うので割愛します。
私の回答ですが、もし私があなたの先輩・上司であったら、このプログラムを見て10秒で突き返します。
理由は1つ、例外処理が1つも書かれていません。
なぜこのような質問をされたのか分かりませんが、単に自慢したいだけでしょうか。
No.1
- 回答日時:
・「グリッド」というのは何ですか。
普通に考えれば,System.Windows.Forms.DataGridView と思われますが,この「標準の」グリッドコントロールには存在しないプロパティが書かれています。
伝えるためには,ちゃんと型の完全修飾名を書くなりすべきかと思います。
# そもそも,DataGridView ならデータバインドするものかと。
・「initialize」メソッドの役割は何でしょうか。また,メソッド名に Pascal Case を使うのではなく,Camel Case を使っている意図は何でしょうか。
initialize というメソッドがあるのは,危険な香りがします。
本来,コンストラクタがやるべき役割が分散しているだけのように感じられるからです。
また,.NET Framework ではメソッド名は Pascal Case で書きます。
これを逸脱する意図が読み取れません。
# Camel Case はフィールドと変数くらいかと。
・そこら中にシステムハンガリアンによる名称がありますが,これの意図は何ですか。
.NET Framework では,システムハンガリアンは使わないことが推奨されています。
また,intIndex というような変数名は無駄に長いだけで,意味がありません。
せめて row か,いっそ i でよいと思います。
# 行だから row,「単なるループ変数」を意味するために i。
・コントロールに対して 1-origin で書いていますが,この理由は何ですか。
.NET Framework は基本的に 0-origin で書くようになっています。
# 例外: COM
・根本的なところですが,Model はどこにありますか。
View と Model を分離する,というのは GUI の基本だと思います。
どのレベルを要求するかによるとは思いますが,
・「グリッド」が何かを説明していない
・標準の作法から外れた書き方がなされている (ref: http://msdn.microsoft.com/ja-jp/library/ms229043 … )
あたりから,私は少なくともレベルは「高くない」とみなします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
VB6でLabelの最前面にText Box...
-
ADOのCursorLocationプロパティ
-
Enabled=Falseのテキストボック...
-
Wordテキストコントロールが未...
-
VB2005 コードでのコントロー...
-
C# TEXTが空白であるLABELは何...
-
エクセルの画像にツールチップ...
-
チェックボックスの文字色の変え方
-
エクセル VBA ユーザーフォーム...
-
コンボボックスの高さを変更し...
-
ACCESS2010 ActiveXコントロー...
-
MSFlexGrid
-
ユーザーフォームに日付を表示...
-
[C#]コントロールの背景色について
-
DataGridViewで行の展開みたい...
-
VBからエクセルのテキストボ...
-
ListViewでのリスト表示(初歩...
-
VB.NETで縦書表示をしたいので...
-
VB.NET ToolTipの表示条件について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
ADOのCursorLocationプロパティ
-
エクセルの画像にツールチップ...
-
Wordテキストコントロールが未...
-
VB.NETで縦書表示をしたいので...
-
VBからエクセルのテキストボ...
-
ACCESS2010 ActiveXコントロー...
-
チェックボックスの文字色の変え方
-
エクセル入力規制リスト行数
-
Enabled=Falseのテキストボック...
-
C# アプリ終了時に設定を記憶...
-
checkbox付きListViewで デフ...
-
DataGridViewで行の展開みたい...
-
MSFlexGridとDataGridの違いに...
-
コンボボックスの高さを変更し...
-
デザインモードを解除すると消...
-
VB6でLabelの最前面にText Box...
-
MSFlexGrid
-
PictureBoxの背景色変更(VB.NET)
-
VB.NET ToolTipの表示条件について
おすすめ情報