home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / CODLBIO / CODELIB.MDB / libs.json
Encoding:
JavaScript Object Notation  |  1994-05-31  |  1.3 KB
  1. {
  2.     "schema": {
  3.         "ID": "Text (25)",
  4.         "Desc": "Text (50)",
  5.         "data": "Memo/Hyperlink (255)"
  6.     },
  7.     "data": [
  8.         {
  9.             "ID": "centerform()",
  10.             "Desc": "centers a form in vb",
  11.             "data": "Sub CenterForm (Frm As Form)\r\n'-- Places a form in the middle of the screen\r\n    \r\n    Frm.Left = (Screen.Width - Frm.Width) \\ 2\r\n    Frm.Top = (Screen.Height - Frm.Height) \\ 2\r\n\r\nEnd Sub\r\n"
  12.         },
  13.         {
  14.             "ID": "Restartwin()",
  15.             "Desc": "Restarts windows",
  16.             "data": "REM ** How To Restart Windows **\r\nREM ** Place API below in MODULE **\r\nREM ** (Paul Smith) **\r\nDeclare Function ExitWindows% Lib \"User\" (ByVal dwReserved&, ByVal wReturnCode%)\r\nx% = ExitWindows(66, 66)"
  17.         },
  18.         {
  19.             "ID": "Shell to dos",
  20.             "Desc": "Shell to dos from vb",
  21.             "data": "Function ToShellToDos (commandline As String) As Long\r\nRem ** API to discover if a program is executing By M.Brewerton 1993**\r\nRem ** Declare Function GetModuleUsage% Lib \"Kernel\" (ByVal hProgram%) **\r\nRem ** Routine To Shell To Dos And Stay In This Routine Until Task Is Complete **\r\n  s% = Shell(commandline$)        'shells out with the command in commandline$\r\n    While GetModuleUsage(s%)      'checks to see if finished\r\n      x% = DoEvents()                     'allows it to continue if unfinished.\r\n    Wend\r\n  ToShellToDos = s%               'returns task ID or error code from function.\r\nEnd Function"
  22.         }
  23.     ]
  24. }