karolinavb
Typ:
neutral
Postów: 468
Zarejestrowany: Jan 2003
|
|
Anonimie ja robię to tak jak na poniższym, oczywiście uproszczonym przykładzie (bez obsługi błędów):
Kod w formie:
Option Explicit
'''' Project/References - TypeLib Information - (tlbinf32.dll)
'''' na formie o nazwie frmPokazPrzycisk
'''' kontrolka TextBox o nazwie "txtTest"
'''' oraz 3 kontrolki CommanButton
'''' 1-cmdPokaz - pokazuje przycisk cmdUkrywany
'''' 2-cmdUkryj - ukrywa przycisk cmdUkrywany
'''' 3-cmdUkrywany - ten przycisk jest widoczny lub niewidoczny w zależności od tego
'''' z jakim argumentem wywołamy porcedurę
PokazUkryjPrzycisk(ByVal strNazwaKontrolki As String, ByVal bVisible)
'''' nic nie stoi na przeszkodzie aby ukrywany przycisk był z tablicy kontrolek
'''' i nazwa jego np cmdUkrywany(2)
'''' to jest tylko przykład dla CommanButtona ale można się odwołać np do TextBox
Private Sub PokazUkryjPrzycisk(ByVal strNazwaKontrolki As String, ByVal bVisible)
Dim oKontrolka As Variant
'''' frmPokazPrzycisk - forma na której znajduje sie kontrolka
Set oKontrolka = tli.InvokeHook(frmPokazPrzycisk, strNazwaKontrolki, INVOKE_PROPERTYGET)
oKontrolka.Visible = bVisible
MsgBox (oKontrolka.Name & vbNewLine & IIf(bVisible, " widoczny", " niewidoczny" )
End Sub
Private Sub cmdPokaz_Click()
'''' czas do textBox
Call WartoscTextBox("txtTest", Time)
'''' pokaż przycisk o nazwie "cmdUkrywany"
Call PokazUkryjPrzycisk("cmdUkrywany", True)
End Sub
Private Sub cmdUkryj_Click()
'''' ukryj przycisk o nazwie "cmdUkrywany"
Call PokazUkryjPrzycisk("cmdUkrywany", False)
End Sub
Private Sub WartoscTextBox(ByVal strNazwaTextBox As String, ByVal strNapis As String)
Dim oKontrolka As Variant
Set oKontrolka = tli.InvokeHook(frmPokazPrzycisk, strNazwaTextBox, INVOKE_PROPERTYGET)
oKontrolka.Text = Time()
End Sub
_____________________________________________
Karolina
|