Promotor Advanced

É isso mesmo que o nosso amigo disse anteriormente, eu vejo módulo como um código que todos forms tem em comum...

É isso mesmo que o nosso amigo disse anteriormente, eu vejo módulo como um código que todos forms tem em comum...

Tenta aí, dlg1 é a common dialog... dlg1.filter="arquivo PHP(*.php) | *.php" dlg1.showsave if dlg1.filename For Output As #1 open dlg1.filename For Output As #1 print #1,txttexto.text 'Salva o richtext com nome de txttexto para arquivo close #1 end if

Única coisa que eu tenho parecido é revelar senha da bios...

Eu queria saber como usar o Find, Vamo supor que eu tenho uma tabela com CDLivro e NMlivro... e Temos o record set TBLLivro... como uso ele para achar o Livro com nome de "Faroeste"

Ah sim, mas é que eu queria saber como fazer para rodar o vbs pela net... ou anexado a um html...

Você estava usando MDi também não não é????

Você vai ter 4 images como nome de imOpen imSave imPrint imPrintSetup imCopy crie um menu desse jeito &File ""&Open ""&Save ""- ""&Print ""Print &Setup &Edit ""&Extra Sub Menu """"&Copy Option Explicit ' MenuBmp sample by Matt Hart - mhart@taascforce.com ' http://www.webczar.com/defcon/mh/vbhelp.html ' http://www.webczar.com/defcon/mh ' ' This sample shows you how to add bitmaps to your ' menu items. First, you must retrieve the VB menu handle ' with the GetMenu API call. Then, you set the Unchecked and ' Checked bitmaps (I don't differentiate between the two ' with this example - usually you would put a checkmark in ' the bitmap and use that for Checked). ' ' Note that the Picture property of an Image control (or ' a Picture control) is the Bitmap Handle, this the Image ' controls can be used like a bitmap resource. ' ' I also have one sub menu so that you can see how getting ' submenu handles and item positions works. Private Declare Function GetMenu Lib "user32" _ (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function SetMenuItemBitmaps Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _ ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Const MF_BYPOSITION = &H400& ' VB 5 doesn't need this declration, but VB 4 does. ' Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long Private Sub Form_Load() Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long mHandle = GetMenu(hwnd) sHandle = GetSubMenu(mHandle, 0) lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture) lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture) lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture) lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture) sHandle = GetSubMenu(mHandle, 1) sHandle2 = GetSubMenu(sHandle, 0) lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture) End Sub

Muito boa solução, como funciona esse "For each" ? E porque funcionou mesmo sem eu declarar variaveis???

Me passa seu email que eu envio...

Quero saber qual variável eu uso para guardar peso, 4,542 (4 quilos e quinhentos e quarenta e dois gramas) Estou em um programa que tem 4 forms... Cada form tem 5 botões... Em todos os forms num determinado momento preciso desativar os botões (que tem os mesmos nomes em forms diferentes...) Então ne todo form tem: Button1.enabled=false Button2.enabled=false Button3.enabled=false Button4.enabled=false Button5.enabled=false É possível eu fazer uma função global para desativar os botões para que eu não tenha que ficar toda hora escrevendo button1,2,3,4.... ???

Você vai criar uma lista de arquivo que vai ser copiado pela instalação aí, ele executa o processo para você, e o melhor de tudo é que ele gera um único arquivo, Setup.exe ficamais fácil para transportar no download...

Foi mal, não era Innor era Inno... http://superdownloads.ubbi.com.br/download/i1436.html Não é compativelmente direto com o VB, mas você incorpora os arquivos e dll necessárias para o programa funcionar... Só custumo usar ele...

Sem erro velho, testei aqui é funcionou direitinho... valeu aí...

Eu tenho um código de VBScript... Como eu faço chamar o arquivo .vbs ou colocar dentro de um html???

Usa o Innor Setup, deve ter no superdownloads.com.br E pega a tradução dele, para ele fazer setup em poruguês...

Então acho que não vai adiantar... mas de toda forma o que eu colocoo na mascara para aceitar qualquer tipo caracteres? já que ## só aceita números...

Pode parecer Banal essa dúvida, eu queria saber como faz para criar uma mascara para carteira de identida MG-345.231.902 a parte das letras não consigo fazer de jeito algun...

É só vocêr usasr o File list Box... Poe no filtro só arquivo *.jpg flb é o file list box flb.path=text1.text 'para fazer ele receber o diretório do text For X = 0 To FLB.ListCount - 1 FLB.ListIndex = X msgbox flb.filename Next x Esse código vai mostrar o nome de todos aruivos... agora me diz se é isso que você queria mais ou menos...

O que tem mais código fonte que eu conheço é o www.pscode.com

Vou tentar ser claro... eu tenho uma tabela "TBLUser" que contem, CodigoUser(auto incremento), NomeUser(texto), CidadeUser(inteiro) e uma tabela "TBLCidade" que contem, CodigoCidade(inteiro), NomeCidade(texto) Minha dúvida é a seguinte... como faço para exibir no Combo Box o Nome da cidade do Usuário pelo seu código? Seria uma espécie de relacionamento...

Põe no evento Keypress que se o mid(mask1.text,1,1)=2 mask1.mask="tal mascara"... se =3 recdebe a outra... tenta aí...

Pelo que eu sei não tem jeito de limitar não... é melhor você avisar no prompt da Input que deve digitar só 20...

Para converter para Inteiro...

Usa o Innor Setup...