Wesley
|
FORTALEZA
CE - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/05/2005 12:28 hs
oi pessoal, como é que eu faço para mostrar o texto no status bar? Por exemplo, quando vc vai em arquivo e depois em abrir, ele mostrar na barra de status, um texto dizendo o que é aquela opção.. Obrigado e até breve... |
|
|
|
|
|
|
|
Postada em 15/05/2005 21:04 hs
Vc pode fazer isso para mostrar o texto que desejar:
StatusBar1.Panels(1).Text = "TEXTO"
|
|
|
|
Wesley
|
FORTALEZA
CE - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2005 02:04 hs
Joaozava, nao deu certo... Eu coloco essa linha de comando em que local? Eu queria mostrar na barra de status, por exemplo: O usuário clica no menu arquivo, ai aparece a opção abrir, quando eu passar o mouse em cima dessa opção, apareça na barra de status "Abre um documento nesta janela". Alguem sabe??? |
|
|
|
Maxcim
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2005 10:19 hs
1º voce deve incluir os painel no status bar ( em modo designe clik em propriedades).
2º
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
monta_status Command1
End Sub
Sub monta_status(cmd As Object)
Dim TESTO$
On Error GoTo ERRO
StatusBar1.Panels.Item(1).Text = cmd.ToolTipText
StatusBar1.Panels.Item(1).MinWidth = 2800
StatusBar1.Panels.Item(2).Text = cmd.Tag
StatusBar1.Panels.Item(2).MinWidth = 9000
ERRO:
End Sub
|
|
|
|
