home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pc3270sa.zip / vbdde / fgsyssyi.frm < prev    next >
Text File  |  2002-02-28  |  6KB  |  188 lines
  1. VERSION 4.00
  2. Begin VB.Form FormGetSysSysItems 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Get System SysItems"
  5.    ClientHeight    =   2652
  6.    ClientLeft      =   4344
  7.    ClientTop       =   3624
  8.    ClientWidth     =   2760
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   7.8
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   2976
  20.    Left            =   4296
  21.    LinkMode        =   1  'Source
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   2652
  26.    ScaleWidth      =   2760
  27.    ShowInTaskbar   =   0   'False
  28.    Top             =   3348
  29.    Width           =   2856
  30.    Begin VB.TextBox SysItemsDataText 
  31.       BackColor       =   &H00C0FFFF&
  32.       ForeColor       =   &H00FF0000&
  33.       Height          =   372
  34.       Left            =   2040
  35.       MultiLine       =   -1  'True
  36.       TabIndex        =   1
  37.       TabStop         =   0   'False
  38.       Top             =   2160
  39.       Visible         =   0   'False
  40.       Width           =   372
  41.    End
  42.    Begin VB.CommandButton ExitDlg 
  43.       Cancel          =   -1  'True
  44.       Caption         =   "&OK"
  45.       Default         =   -1  'True
  46.       Height          =   372
  47.       Left            =   840
  48.       TabIndex        =   0
  49.       Top             =   2160
  50.       Width           =   972
  51.    End
  52.    Begin VB.Frame Frame1 
  53.       Caption         =   "SysItems"
  54.       Height          =   1932
  55.       Left            =   600
  56.       TabIndex        =   2
  57.       Top             =   120
  58.       Width           =   1452
  59.       Begin VB.ListBox SysItemsList 
  60.          BackColor       =   &H00C0FFFF&
  61.          ForeColor       =   &H00FF0000&
  62.          Height          =   1584
  63.          Left            =   120
  64.          Sorted          =   -1  'True
  65.          TabIndex        =   3
  66.          Top             =   240
  67.          Width           =   1212
  68.       End
  69.    End
  70. End
  71. Attribute VB_Name = "FormGetSysSysItems"
  72. Attribute VB_Creatable = False
  73. Attribute VB_Exposed = False
  74. Private Sub Execute_Click()
  75. On Error GoTo ErrHandler
  76.    FunctionComp = True
  77.  
  78.    rc = DoEvents()              'If you use VisualBasic V2.0, call
  79.                                 'DoEvents function each time before
  80.                                 'starting DDE conversation.
  81.    SysItemsDataText.LinkTimeout = -1
  82.    SysItemsDataText.LinkTopic = "IBM327032|System"
  83.    SysItemsDataText.LinkMode = COLD
  84.    SysItemsDataText.LinkItem = "SysItems"
  85.    SysItemsDataText.LinkRequest
  86.    SysItemsDataText.LinkMode = NONE
  87.    If FunctionComp = True Then
  88.       MsgBox MSG_FUNCTION_COMP, 64, MSG_SAMPLE_PROG
  89.       EndStatus$ = MSG_OK
  90.    Else
  91.       MsgBox MSG_DDE_ERROR, 48, MSG_SAMPLE_PROG
  92.       EndStatus$ = MSG_NG
  93.    End If
  94.    TempLogData$ = Time$ + ":Get System SysItems : " + EndStatus$ + Chr$(13) + Chr$(10) + Chr$(9)
  95.    TempLogData$ = TempLogData$ + MSG_APPLICATION + APPLICATION_NAME + """" + Chr$(13) + Chr$(10) + Chr$(9)
  96.    TempLogData$ = TempLogData$ + MSG_TOPIC + """System""" + Chr$(13) + Chr$(10) + Chr$(9)
  97.    TempLogData$ = TempLogData$ + MSG_ITEM + """SysItems""" + Chr$(13) + Chr$(10) + Chr$(9)
  98.    TempLogData$ = TempLogData$ + "Data =" + """" + SysItemsDataText.Text + """" + Chr$(13) + Chr$(10)
  99.    LogData$(LogEnd) = TempLogData$
  100.    UpdateLogPointer
  101.    Loged = True
  102.    Exit Sub
  103.  
  104. ErrHandler:
  105.    FunctionComp = False
  106.    Resume Next
  107. End Sub
  108.  
  109. Private Sub ExitDlg_Click()
  110.     Hide
  111. End Sub
  112.  
  113. Private Sub UpdateLogPointer()
  114.     LogEnd = LogEnd + 1
  115.     If LogEnd = MAXLOGNUM + 1 Then
  116.        LogEnd = 0
  117.     End If
  118.  
  119.     If LogTop = LogEnd Then
  120.        LogTop = LogTop + 1
  121.        If LogTop = MAXLOGNUM + 1 Then
  122.           LogTop = 0
  123.        End If
  124.     End If
  125. End Sub
  126.  
  127.  
  128. Private Sub GetSystemSysItems()
  129. On Error GoTo ErrHandler
  130.    FunctionComp = True
  131.  
  132.    rc = DoEvents()              'If you use VisualBasic V2.0, call
  133.                                 'DoEvents function each time before
  134.                                 'starting DDE conversation.
  135.    SysItemsDataText.LinkTimeout = -1
  136.    SysItemsDataText.LinkTopic = "IBM327032|System"
  137.    SysItemsDataText.LinkMode = COLD
  138.    SysItemsDataText.LinkItem = "SysItems"
  139.    SysItemsDataText.LinkRequest
  140.    SysItemsDataText.LinkMode = NONE
  141.    If FunctionComp = True Then
  142. '      MsgBox MSG_FUNCTION_COMP, 64, MSG_SAMPLE_PROG
  143.       EndStatus$ = MSG_OK
  144.    Else
  145.       MsgBox MSG_DDE_ERROR, 48, MSG_SAMPLE_PROG
  146.       EndStatus$ = MSG_NG
  147.    End If
  148.    TempLogData$ = Time$ + ":Get System SysItems : " + EndStatus$ + Chr$(13) + Chr$(10) + Chr$(9)
  149.    TempLogData$ = TempLogData$ + MSG_APPLICATION + APPLICATION_NAME + """" + Chr$(13) + Chr$(10) + Chr$(9)
  150.    TempLogData$ = TempLogData$ + MSG_TOPIC + """System""" + Chr$(13) + Chr$(10) + Chr$(9)
  151.    TempLogData$ = TempLogData$ + MSG_ITEM + """SysItems""" + Chr$(13) + Chr$(10) + Chr$(9)
  152.    TempLogData$ = TempLogData$ + "Data =" + """" + SysItemsDataText.Text + """" + Chr$(13) + Chr$(10)
  153.    LogData$(LogEnd) = TempLogData$
  154.    UpdateLogPointer
  155.    Loged = True
  156.    Exit Sub
  157.  
  158. ErrHandler:
  159.    FunctionComp = False
  160.    Resume Next
  161.  
  162. End Sub
  163.  
  164. Private Sub Form_Load()
  165.   GetSystemSysItems
  166. End Sub
  167.  
  168.  
  169. Private Sub SysItemsDataText_Change()
  170.    SysItemsList.Clear
  171.    
  172.    StartPos& = 1
  173.    Do While True
  174.       EndPos& = InStr(StartPos&, SysItemsDataText.Text, Chr$(9))
  175.       If EndPos& = 0 Then
  176.         Temp$ = LTrim$(RTrim$(Mid$(SysItemsDataText.Text, StartPos&)))
  177.         SysItemsList.AddItem Temp$
  178.         Exit Do
  179.       Else
  180.         Temp$ = LTrim$(RTrim$(Mid$(SysItemsDataText.Text, StartPos&, EndPos& - StartPos&)))
  181.           SysItemsList.AddItem Temp$
  182.       End If
  183.       StartPos& = EndPos& + 1
  184.    Loop
  185. End Sub
  186.  
  187.  
  188.