'--------------------------... 'text box class '--------------------------... Option Explicit On Option Strict On Public Class TextBox2 Inherits System.Windows.Forms.TextBox Private Sub txtBarcode_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEve... Handles MyBase.KeyUp '--------------------------... 'allow control-v, control-c, control-x, control-a '--------------------------... ......
Private Sub dgCompounds_CellPainting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGr... Handles dgCompounds.CellPainting Try '--------------------------... 'if POS = <blank> , hide 'Punch' checkbox in cell '--------------------------... If e.RowIndex > -1 And e.ColumnIndex > -1 Then If Me.dgCompounds.Columns(e.Co... ......