frmGroupStatus.frm
上传用户:fuyouda
上传日期:2015-08-19
资源大小:6876k
文件大小:5k
源码类别:

家庭/个人应用

开发平台:

Visual C++

  1. VERSION 5.00
  2. Begin VB.Form frmGroupStatus 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Group Status"
  5.    ClientHeight    =   2130
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   5505
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2130
  13.    ScaleWidth      =   5505
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CheckBox Check1 
  17.       Height          =   255
  18.       Left            =   1320
  19.       TabIndex        =   6
  20.       Top             =   1680
  21.       Width           =   735
  22.    End
  23.    Begin VB.TextBox Text4 
  24.       Height          =   285
  25.       Left            =   1320
  26.       TabIndex        =   5
  27.       Top             =   1320
  28.       Width           =   1455
  29.    End
  30.    Begin VB.TextBox Text3 
  31.       Height          =   285
  32.       Left            =   1320
  33.       TabIndex        =   4
  34.       Top             =   960
  35.       Width           =   2055
  36.    End
  37.    Begin VB.TextBox Text2 
  38.       Height          =   285
  39.       Left            =   1320
  40.       TabIndex        =   3
  41.       Top             =   600
  42.       Width           =   2055
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   285
  46.       Left            =   1320
  47.       TabIndex        =   2
  48.       Top             =   240
  49.       Width           =   2535
  50.    End
  51.    Begin VB.CommandButton CancelButton 
  52.       Cancel          =   -1  'True
  53.       Caption         =   "Cancel"
  54.       Height          =   375
  55.       Left            =   4080
  56.       TabIndex        =   1
  57.       Top             =   600
  58.       Width           =   1215
  59.    End
  60.    Begin VB.CommandButton OKButton 
  61.       Caption         =   "OK"
  62.       Default         =   -1  'True
  63.       Height          =   375
  64.       Left            =   4080
  65.       TabIndex        =   0
  66.       Top             =   120
  67.       Width           =   1215
  68.    End
  69.    Begin VB.Label Label1 
  70.       Caption         =   "ms"
  71.       Height          =   255
  72.       Index           =   6
  73.       Left            =   3480
  74.       TabIndex        =   13
  75.       Top             =   600
  76.       Width           =   855
  77.    End
  78.    Begin VB.Label Label1 
  79.       Caption         =   "% FS"
  80.       Height          =   255
  81.       Index           =   5
  82.       Left            =   3480
  83.       TabIndex        =   12
  84.       Top             =   960
  85.       Width           =   855
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Active"
  89.       Height          =   255
  90.       Index           =   4
  91.       Left            =   240
  92.       TabIndex        =   11
  93.       Top             =   1680
  94.       Width           =   855
  95.    End
  96.    Begin VB.Label Label1 
  97.       Caption         =   "TimeBias"
  98.       Height          =   255
  99.       Index           =   3
  100.       Left            =   240
  101.       TabIndex        =   10
  102.       Top             =   1320
  103.       Width           =   855
  104.    End
  105.    Begin VB.Label Label1 
  106.       Caption         =   "DeadBand"
  107.       Height          =   255
  108.       Index           =   2
  109.       Left            =   240
  110.       TabIndex        =   9
  111.       Top             =   960
  112.       Width           =   855
  113.    End
  114.    Begin VB.Label Label1 
  115.       Caption         =   "Update Rate"
  116.       Height          =   255
  117.       Index           =   1
  118.       Left            =   240
  119.       TabIndex        =   8
  120.       Top             =   600
  121.       Width           =   1095
  122.    End
  123.    Begin VB.Label Label1 
  124.       Caption         =   "Name"
  125.       Height          =   255
  126.       Index           =   0
  127.       Left            =   240
  128.       TabIndex        =   7
  129.       Top             =   240
  130.       Width           =   855
  131.    End
  132. End
  133. Attribute VB_Name = "frmGroupStatus"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = False
  136. Attribute VB_PredeclaredId = True
  137. Attribute VB_Exposed = False
  138. Option Explicit
  139. Public mbReturn As Boolean
  140. Public UpdateRate, TimeBias, LCID, Active As Long
  141. Public DeadBand As Single
  142. Public frmGroupName As String
  143. Private Sub CancelButton_Click()
  144.     Unload Me
  145. End Sub
  146. Private Sub Form_Load()
  147.     mbReturn = False
  148.     GetStat
  149. End Sub
  150. Private Sub GetStat()
  151.     If ASDAC_GetGroupStat(ServerHandle, GroupHandle, UpdateRate, Active, TimeBias, DeadBand, LCID) Then
  152.         Text1.Text = frmGroupName
  153.         If Active = 0 Then Check1.Value = 0 Else Check1.Value = 1
  154.         Text2.Text = CStr(UpdateRate)
  155.         Text3.Text = CStr(DeadBand)
  156.         Text4.Text = CStr(TimeBias)
  157.     End If
  158. End Sub
  159. Private Sub OKButton_Click()
  160.     mbReturn = True
  161.     frmGroupName = Text1.Text
  162.     UpdateRate = CLng(Text2.Text)
  163.     TimeBias = CLng(Text4.Text)
  164.     LCID = 0
  165.     DeadBand = 0
  166.     If Check1.Value = 0 Then Active = 0 Else Active = 1
  167.     Unload Me
  168. End Sub