Guest User

Untitled

a guest
Sep 18th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.37 KB | None | 0 0
  1. Can VBA Forms have a Flow Layout?
  2. Dim s_tier As String
  3. Dim s_rate As String
  4. Dim s_lbl_Rate As String
  5. Dim s_lbl_Tier As String
  6. Dim s_obj As String
  7.  
  8. Me.TXT_Min.Visible = True
  9. Me.LBL_MIN.Visible = True
  10. Me.TXT_Min.Value = 0
  11.  
  12. Me.TXT_Scale.Visible = True
  13. Me.lbl_Scale.Visible = True
  14. Me.TXT_Scale.Value = 0
  15.  
  16. Me.txt_MinMax.Visible = True
  17. Me.lbl_MinMax.Visible = True
  18. Me.txt_MinMax.Value = 0
  19.  
  20. s_tier = "TXT_T"
  21. s_rate = "TXT_R"
  22. s_lbl_Rate = "LBL_R"
  23. s_lbl_Tier = "LBL_T"
  24.  
  25. For i = 1 To numActive
  26.  
  27. 'Tier Text Box
  28. s_obj = s_tier & i
  29.  
  30. Me(s_obj).Visible = True
  31. Me(s_obj).Value = "NULL"
  32.  
  33. 'Tier Label
  34. s_obj = s_lbl_Tier & i
  35.  
  36. Me(s_obj).Visible = True
  37.  
  38. 'Rate Text Box
  39. s_obj = s_rate & i
  40.  
  41. Me(s_obj).Visible = True
  42. Me(s_obj).Value = "NULL"
  43.  
  44. 'Rate Label
  45. s_obj = s_lbl_Rate & i
  46.  
  47. Me(s_obj).Visible = True
  48.  
  49. Next i
  50.  
  51. 'set last tier to infinite, since last tier typically goes on forever
  52. s_obj = s_tier & numActive
  53.  
  54. Me(s_obj).Value = ChrW(&H221E)
  55. Me(s_obj).FontSize = 16
  56.  
  57. 'Make Test button visible and move to appropriate place
  58.  
  59. s_obj = s_lbl_Tier & (numActive + 1)
  60.  
  61. Me.Btn_Test.Top = Me(s_obj).Top
  62. Me.Btn_Test.Left = Me(s_obj).Left
  63. Me.Btn_Test.Visible = True
  64.  
  65. s_obj = s_tier & (numActive + 1)
  66. 'Make Test button visible and move to appropriate place
  67.  
  68. Me.btn_SQL.Top = Me(s_obj).Top
  69. Me.btn_SQL.Left = Me(s_obj).Left
  70. Me.btn_SQL.Visible = True
  71. Me.Refresh
  72.  
  73. for i = 1 to numactive
Add Comment
Please, Sign In to add comment