home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / GETVALUE.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-11-16  |  1.1 KB  |  35 lines
  1. Attribute VB_Name = "GetValue"
  2. Global gfGetValueGo As Integer
  3. Global gnGetValueValue As Integer
  4.  
  5. Sub GetValueGetUserSelections(fUserGo As Integer, nValue%, fChecked As Integer)
  6. fUserGo = gfGetValueGo
  7. nValue = gnGetValueValue
  8. fChecked = False
  9. If GetValueFrm.Resize_Horz.Enabled = True Then
  10.   If GetValueFrm.Resize_Horz.Value = 1 Then
  11.     fChecked = True
  12.   Else
  13.     fChecked = False
  14.   End If
  15. End If
  16. End Sub
  17.  
  18. Sub GetValueInitTheForm(Title$, UnitType$, UnitMax%, UnitMin%, UnitInit%, LargeStep%, SmallStep%, ResizeHorz As Integer)
  19. GetValueFrm.Caption = Title
  20. GetValueFrm.GetValueType = UnitType
  21. GetValueFrm.GetValueBar.Max = UnitMax
  22. GetValueFrm.GetValueBar.Min = UnitMin
  23. GetValueFrm.GetValueBar.Value = UnitInit
  24. GetValueFrm.GetValueBox.Text = CStr(UnitInit)
  25. GetValueFrm.GetValueBar.LargeChange = LargeStep
  26. GetValueFrm.GetValueBar.SmallChange = SmallStep
  27. gfGetValueGo = False
  28. GetValueFrm.Resize_Horz.Value = 1
  29. GetValueFrm.Resize_Horz.Visible = ResizeHorz
  30. gfGetValueValueChanged = False
  31. GetValueFrm.left = (Screen.Width - GetValueFrm.Width) / 2
  32. GetValueFrm.top = (Screen.Height - GetValueFrm.Height) / 2
  33. End Sub
  34.  
  35.