Jump to content


Lucila

Member Since 21/05/2004
Offline Last Active 09/08/2008, 10:52
-----

Posts I've Made

In Topic: Setup Wizard E Package

24/12/2004, 02:48

Oi...

A mensagem que é mostrada diz o seguinte:

"Um erro desconhecido ocorreu quando da construção do arquivo cabinet 'meuprimeiroprograma.CAB' . Por favor, verifique se você tem permissão para acessar o destino e se há espaço suficiente para criar o arquivo."

Dinate disso, creio que, se você está tentando criar um setup em disquete, verifique se ele não está travado para gravação ou se a opção MULTIPLE CABS está selecionada.

Até...
Lucila

In Topic: Como Selecionar Tudo Em Listbox?

21/11/2004, 21:27

Achei a resposta à minha dúvida. O código é o seguinte, para quem precisar dele:

Private Sub optSelecionarTudo_Click()

Dim I As Integer

For I = 0 To listbox1.ListCount - 1
listbox1.Selected(I) = True
Next

End Sub

Espero que sirva para alguém que tenha a mesma dúvida...

In Topic: Desabilitar O Ctrl Alt Del E Alt F4 No Vb!

22/10/2004, 01:44

Primeiro crie um módulo e insira a seguinte linha:

Public Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Depois no editor de código do form crie a sub:

Sub DisabelCtrlAltDel(bdisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bdisabled, CStr(1), 0)
End Sub



Para habilitar a sub, quando inicia i programa:

Private Sub Form_Load()
Call DisabelCtrlAltDel(True)

End Sub


Para desabilitar a sub, quando encerrar o programa:

Private Sub Form_Unload(Cancel As Integer)
Call DisabelCtrlAltDel(False)

End Sub


Não sei se também bloqueia o ALT+F4.
Até...
Lucila

In Topic: Fazer Um Programa Trial

22/10/2004, 01:26

Você pode fazer download de uma OCX "ActiveLock" sem custo (grátis) no endereço abaixo:
' http://www.insite.co...rraz/activelock
Ele vem com alguns exemplos de aplicação.
Boa sorte...
Lucila

IPB Skin By Virteq