Promotor Advanced

'Vou colocar um código que eu uso muito aqui... 'SobeDesce é o nome da barra vertical 'FRMCadOS é o nome do frame, todos controles estão dentro dele... ' Para controlar até quando ele pode subir ou descer, observa a propiedade Max dele... Form Load() FRMCadOS.Top = Int(SobeDesce.Value / 10) End Sub Private Sub SobeDesce_Change() FRMCadOS.Top = -SobeDesce.Value * 270 End Sub

O único código parecido que eu já vi é um que eu tenho aqui que pega a senha da Bios...

O mesmo tópico?

Você vai ter que trabalhar com arquivos ini, para gravar as alterações que fez em execução...

'Esse código que faz a mesma coisa, só que eu acho menor... Function QuantasVezes(Letra As String, Carac As String) As Integer Dim NuVezes As Integer Dim X As Integer For X = 1 To Len(Carac) If Mid(Carac, X, 1) = Letra Then NuVezes = NuVezes + 1 End If Next X QuantasVezes = NuVezes End Function 'para chamar MsgBox QuantasVezes("a", "papagaio")

Não entendi...

No caso do Word é fácil, cria uma macro(Ferarmenta/Macros) com nome de AutoExec e no Sub main dela você manda chamar seu programa... pode ser com a função shell mesmo...

'Picture2 é o picture que tem o cabeçalho... Picture2.AutoRedraw = False Printer.PaintPicture Picture2.Picture, 128, 127 128 é a lagura e 127 é a altura

deixa seu email aí...

Deixa seu email aí...

Olá pessoal, eu estou usando: wscr.Regwrite "HKEY_CLASSES_ROOT\.bmp\(Padrão)","arquivodomeuprograma" mas não entendo porque ao envéz de ele sustituir os dados do (padrão) por arquivodomeuprograma ele está criando uma nova chave com nome idêntico "(Padrão)" e colocando o valor "arquivodomeuprograma" como posso fazer para ele subistituir ao envéz de criar um novo valor? Grato!

Pode sim, Form.Monta_Fluxos

O VB para mim é melhor, VB é mais prático, deixa você manipular o computador todo, então acho que é o melhor...

eu recomendo o vbsendmail...

Vamos supor que eu tenho uma picture box e dentro dela tenho vários labels text e images, tem como salvar a picture box em um arquivo .BMP ou então imprimir todo o seu conteúdo?

http://www.vbweb.com.br/download.asp?Downl...&CodigoLink=318

usa-lá é muito simples, me passa seu email que eu te mando os exemplos que tenho... mas acho que esse link do pigmeu pode resolver...

procura por vbsendmail, ou então me passa seu email...

Select Case Len(Text1.Text) Case Is < 1 If IsNumeric(Chr(KeyAscii)) = True Then KeyAscii = 0 End If Case Is >= 1 If IsNumeric(Chr(KeyAscii)) = False Then KeyAscii = 0 End If End Select

Alguém sabe me dizer como faço no Crytal Report 8.5 para exibir campos mostrando ao véz de True ou False do campo Booleano mostrar "realizado" ou "não realizado"...

Não sei qual o seu problema com api... Mas o código para desabilitar o Botão fechar de MDI é 'para desativar o botão é só chamar RemoveMenus Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Const MF_BYPOSITION = &H400& Private Sub RemoveMenus() Dim hMenu As Long hMenu = GetSystemMenu(hWnd, False) DeleteMenu hMenu, 6, MF_BYPOSITION End Sub

Estou querendo saber como faço para capturar um frame de um video por exemplo mpg e jogá-lo em picture ou image, como sabemos no windows xp print screen não funciona para video... valeu pessoal.

Valeu velho, eu instalei o Crystal 8.5 aí funcionou...

Esse aqui trava o Minimizar e o maximinizar... Sub MDIForm_Load() Dim lWnd as Long lWnd = GetWindowLong(Me.hWnd, GWL_STYLE) lWnd = lWnd And Not (WS_MINIMIZEBOX) lWnd = lWnd And Not (WS_MAXIMIZEBOX) lWnd = SetWindowLong(Me.hWnd, GWL_STYLE, lWnd) End Sub Adicione no módulo .BAS: Private Declare Function SetWindowLong Lib"user32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _ nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _ nIndex As Long) As Long Const WS_MINIMIZEBOX = &H20000 Const WS_MAXIMIZEBOX = &H10000 Const GWL_STYLE = (-16)

Aí pessoal não estou conseguindo registrar a OCX CRYSTL32.OCX de jeito nenhum, o meu Windows XP não reconhece ela de forma alguma, já tentei o regsvr32 /s e sem /s mas não está dando, já reinstalei o VB6 e o Crystal Report mas também não adiganta, alguém sabe porque???