すべての機能をご利用いただくためには、JavaScriptの設定を有効にしてください。
設定方法は、ヘルプをご覧ください。

帰り道

今更ながらTwitter。自分のつぶやき見てても楽しくないので気軽にaddしてください[QubeleyDDJ]

お気に入りの人に登録/削除

仕事メモ

[ リスト | 詳細 ]

記事検索

全1ページ

[1]

今から見積もり作成ってどうよ

23:00のメールで、明日までに見積もり作成って・・

こーんな大雑把な仕様じゃ概算すらだせんじゃないか

予算１本で抑えて欲しいって言われてもなー

とりあえず終電は間に合いそうにない。

早く帰って水換えしたいのにーー

あきらめて会社から色々訪問しよう。。。。

お願いします。

プロジェクト名を全てProject1に統一するのはやめてください。

オブジェクトには適切な名前をつけてください。

関数名、変数名に全角文字（中国語は特に）は使わないでください。

少しでも良いのでコメントを書いてください。

ドキュメントを残してください。

意味のないグローバル変数ばかり作らないでください。

コピペ１０回繰り返すならループさせてください。

定数の切り替えだけで複数の実行ファイル作らないでください。

全く同じフォームを複数プロジェクトにコピーして使い回さないでください。

接続文字列とか出力先とかソースに直書きしないでください。

項目数３００とかのテーブル設計しないでください。

これで２０年飯食ってるから俺は正しいとかいわないでください。

いや、本気で。。。。

コメント（0）

トラックバック（0）

DataGridView + ComboBox力技

今日、後輩がDataGridViewのComboBoxが重いんですが、なんとかなりませんかと質問してきた。
見てみたらDataGridViewComboBoxColumnのItemが1000個くらいあるｗ

重い以前にオートフィルタも使えないのに1000個の中からいちいち選んでられるかと・・
画面設計から見直すべしと追い返しましたが、少し気になったので検索かけてみたら
結構同じような事を聞いてる人がいるみたいなのでVBで強引に書いてみた。

フォームにDataGridViewとComboBox貼り付けて、ComboBoxに適当なItem設定して

Private Sub dgv_CellBeginEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgv.CellBeginEdit
Dim dgv As DataGridView = CType(sender, DataGridView)
Dim rectValue As Rectangle
Dim cutOverflow As Boolean
rectValue = dgv.GetCellDisplayRectangle(dgv.CurrentCell.ColumnIndex, dgv.CurrentCell.RowIndex, cutOverflow)
Dim bPoint As Point = New Point(returnValue.X, returnValue.Y + dgv.Location.Y)
ComboBox1.Width = returnValue.Width
ComboBox1.Height = returnValue.Height
ComboBox1.Location = bPoint
ComboBox1.BringToFront()
End Sub

Private Sub ComboBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Leave
dgvHnbn.CurrentCell.Value = ComboBox1.Text
ComboBox1.SendToBack()
End Sub

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dgv.Rows.Add()
dgv.Rows.Add()
dgv.Rows.Add()
dgv.Dock = DockStyle.Fill
End Sub

Private Sub Form_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
If ActiveControl.Name = "ComboBox1" Then
dgv.Focus()
End If
End Sub

一見、動いてるっぽいですがComboBoxにフォーカスがあたっている状態で、フォームを変形とかされると見た目がおかしくなる。。
まあ、あまりにも実用的じゃないのでこれ以上はつっこまないでおこう。