MERGE THE FLEX GRID ROWS IN VB 6.0

MERGE THE FLEX GRID ROWS IN VB 6.0

Dim i As Integer
With FX

.Rows = 2
.MergeCells = flexMergeFree
.MergeRow(0) = True
.MergeRow(1) = True
For i = 0 To 9
.MergeCol(i) = True
Next i

'*********************************************
.ROW = 0
.Col = 0
.Text = "Sl.No."
.ColWidth(0) = 350

.Col = 1
.Text = "Description"
.ColWidth(1) = 2925

.Col = 2
.Text = "Amount In"
.ColWidth(2) = 1050

.Col = 3
.Text = "Amount In"
.ColWidth(3) = 1050

.Col = 4
.Text = "Amount In"
.ColWidth(4) = 1050

.Col = 5
.Text = "Amount In"
.ColWidth(5) = 1050

.Col = 6
.Text = "Amount Out"
.ColWidth(6) = 1050

.Col = 7
.Text = "Amount Out"
.ColWidth(7) = 1050

.Col = 8
.Text = "Amount Out"
.ColWidth(8) = 1050

.Col = 9
.Text = "Amount Out"
.ColWidth(9) = 1050

'******************************************
.ROW = 1
.Col = 0
.Text = "Sl.No."
.ColWidth(0) = 350

.Col = 1
.Text = "Description"
.ColWidth(1) = 2925

.Col = 2
.Text = "Cash"
.ColWidth(2) = 1050

.Col = 3
.Text = "Credit Card"
.ColWidth(3) = 1050

.Col = 4
.Text = "Cheque"
.ColWidth(4) = 1050

.Col = 5
.Text = "Credit"
.ColWidth(5) = 1050

.Col = 6
.Text = "Cash"
.ColWidth(6) = 1050

.Col = 7
.Text = "Credit Card"
.ColWidth(7) = 1050

.Col = 8
.Text = "Cheque"
.ColWidth(8) = 1050

.Col = 9
.Text = "Credit"
.ColWidth(9) = 1050

For i = 0 To 9
.ROW = 0
.Col = i
.MergeCol(i) = True

.CellAlignment = 3
.CellFontBold = True

.ROW = 1
.Col = i
.CellAlignment = 3
.CellFontBold = True
Next i

End With

Convert the Number to String in VB 6.0

'****************' Main Function *'****************

Function SpellNumber(ByVal MyNumber) Dim Rupees, Paisa, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") 'Convert Paisa and set MyNumber to dollar amount If DecimalPlace > 0 Then Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupees Case "" Rupees = "No Rupees" Case "One" Rupees = "One Rupees" Case Else Rupees = Rupees & " Rupees" End Select Select Case Paisa Case "" Paisa = " and No Paisa" Case "One" Paisa = " and One Paisa" Case Else Paisa = " and " & Paisa & " Paisa" End Select SpellNumber = Rupees & PaisaEnd Function
'*******************************************'
Converts a number from 100-999 into text
'*******************************************
Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If 'Convert the tens and ones place If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = ResultEnd Function
'*********************************************'
Converts a number from 10 to 99 into text.
'*********************************************
Function GetTens(TensText) Dim Result As String Result = "" 'null out the temporary function value If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19 Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99 Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) 'Retrieve ones place End If GetTens = Result End Function

'*******************************************'

Converts a number from 1 to 9 into text.

*'*******************************************

Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End SelectEnd Function