Luiz Humberto

Acesse o link abaixo, acho que pode te ajudar. http://www.ime.usp.br/~renata/mac2014/aula1.txt

Este codigo ficaria melhor. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(",") Then If Text1.Text Like "*,*" Then KeyAscii = 0 End If End Sub Respondido por RSFVB. -------------- aragorn13: É o seguinte quando posto uma duvida não fico esperando ela ser respondida vou atras de outras, só mesmo quando não acho algo aí sim posto, pode ver que este codigo não faz o que preciso por isso estou postando outra resposta que foi respondido em outro forum.

Neste link econtra a resposta: http://scriptbrasil.com.br/forum/index.php...0297&hl=virgula

Como fazer para que possa impedir que um campo só aceite um virgula. valeu

Opá foi um erro. O código que você me passou faz o que preciso, só tive que acrescentar uns detalhes que precisava Valews

valeu, Mas poderia me ajudar em mais uma coisa, sendo que na primeira letra não deve aceitar numero, somente letras e as letras tem que ser a ou n,tentei fazer isto usando o seu codigo, mas deu errado se poder me ajudar. Obrigado.

Como fazer para que possa permitir somente a primeira letra sendo uma string e o restante sejam numeros. Ex:p1211 valeu

Estou precisando aprender Dreamweaver podem me indicar um livro. Ah! Caso saiba de um bom livro de fireworks, Css e Flash também ficaria grato. valeu

dark0, Caso conheça algum outro webmail poderia me indicar para usuar.

Mas este webmail não criar usuários você passa o dominio onde estão os e-mail, eu preciso usar ele num site onde já foram criados os e-mail, passando o smtp e pop. Obrigado pela força hein. valeu.

http://www.codigolivre.com.br/abrefontes.p...gid=1&catid=101 neste endereço possui a documentação você tentou usando o CDONTS para ver se vai funcionar?

Dark0, Tem como você escolher o CDONTS alterando no config.asp na linha 19 e no inbox.pas alterar a linha 73 para Set pop3 = Server.CreateObject("CDONTS.NewMail") . Aí estes erros não aparecem mais, mas agora informa que não Ocorreu um erro ao tentar se logar.Tente novamente. Pode testar aí para ver se vai dar certo. valeu

dark0, Se você poder fazer um grande favor de baixar este webmail e fazer o teste se está funcionando corretamente. http://arquivos.superasp.mco2.net/codigos/webmail.zip Desde já Obrigado!

set fa=FSO.CreateFolder( usersPhysicalPath ) set fa=nothing End If

Baixei este webmail http://arquivos.superasp.mco2.net/codigos/webmail.zip Fiz todas as configurações no config.asp, mas está com um erro: Microsoft VBScript runtime error '800a0035' File not found /webmail/inbox.asp, line 60 Alguém pode me ajudar?

Alguém sabe de um webmail feito em asp, caso saiba poderia me informar onde consigo. valeu

Obrigado Graymalkin!

Estou usando listview com checkboxes, queria que o usuário só marcasse uma opção, supondo que marcou uma opção se marcar outra, ( o sistema deve dismarca a que estava marcada e marca a que else selecionou). valeu

Precisando estamos aí.

Cira um módulo com este código: Public Function VerificaResolucao(pixelWidth As Long, pixelHeight As Long) As Boolean Dim lngTwipsX As Long Dim lngTwipsY As Long 'Converte de Pixels para Twips lngTwipsX = pixelWidth * 15 lngTwipsY = pixelHeight * 15 'Compara com a resolução Atual If lngTwipsX <> Screen.Width Then VerificaResolucao = False Else If lngTwipsY <> Screen.Height Then VerificaResolucao = False Else VerificaResolucao = True End If End If End Function No evento Load: If VerificaResolucao(800, 600) Then Faz seu tratamento ElseIf VerificaResolucao(1024, 768) Then Faz seu tratamento End If Me.Refresh

Com a ajuda do brother KinG_UndergrounD consegui fazer segue abaixo a solução: For I = 0 To ListDisponiveis.ListCount - 1 For J = 0 To ListEscolhidas.ListCount - 1 If ListDisponiveis.List(I) = ListEscolhidas.List(J) Then ListDisponiveis.RemoveItem (I) End If Next J Next I

Tenho duas List Box, onde a primeira contém todos os dados e a segunda sera preenchida com base na primeira, então carregando as duas list box a listbox1.list(0) vai ser igual a listbox2.list(0). só que preciso eliminar o conteudo da primeira quando vou fazer a alteração, para que não ocorro de cadastrar um item que já foi cadastrado. Dúvida:E que não estou conseguindo fazer com que os dados da segunda list box não apareca na primeira.

Eu faço desta forma, acho que pode te ajudar No evento LostFocus Dim VerificaMercadoria As String VerificaMercadoria = Trim(TxtMercadoria.Text) With RstADO SQL_Query = "Select Descricao From Produto where Descricao= '" & VerificaMercadoria & "'" Debug.Print SQL_Query .Open SQL_Query, ConnADO If Not RstADO.EOF Then MsgBox "Já existe Esta Mercadoria Cadastrada" TxtMercadoria.SetFocus End If End With

Quando abre um menu, tem como alterar a cor dos itens deste menu.

Não porque você está abrindo como leitura, o que preciso é que quando abrir uma tabela abre como modo exclusivo sendo que nenhuma outra conexão tenta incluir ou alterar na tabela em questão.