ricardoweb084

Meu caro, decidi manter o design, gostei muito dele. Através da sugestão de outro usuário em outro fórum, descobri que é possível usar o menupopup de outro form, então, criei um form oculto que ficar rodando no sistema e uso o menupopup dele em todos os outros forms. Dá um trabalhão refazer todos os forms, mas pude manter o design que deselvovi. Agradeço muito sua sugestão.

Infelizmente desisti da ideia, vou ter que trabalhar com os forms do vb mesmo. Não consegui posicionar o objeto que substituiria o menupopup de acordo com a posição do mouse. Vida que segue...

Mas agora estou enfrentando outro pesadelo. Se eu uso o form.borderstyle = 0 para não aparecer o TitleBar e uso o Menupopup no form, o TitleBar reaparece inevitavelmente. Então para usar esta alternativa, vou ter que achar outra alternativa para o menupopup 😕

@Alyson Ronnan Martins Tentei algumas possibilidades, nenhuma deu certo. Segui teu conselho e ficou muito bom. Veja algumas das telas. Obrigado

Obrigado, meu caro O djrobertosc postou uma solução em outro fórum, testei funcionou parcialmente, somente a cor branca. Estou buscando outras soluções ainda. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_STYLE = -16 Private Const WS_CAPTION = &HC00000 Private Const WS_SYSMENU = &H80000 Private Const WS_EX_LAYERED = &H80000 Private Const LWA_COLORKEY = &H1 Private Sub Form_Load() ' Altera a cor da barra de título para vermelho SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) Or WS_CAPTION Or WS_SYSMENU SetLayeredWindowAttributes Me.hwnd, RGB(255, 0, 0), 0, LWA_COLORKEY End Sub

Windows 10, vb6 Achei em algum lugar uma forma de altertar a cor da barra de título dos forms, no entanto, o borderstyle dele precisa ser 0 (none) para funcionar, aí o botão de fechar do form não funciona. Alguém sabe alguma forma de alterar a cor da barra de títulos de um form no Windows 10 ? código que uso mSYS_cf = SetSysColors(1, COLOR_CAPTIONTEXT, vbWhite) Declare Function SetSysColors Lib "user32" _ (ByVal nChanges As Long, lpSysColor As _ Long, lpColorValues As Long) As Long Public Const COLOR_CAPTIONTEXT = 9

Se pressiono o F8 continua, mas e seu precisar retornar às linhas anteriores? Tenho conseguido isso apenas selecionando a linha no editor, não na barra lateral, e pressionando Ctrl + F9. Segurar o ponteiro amarelo com o mouse e arrastá-lo apra cima ou para baixo não consigo mais.

Voltei a utilizar um sistema feito em vb6 este ano. Instalei o vb6 professional edition, o SP6 e mais três atualizações, a VB60SP6-KB2708437, VB60SP6-KB3096896 e a VisualBasic6-KB896559 O problema que estou tendo nunca aconteceu antes. Não consigo mais mexer o cursor do depurador de códigos, aquele em amarelo. (imagem anexada) Isso dificulta muito a manutenção e os testes. Alguém tem ideia do que pode ser este erro?

Olá Criei um arquivo .bat através do vb6 para executar um backup e depois deletá-lo. Acontece que este arquivo bat criado pelo vb6 simplesmente não executa as instruções, ele abre e fecha e não acontece nada. O arquivo .bat original, criado manualmente em ambiente Windows, executa todas as instruções normalmente. Se eu abro manualmente o arquivo gerado pelo vb6 e o criado por mim, são idênticos, exceto pelo fato do arquivo criado no vb6 ter 0,5KB a menos, não descobri o porquê. Segue minha rotina. Public Function mBKP_Execute() Dim conexao As String Dim ReadData As String Dim FSO As New FileSystemObject Dim arqtxt As TextStream Dim n As Variant ' UNCRYPT Open App.Path & "\archive.bat" For Input As #1 Do Until EOF(1) Line Input #1, ReadData If conexao = Empty Then conexao = co0e(ReadData) Else conexao = conexao & Chr(13) & co0e(ReadData) End If If Not Left(ReadData, 1) = "*" Then End If Loop ' CRIA Set arq2 = FSO.OpenTextFile(App.Path & "\temp.bat", ForReading, True) sArq = arq2.ReadAll Set arqtxt = FSO.CreateTextFile(App.Path & "\temp.bat", True, False) With arqtxt .WriteLine (conexao) .Close End With Close #1 ' EXECUTA Shell App.Path & "\temp.bat", vbHide ' DELETA Kill App.Path & "\temp.bat" ReadData = Empty: conexao = Empty: Set FSO = Nothing: Set arqtxt = Nothing End Function Se alguém tiver alguma ideia de como fazer o Vb6 gerar um .bat funcional, ficarei grato