Hi.
I had this code that was long and probably made the program run slower. And also took up lots of disk space.

I recently came up with another code that makes me wonder if it gives the same effect. What do you think?

New code:

VB Code:
  1. Public Function ReLoadGrid(MyFrm As Form, MyFlex As MSHFlexGrid, MyTab As SSTab)

  2. Dim Cntr As Integer, Tmp As Integer

  3.     For Cntr = 65 To 90

  4.         If Left$(MyFrm.txtFName.Text, 1) = Chr(Cntr) Then

  5.             MyTab.Tab = Tmp

  6.             LoadGrid MyTab.Caption, MyFlex

  7.             Tmp = Tmp + 1

  8.         End If

  9.     Next Cntr

  10. End Function

Old code:
VB Code:
  1. Public Function ReLoadGrid2(MyFrm As Form, MyFlex As MSHFlexGrid, MyTab As SSTab)

  2.     With MyFrm

  3.         Select Case Left$(.txtFName.Text, 1)

  4.             Case Chr(65)

  5.                 MyTab.Tab = 0

  6.                 LoadGrid MyTab.Caption, MyFlex

  7.             Case Chr(66)

  8.                 MyTab.Tab = 1

  9.                 LoadGrid MyTab.Caption, MyFlex

  10.             Case Chr(67)

  11.                 MyTab.Tab = 2

  12.                 LoadGrid MyTab.Caption, MyFlex

  13.             Case Chr(68)

  14.                 MyTab.Tab = 3

  15.                 LoadGrid MyTab.Caption, MyFlex

  16.             Case Chr(69)

  17.                 MyTab.Tab = 4

  18.                 LoadGrid MyTab.Caption, MyFlex

  19.             Case Chr(70)

  20.                 MyTab.Tab = 5

  21.                 LoadGrid MyTab.Caption, MyFlex

  22.             Case Chr(71)

  23.                 MyTab.Tab = 6

  24.                 LoadGrid MyTab.Caption, MyFlex

  25.             Case Chr(72)

  26.                 MyTab.Tab = 7

  27.                 LoadGrid MyTab.Caption, MyFlex

  28.             Case Chr(73)

  29.                 MyTab.Tab = 8

  30.                 LoadGrid MyTab.Caption, MyFlex

  31.             Case Chr(74)

  32.                 MyTab.Tab = 9

  33.                 LoadGrid MyTab.Caption, MyFlex

  34.             Case Chr(75)

  35.                 MyTab.Tab = 10

  36.                 LoadGrid MyTab.Caption, MyFlex

  37.             Case Chr(76)

  38.                 MyTab.Tab = 11

  39.                 LoadGrid MyTab.Caption, MyFlex

  40.             Case Chr(77)

  41.                 MyTab.Tab = 12

  42.                 LoadGrid MyTab.Caption, MyFlex

  43.             Case Chr(78)

  44.                 MyTab.Tab = 13

  45.                 LoadGrid MyTab.Caption, MyFlex

  46.             Case Chr(79)

  47.                 MyTab.Tab = 14

  48.                 LoadGrid MyTab.Caption, MyFlex

  49.             Case Chr(80)

  50.                 MyTab.Tab = 15

  51.                 LoadGrid MyTab.Caption, MyFlex

  52.             Case Chr(81)

  53.                 MyTab.Tab = 16

  54.                 LoadGrid MyTab.Caption, MyFlex

  55.             Case Chr(82)

  56.                 MyTab.Tab = 17

  57.                 LoadGrid MyTab.Caption, MyFlex

  58.             Case Chr(83)

  59.                 MyTab.Tab = 18

  60.                 LoadGrid MyTab.Caption, MyFlex

  61.             Case Chr(84)

  62.                 MyTab.Tab = 19

  63.                 LoadGrid MyTab.Caption, MyFlex

  64.             Case Chr(85)

  65.                 MyTab.Tab = 20

  66.                 LoadGrid MyTab.Caption, MyFlex

  67.             Case Chr(86)

  68.                 MyTab.Tab = 21

  69.                 LoadGrid MyTab.Caption, MyFlex

  70.             Case Chr(87)

  71.                 MyTab.Tab = 22

  72.                 LoadGrid MyTab.Caption, MyFlex

  73.             Case Chr(88)

  74.                 MyTab.Tab = 23

  75.                 LoadGrid MyTab.Caption, MyFlex

  76.             Case Chr(89)

  77.                 MyTab.Tab = 24

  78.                 LoadGrid MyTab.Caption, MyFlex

  79.             Case Chr(90)

  80.                 MyTab.Tab = 25

  81.                 LoadGrid MyTab.Caption, MyFlex

  82.         End Select

  83.     End With

  84. End Function