Visual Basic

''' <summary>
''' Extracts the ASCII characters out of string "sBuf" and returns them
''' as a zero based array of short integers. Each short holds 2 characters.
''' </summary>
''' <param name="sBuf"> The string to be converted to a short int array. </param>
''' <param name="iCharFirst"> Zero based index to 1st char to extract from "sBuf". </param>
''' <param name="iCharLast"> Zero based index to last char to extract from "sBuf". Must be >= iCharFirst. </param>
''' <returns> Returns short int array containing ASCII codes. </returns>
Public Shared Function StrToShorts(ByVal sBuf As String, ByVal iCharFirst As Integer, _
                                   ByVal iCharLast As Integer) As Short()
   Dim siArray() As Short
   Dim iStrLen As Integer
   Dim iIndex As Integer
   Dim siValue As Short

   ' Validate arguments. (Okay if string is empty.)
   If ((sBuf Is Nothing) OrElse (iCharFirst > iCharLast)) Then
      ' Invalid arguments. Return a NULLed array.
      ReDim siArray(0)
      siArray(0) = 0
      Return siArray
   End If

   ' Convert given string into an array of ASCII integer values.
   iStrLen = sBuf.Length()
   ReDim siArray((iCharLast - iCharFirst) \ 2)
   For iIndex = 0 To (iCharLast - iCharFirst) Step 1
      ' Get next ASCII character in string.
      If ((iIndex + iCharFirst) < iStrLen) Then
         siValue = CType(Asc(sBuf.Chars(iIndex + iCharFirst)) And &HFF, Short)
      Else
         siValue = 0             ' Exceeded string length. Set NULL.
      End If

      ' Push character's ASCII value into 2 byte integer array.
      If ((iIndex Mod 2) = 0) Then
         siArray(iIndex \ 2) = siValue << 8
      Else
         siArray(iIndex \ 2) = siArray(iIndex \ 2) Or siValue
      End If
   Next
   Return siArray
End Function

''' <summary> Combines two 2 byte integers into 1 long integer. </summary>
''' <param name="siHigh"> Will be the returned int's high word. </param>
''' <param name="siLow"> Will be the returned int's low word. </param>
''' <returns> Returns a 4 byte integer made up of siHigh and siLow. </returns>
Public Shared Function ShortsToInt(ByVal siHigh As Short, ByVal siLow As Short) As Integer
   Dim bytesHigh() As Byte
   Dim bytesLow() As Byte

   ' Get high bytes.
   bytesHigh = System.BitConverter.GetBytes(siHigh)
   If (bytesHigh Is Nothing) Then Return 0
   If (bytesHigh.Length < 2) Then Return 0

   ' Get low bytes.
   bytesLow = System.BitConverter.GetBytes(siLow)
   If (bytesLow Is Nothing) Then Return 0
   If (bytesLow.Length < 2) Then Return 0

   ' Combine to form a 4 byte integer.
   Return System.BitConverter.ToInt32(New Byte() {bytesLow(0), bytesLow(1), _
                                                  bytesHigh(0), bytesHigh(1)}, 0)
End Function

''' <summary>
''' Converts an integer into a float without changing bits.
''' </summary>
''' <param name="iValue"> Integer value to be converted to float. </param>
''' <returns> Returns a single precision float representation of given value. </returns>
Public Shared Function IntToFloat(ByVal iValue As Integer) As Single
   Dim bytes() As Byte
   '
   bytes = System.BitConverter.GetBytes(iValue)
   If (bytes Is Nothing) Then Return 0
   Return System.BitConverter.ToSingle(bytes, 0)
End Function

<br />
 For Each ct As Control In Me.Controls<br />
         MessageBox.Show(ct.GetType.ToString)         <br />
      Next

For Each ct As Control In Me.Controls<br />
         MessageBox.Show(ct.GetType.ToString)<br />
         ct.BackColor = Color.AntiqueWhite<br />
         If ct.GetType.Name.Equals("TextBox") Then<br />
            Dim tb As TextBox 'here you can use SSTab or whatever <br />
            tb = ct<br />
            tb.BackColor = Color.Blue<br />
         End If<br />
      Next

Public Class Form2 : Inherits Form
   Private selectedItems() As Object
   '
   Private Sub okButton_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles okButton.Click
      ' Copy selected items to array member variable.
      ' This array is returned on GetSelectedItems().
      ReDim selectedItems(myListBox.Items.Count - 1)
      myListBox.Items.CopyTo(selectedItems, 0)
   End Sub
   '
   Public Function GetSelectedItems() As Object()
      Return selectedItems
   End Function
End Class

Dim myForm As New Form2
Dim selectedItems() As Object

myForm.ShowDialog()
selectedItems = myForm.GetSelectedItems()

Mohammed Amine wrote:

no sql query
you have to use the dataset & the table in the dataset you have that record in