Advertisement
Advertisement
| 07.18.2008 at 10:53AM PDT, ID: 23577631 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
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: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: |
Option Explicit On
Public Class frmMain
Dim intCurrentRow As Integer = 0
Dim intCurrentColumn As Integer = 0
Delegate Sub SetColumnIndex(ByVal i As Integer)
Private Sub Create_Grid_Column()
Dim dgvItemCode As New DataGridViewTextBoxColumn
Add_Column("ItemCode", "Code", 0, dgvItemCode, DataGridView1)
Dim dgvItemName As New DataGridViewTextBoxColumn
Add_Column("ItemName", "Name", 1, dgvItemName, DataGridView1)
Dim dgvItemQty As New DataGridViewTextBoxColumn
Add_Column("ItemQty", "Qty", 2, dgvItemQty, DataGridView1)
End Sub
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.StartPosition = FormStartPosition.CenterScreen
With DataGridView1
.EditMode = DataGridViewEditMode.EditProgrammatically
.AllowUserToAddRows = False
End With
Create_Grid_Column()
Add_Row(DataGridView1)
Add_Row(DataGridView1)
End Sub
Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
With DataGridView1
If e.RowIndex <> intCurrentRow Then
intCurrentColumn += 1
Dim method As New SetColumnIndex(AddressOf Grid_Navigation)
Me.DataGridView1.BeginInvoke(method, intCurrentRow)
End If
.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.FromArgb(255, 128, 0)
End With
End Sub
Private Sub Grid_Navigation(ByVal RowIndex As Integer)
With DataGridView1
If .CurrentCell.ColumnIndex < .Columns.Count - 1 Then
.CurrentCell = DataGridView1.Rows(RowIndex).Cells(intCurrentColumn)
Else
intCurrentRow += 1
.CurrentCell = DataGridView1.Rows(intCurrentRow).Cells(0)
End If
.BeginEdit(True)
End With
End Sub
Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
With DataGridView1
.BeginEdit(True)
End With
End Sub
Private Sub DataGridView1_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave
With DataGridView1
.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.White
End With
End Sub
Public Sub Add_Column(ByVal strColumnName As String, _
ByVal strHeaderName As String, _
ByVal intDisplayIndex As Integer, _
ByVal dgvTextColumn As DataGridViewTextBoxColumn, _
ByVal dgvName As DataGridView)
With dgvName
dgvTextColumn.DisplayIndex = intDisplayIndex
dgvTextColumn.HeaderText = strHeaderName
dgvTextColumn.DataPropertyName = strColumnName
dgvTextColumn.Name = strColumnName
.Columns.Add(dgvTextColumn)
End With
End Sub
Public Sub Add_Row(ByVal dgvName As DataGridView)
With dgvName
.Rows.Add()
End With
End Sub
End Class
|
