I have a frm and it contas a box called bxNew. Inside the box I have a couple of cmd buttons called cmdShowMore and cmdShowLess; See code below:
Private Sub cmdShowLess_Click()
Me.bxNew.Top = 0.125
Me.bxNew.Left = 8.0417
Me.bxNew.Height = 1.791
Me.bxNew.Left = 8.0417
Me.bxNew.Width = 6.625
Me.ImgEmployee.Visible = False
Me.cmdEmployee.Visible = False
Me.imgContactPerson.Visible = False
Me.cmdContactPerson.Visible = False
Me.cmdReports.Visible = False
Me.imgReports.Visible = False
Me.imgView.Visible = False
Me.cmdView.Visible = False
Me.imgShowLess.Visible = False
Me.cmdShowLess.Visible = False
End Sub
Private Sub cmdShowMore_Click()
Me.bxNew.Top = 0.125
Me.bxNew.Left = 8.0417
Me.bxNew.Height = 2.9993
Me.bxNew.Left = 8.0417
Me.bxNew.Width = 6.625
Me.ImgEmployee.Visible = True
Me.cmdEmployee.Visible = True
Me.imgContactPerson.Visible = True
Me.cmdContactPerson.Visible = True
Me.cmdReports.Visible = True
Me.imgReports.Visible = True
Me.imgView.Visible = True
Me.cmdView.Visible = True
Me.imgShowLess.Visible = True
Me.cmdShowLess.Visible = True
I am trying to adjust the heighth of the box according to the button a person pushes. But no matter what my box disappears... Any ideas?
Posted by: dbalorenzini@yahoo.com
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar