Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21195

isn't possible create the Visible and enable propery?

$
0
0
can i create the Visible and Enable property in usercontrol?
Code:

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,Visible
Public Property Get Visible() As Boolean
    Visible = blnVisible
End Property

Public Property Let Visible(ByVal vNewValue As Boolean)
    blnVisible = vNewValue
    If blnVisible = False Then
        Me.Visible = False
        RaiseEvent Hide(Extender.left, Extender.top)
    Else
        ShowWindow UserControl.HWnd, 5
        Me.Visible = True
        RaiseEvent Show(Extender.left, Extender.top)
    End If
    UpdateWindow UserControl.HWnd
    PropertyChanged "Visible"
End Property

why these code only changes the boolean variable. i can't hide the usercontrol.. why?

Viewing all articles
Browse latest Browse all 21195

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>