Visual Basic

Option Explicit

Private Const OFFSET_X As Integer = 600
Private Const OFFSET_Y As Integer = 600
Private Const CARD_WIDTH As Integer = 1305
Private Const CARD_HEIGHT As Integer = 1425
Private Const COL_SPACE As Integer = 150
Private Const ROW_SPACE As Integer = 150

'---------------------------------------------------------------------------------------
' Initialise the Image1() control array when the Form is loaded.
' Has to be done somewhere and this seems sensible place.
'---------------------------------------------------------------------------------------
Private Sub Form_Load()
   ' Need to fill the Image() control array with bitmap pictures of cards
   ' Assume that we have 52 bitmaps - Card_1.bmp to Card_52.bmp.
   ' This makes it possible to fill the control array in a loop
   Dim left As Long
   Dim top As Long
   Dim fileroot As String
   Dim i As Integer
   Dim j As Integer
   Dim index As Integer
   
   fileroot = "C:\VB6_Progs\Cards\Card_"    'This is where I store the bitmaps
   SetImageZero (fileroot) 'Sets Image1(0) with dummy picture and makes it invisible
   
   For i = 0 To 12    'NOTE: Using 0-12 and 0-3 makes calculation of index simpler
      top = i * (CARD_HEIGHT + COL_SPACE) + OFFSET_Y
      For j = 0 To 3
         left = j * (CARD_WIDTH + ROW_SPACE) + OFFSET_X
         index = 4 * i + j + 1
         Load Image1(index)                 'Create the image control for the card
         Image1(index).left = left
         Image1(index).top = top
         Image1(index).Picture = LoadPicture(fileroot & index & ".bmp")  'Set picture for Image1(i)
         Image1(index).Visible = True
      Next j
   Next i

End Sub

'--------------------------------------------------
' When the button is clicked, shuffle the cards
'--------------------------------------------------
Private Sub Start_Click()
   ShuffleCardNumbers
End Sub

'--------------------------------------------------------------
' Helper subroutines that can be called from anywhere as needed
'--------------------------------------------------------------
Private Sub ShuffleCardNumbers()
   ' This shuffles the card image pictures
   Dim swap As Integer
   Dim posn1 As Integer
   Dim posn2 As Integer

   Randomize
   For swap = 0 To 100
      ' Get two random positions
      posn1 = Int((52 * Rnd) + 1)
      posn2 = Int((52 * Rnd) + 1)

      ' Swap pictures at these positions
      If (posn1 <> posn2) Then
         Image1(0).Picture = Image1(posn1).Picture
         Image1(posn1).Picture = Image1(posn2).Picture
         Image1(posn2).Picture = Image1(0).Picture
      End If
   Next swap
   Form1.Refresh
End Sub

Private Sub SetImageZero(ByVal fileroot As String)
   Image1(0).Picture = LoadPicture(fileroot + "0.bmp")
   Image1(0).Width = CARD_WIDTH
   Image1(0).Height = CARD_HEIGHT
   Image1(0).left = 0
   Image1(0).top = 0
   Image1(0).Visible = False
End Sub

If AcctName.HasRows Then
AcctName.Read()  <-- this will only read one row

End If

If AcctName.HasRows Then
While AcctName.Read()  <-- this way it keeps reading (one row at a time) until it finds no more rows.
TxtGLmstrGLacc1.Text = AcctName.Item("gl-acc1").ToString   'however this (as you wrote it) will simply replace the result with each read, so it would look like you're only getting the last row
TxtGLmstrGLacc2.Text &= AcctName.Item("gl-acc2").ToString  'try something like this instead; it will add the result of each consecutive read.
TxtGLmstrGLacc3.Text &= AcctName.Item("gl-acc3").ToString
TxtGLmstrGLacc4.Text &= AcctName.Item("gl-acc4").ToString
End While
End If

Private Function RoundOff(ByVal num As Double, ByVal decimalPlaces As Integer) As Double
    Dim multiplier As Double = Math.Pow(10, decimalPlaces)
    Dim result As Double = Math.Truncate(num * multiplier) / multiplier
    Return result
End Function

Using SqlConn As New SqlConnection(ConnectString), cmd As New SqlCommand("ALTER TABLE [dbo].[Setup] ADD [TestCol] [nchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL", SqlConn)
    SqlConn.Open()
    cmd.ExecuteNonQuery()
    'populate your datatable after the column change
    SqlConn.Close()
End Using

Dave Kreskowiak wrote:

Keep in mind that the dictionary would not be readable by outside threads until the entire for loop was finished though.