Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Can VBA Forms have a Flow Layout?
- Dim s_tier As String
- Dim s_rate As String
- Dim s_lbl_Rate As String
- Dim s_lbl_Tier As String
- Dim s_obj As String
- Me.TXT_Min.Visible = True
- Me.LBL_MIN.Visible = True
- Me.TXT_Min.Value = 0
- Me.TXT_Scale.Visible = True
- Me.lbl_Scale.Visible = True
- Me.TXT_Scale.Value = 0
- Me.txt_MinMax.Visible = True
- Me.lbl_MinMax.Visible = True
- Me.txt_MinMax.Value = 0
- s_tier = "TXT_T"
- s_rate = "TXT_R"
- s_lbl_Rate = "LBL_R"
- s_lbl_Tier = "LBL_T"
- For i = 1 To numActive
- 'Tier Text Box
- s_obj = s_tier & i
- Me(s_obj).Visible = True
- Me(s_obj).Value = "NULL"
- 'Tier Label
- s_obj = s_lbl_Tier & i
- Me(s_obj).Visible = True
- 'Rate Text Box
- s_obj = s_rate & i
- Me(s_obj).Visible = True
- Me(s_obj).Value = "NULL"
- 'Rate Label
- s_obj = s_lbl_Rate & i
- Me(s_obj).Visible = True
- Next i
- 'set last tier to infinite, since last tier typically goes on forever
- s_obj = s_tier & numActive
- Me(s_obj).Value = ChrW(&H221E)
- Me(s_obj).FontSize = 16
- 'Make Test button visible and move to appropriate place
- s_obj = s_lbl_Tier & (numActive + 1)
- Me.Btn_Test.Top = Me(s_obj).Top
- Me.Btn_Test.Left = Me(s_obj).Left
- Me.Btn_Test.Visible = True
- s_obj = s_tier & (numActive + 1)
- 'Make Test button visible and move to appropriate place
- Me.btn_SQL.Top = Me(s_obj).Top
- Me.btn_SQL.Left = Me(s_obj).Left
- Me.btn_SQL.Visible = True
- Me.Refresh
- for i = 1 to numactive
Add Comment
Please, Sign In to add comment