home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / wtest / micrsoft / vbasic4 / vb4-1.cab / demo.mdb / ControlTemplateMethods.json < prev    next >
Encoding:
JavaScript Object Notation  |  1995-08-15  |  5.6 KB
  1. {
  2.     "schema": {
  3.         "ID": "Long Integer",
  4.         "Parent": "Long Integer NOT NULL",
  5.         "Name": "Text (40) NOT NULL",
  6.         "Comment": "Text (255)",
  7.         "MethodCode": "Memo/Hyperlink (255) NOT NULL"
  8.     },
  9.     "data": [
  10.         {
  11.             "ID": 1,
  12.             "Parent": 2,
  13.             "Name": "cmdCancel_Click",
  14.             "Comment": "Part of collection 'Collection One'",
  15.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  16.         },
  17.         {
  18.             "ID": 2,
  19.             "Parent": 3,
  20.             "Name": "cmdOK_Click",
  21.             "Comment": "Part of collection 'Collection One'",
  22.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  23.         },
  24.         {
  25.             "ID": 3,
  26.             "Parent": 7,
  27.             "Name": "cmdOK_Click",
  28.             "Comment": "captured 5/24/95",
  29.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  30.         },
  31.         {
  32.             "ID": 4,
  33.             "Parent": 8,
  34.             "Name": "cmdCancel_Click",
  35.             "Comment": "captured 5/24/95",
  36.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  37.         },
  38.         {
  39.             "ID": 5,
  40.             "Parent": 15,
  41.             "Name": "cmdCancel_Click",
  42.             "Comment": "captured 5/24/95",
  43.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  44.         },
  45.         {
  46.             "ID": 7,
  47.             "Parent": 27,
  48.             "Name": "cmdOK_Click",
  49.             "Comment": "member of collection 'Mega Collection'",
  50.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  51.         },
  52.         {
  53.             "ID": 8,
  54.             "Parent": 28,
  55.             "Name": "cmdCancel_Click",
  56.             "Comment": "member of collection 'Mega Collection'",
  57.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  58.         },
  59.         {
  60.             "ID": 9,
  61.             "Parent": 30,
  62.             "Name": "cmdCancel_Click",
  63.             "Comment": "member of collection 'Mega Collection'",
  64.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  65.         },
  66.         {
  67.             "ID": 10,
  68.             "Parent": 31,
  69.             "Name": "cmdOK_Click",
  70.             "Comment": "member of collection 'Mega Collection'",
  71.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  72.         },
  73.         {
  74.             "ID": 11,
  75.             "Parent": 35,
  76.             "Name": "cmdCancel_Click",
  77.             "Comment": "member of collection 'Mega Collection'",
  78.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  79.         },
  80.         {
  81.             "ID": 12,
  82.             "Parent": 36,
  83.             "Name": "cmdOK_Click",
  84.             "Comment": "member of collection 'Mega Collection'",
  85.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  86.         },
  87.         {
  88.             "ID": 13,
  89.             "Parent": 38,
  90.             "Name": "cmdCancel_Click",
  91.             "Comment": "member of collection 'Dave Collection'",
  92.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  93.         },
  94.         {
  95.             "ID": 14,
  96.             "Parent": 39,
  97.             "Name": "cmdOK_Click",
  98.             "Comment": "member of collection 'Dave Collection'",
  99.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  100.         },
  101.         {
  102.             "ID": 15,
  103.             "Parent": 43,
  104.             "Name": "cmdOK_Click",
  105.             "Comment": "member of collection 'Dave Collection'",
  106.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  107.         },
  108.         {
  109.             "ID": 16,
  110.             "Parent": 44,
  111.             "Name": "cmdCancel_Click",
  112.             "Comment": "member of collection 'cmdCancel'",
  113.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  114.         },
  115.         {
  116.             "ID": 17,
  117.             "Parent": 45,
  118.             "Name": "cmdOK_Click",
  119.             "Comment": "member of collection 'cmdCancel'",
  120.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  121.         },
  122.         {
  123.             "ID": 18,
  124.             "Parent": 46,
  125.             "Name": "txtSearch_Change",
  126.             "Comment": "member of collection 'New Collection'",
  127.             "MethodCode": "Private Sub txtSearch_Change()\r\n    Dim Index As Integer\r\n    \r\n    Index = ListFindString(txtSearch.Text, lstPick)\r\n    cmdOK.Enabled = (Index >= 0 And Len(txtSearch) > 0)\r\n\r\nEnd Sub"
  128.         },
  129.         {
  130.             "ID": 19,
  131.             "Parent": 46,
  132.             "Name": "txtSearch_KeyDown",
  133.             "Comment": "member of collection 'New Collection'",
  134.             "MethodCode": "Private Sub txtSearch_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    Dim Index As Integer\r\n\r\n    '-------------------------------------------------------------------\r\n    'if the user presses an arrow while in the search TextBox, switch\r\n    'them to the list so they can continue selecting with arrow keys.\r\n    '-------------------------------------------------------------------\r\n    Select Case KeyCode\r\n        Case vbKeyUp\r\n            Index = lstPick.ListIndex - 1\r\n            If (Index > 0) Then lstPick.ListIndex = Index\r\n        Case vbKeyDown\r\n            Index = lstPick.ListIndex + 1\r\n            If (Index < lstPick.ListCount - 1) Then lstPick.ListIndex = Index\r\n        Case Else\r\n            Exit Sub\r\n    End Select\r\n    \r\n    lstPick.SetFocus\r\n\r\nEnd Sub"
  135.         },
  136.         {
  137.             "ID": 20,
  138.             "Parent": 48,
  139.             "Name": "cmdOK_Click",
  140.             "Comment": "member of collection 'New Collection'",
  141.             "MethodCode": "Private Sub cmdOK_Click()\r\n    \r\n    PressedOK = True\r\n    SelectedItem = lstPick.List(lstPick.ListIndex)\r\n    Unload Me\r\n    \r\nEnd Sub"
  142.         },
  143.         {
  144.             "ID": 21,
  145.             "Parent": 49,
  146.             "Name": "cmdCancel_Click",
  147.             "Comment": "member of collection 'New Collection'",
  148.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    \r\n    SelectedItem = \"\"\r\n    PressedOK = False\r\n    Unload Me\r\n\r\nEnd Sub"
  149.         },
  150.         {
  151.             "ID": 22,
  152.             "Parent": 50,
  153.             "Name": "lstPick_Click",
  154.             "Comment": "member of collection 'New Collection'",
  155.             "MethodCode": "Private Sub lstPick_Click()\r\n    \r\n    'if something was selected in the list show it also in the search box --\r\n    txtSearch.Text = lstPick.List(lstPick.ListIndex)\r\n    cmdOK.Enabled = True\r\n\r\nEnd Sub"
  156.         },
  157.         {
  158.             "ID": 23,
  159.             "Parent": 50,
  160.             "Name": "lstPick_DblClick",
  161.             "Comment": "member of collection 'New Collection'",
  162.             "MethodCode": "Private Sub lstPick_DblClick()\r\n    \r\n    cmdOK_Click\r\n\r\nEnd Sub"
  163.         },
  164.         {
  165.             "ID": 24,
  166.             "Parent": 54,
  167.             "Name": "cmdCancel_Click",
  168.             "Comment": "member of collection 'aaaa'",
  169.             "MethodCode": "Private Sub cmdCancel_Click()\r\n    PressedOK = False\r\n    Unload Me\r\nEnd Sub"
  170.         },
  171.         {
  172.             "ID": 25,
  173.             "Parent": 55,
  174.             "Name": "cmdOK_Click",
  175.             "Comment": "member of collection 'aaaa'",
  176.             "MethodCode": "Private Sub cmdOK_Click()\r\n    PressedOK = True\r\n    Unload Me\r\nEnd Sub"
  177.         }
  178.     ]
  179. }