.NET Programming Hints

How to track the check box of the data grid view

vb2008help — Sun, 26 Apr 2009 15:58:31 +0000

Dim Y As DataGridViewCheckBoxCell

Dim Count As Decimal = 0

For Each DGVRow As DataGridViewRow In DataGridView1.Rows

Y = CType(DGVRow.Cells(“Chk”), DataGridViewCheckBoxCell)

If Y.Value = True Then

Count = Count + 1

End If

MsgBox(Count & ” items checked.”)

How to dictinct record from the data table by data view

vb2008help — Sun, 26 Apr 2009 15:54:00 +0000

Dim CustTable As New DataTable

Dim DTable As New DataTable

CustTable = Return_CustomerTable()

Dim DView As New DataView(CustTable)

DView.Sort = “Name”

DTable = DTV.ToTable()

How to track the checkbox status of the check list box

vb2008help — Sun, 26 Apr 2009 15:48:42 +0000

Dim Count As Decimal = 0

If ChkCC.CheckedItems.Count > 0 Then

For Count = 0 To ChkCC.Items.Count – 1

If ChkCC.GetItemChecked(Count) = True Then

Count = Count + 1

End If

MsgBox(Count & ” items checked.”)

How to dictinct record from the data table by data view

vb2008help — Sun, 26 Apr 2009 15:46:03 +0000

Dim Col(0) As String

Col(0) = “CustName”

Dim CustTable As New DataTable

Dim DTable As New DataTable

CustTable = Return_CustomerTable()

Dim DTV As New DataView(CustTable)

DTable = DTV.ToTable(True, Col)

How to Open image from byte array

vb2008help — Sun, 26 Apr 2009 15:42:24 +0000

Dim Gimage As Byte()

Dim TempPath As String

Dim FileName As String = “Image.jpg”

Gimage = Return_ImageByte()

TempPath = System.IO.Path.GetTempPath()

System.IO.File.WriteAllBytes(TempPath & FileName, Gimage)

System.Diagnostics.Process.Start(TempPath & FileName)

How to Read image from open file dialog in byte array

vb2008help — Sun, 26 Apr 2009 15:39:06 +0000

Dim GImage As Byte()

ReDim GImage(OpenFileDialog1.OpenFile.Length)

OpenFileDialog1.OpenFile.Read(GImage, 0, GImage.Length)

How to Show image in picture box from the byte array

vb2008help — Sun, 26 Apr 2009 14:59:09 +0000

Dim MStream As IO.MemoryStream

Dim GImage As Byte()

GImage = GetImageByte()

MStream = New System.IO.MemoryStream(GImage)

PictureBox1.Image = Image.FromStream(MStream)

How to Allow only numeric value in the text box

vb2008help — Sun, 26 Apr 2009 14:02:03 +0000

Private Sub Txtopening_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtopening.KeyPress

If Asc(e.KeyChar) > 47 And Asc(e.KeyChar) < 58 Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 46 Then

If Txtopening.Text.Contains(“.”) Then

If Asc(e.KeyChar) = 46 Then

e.Handled = True

End If

Else

e.Handled = False

End If

Else

e.Handled = True

End If

End Sub

How To bind the table with the combo box

vb2008help — Sun, 26 Apr 2009 13:25:26 +0000

Dim DTable As New DataTable

DTable = ReturnCustTable()

If DTable.Rows.Count > 0 Then

CmbBrand.DataSource = DTable

CmbBrand.ValueMember = DTable.Columns(“CustID”).ColumnName

CmbBrand.DisplayMember = DTable.Columns(“CustName”).ColumnName

End If

How Check all check box of list view on click Select all Check box

vb2008help — Sun, 26 Apr 2009 13:21:09 +0000

Private Sub ChkAll_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkAll.CheckedChanged

If ChkAll.CheckState = CheckState.Checked Then

For Each X As ListViewItem In ListView1.Items

X.Checked = True

Else

For Each X As ListViewItem In ListView1.Items

X.Checked = False

End If

End Sub