kuroi

o q aconteceu de errado??

a propriedade .Sorted acho q so existe no combobox do visual basic. no vba, parece q você tera q fazer a ordenacao você mesmo. tipo a cada q for incluido, você teria q retirar todos, e depois inserir tudo de novo ordenado. nesse link tem uns exemplos: http://support.microsoft.com/?scid=kb%3Ben...mp;x=15&y=8

se o botao tiver num userform, você faria assim: CommandButton1.Enabled = False agora se tiver na propria planilha, você tera q acessar o botao como shape. e acho q ele não ter a propriedade enabled. aqui eu postei uma possivel solucao pra isso, mas o fabio tava reclamando q não funcionou, mas você poderia tentar: http://scriptbrasil.com.br/forum/index.php...st&p=597327

tem varios metodos. o primeiro q ele passa la é com a api. primero você declara a funcao: Private Const BIF_RETURNONLYFSDIRS As Long = &H1 Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2 Private Const BIF_RETURNFSANCESTORS As Long = &H8 Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000 Private Const BIF_BROWSEFORPRINTER As Long = &H2000 Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000 Private Const MAX_PATH As Long = 260 Type BrowseInfo hOwner As Long pidlRoot As Long pszDisplayName As String lpszINSTRUCTIONS As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Declare Function SHGetPathFromIDListA Lib "shell32.dll" ( _ ByVal pidl As Long, _ ByVal pszBuffer As String) As Long Declare Function SHBrowseForFolderA Lib "shell32.dll" ( _ lpBrowseInfo As BrowseInfo) As Long Function BrowseFolder(Optional Caption As String = "") As String Dim BrowseInfo As BrowseInfo Dim FolderName As String Dim ID As Long Dim Res As Long With BrowseInfo .hOwner = 0 .pidlRoot = 0 .pszDisplayName = String$(MAX_PATH, vbNullChar) .lpszINSTRUCTIONS = Caption .ulFlags = BIF_RETURNONLYFSDIRS .lpfn = 0 End With FolderName = String$(MAX_PATH, vbNullChar) ID = SHBrowseForFolderA(BrowseInfo) If ID Then Res = SHGetPathFromIDListA(ID, FolderName) If Res Then BrowseFolder = Left$(FolderName, InStr(FolderName,vbNullChar) - 1) End If End If End Function[/code] você poe esse codigo la em cima na janela de codigos do seu formulario. se você quiser q esse codigo possa ser chamado de varios formularios, você poe ele num module. mas ai você tem q declarar tudo como publico (você escreve Public na frente de Type, Declare Function e Function e tb troca Private Const por Public Const). depois você usava esse codigo pra por no text box: [code]Dim FName As String FName = BrowseFolder(Caption:="Select A Folder") If FName = vbNullString Then MsgBox "Não selecionou nenhuma pasta" Else TextBox1.Text = FName End If

isso?? x = Round(y, 1)

aqui ele ensina como faz com o folder dialog: http://www.cpearson.com/excel/BrowseFolder.aspx

a mas q codigo estranho é esse q ainda não entendi... pelo q parece essas tags estranhas são algum tipo de codigo q é intepretado pelo blogger ou qualquer coisa assim, seria isso?? pelo menos é uma linguagem q nunca vi na vida. mas vanessa, olhando seu codigo aqui, imagino q seja porque um if é aberto na hora de escrever os posts e as tags tão sendo colocadas dentro dele caso as condicoes sejam verdadeiras. não sei pra q serve esse if, mas aparentemente, ele so ta sendo true na primera passagem, para o post de cima, nos demais deve ta caindo no else. então pra tenta resolver, você pudia copiar a parte q escreve a tag pra dentro do else tb. assim: <b:if cond='data:post.dateHeader'> &lt;script>var lastDate= 'Published <data:post.dateHeader/>';</script> <h2 class='date-header'>Published <data:post.dateHeader/><span class='post-labels'> <b:if cond='data:post.labels'> <data:postLabelsLabel/> <b:loop values='data:post.labels' var='label'> <a expr:href='data:label.url + "?&max-results=3"' rel='tag'><data:label.name/></a><b:if cond='data:label.isLast != "true"'> and</b:if> </b:loop> </b:if> </span></h2> <b:else/> <h2 class='date-header'> &lt;script>document.write(lastDate);</script> <span class='post-labels'> <b:if cond='data:post.labels'> <data:postLabelsLabel/> <b:loop values='data:post.labels' var='label'> <a expr:href='data:label.url + "?&max-results=3"' rel='tag'><data:label.name/></a><b:if cond='data:label.isLast != "true"'> and</b:if> </b:loop> </b:if> </span> </h2> </b:if>[/code] mas seila, essas condicoes dos ifs tão meio estranhas... o q é esse cond e onde ele é alterado?? mas tenta ai e veja se não funciona.

errinho?? explica isso direito ne... e você ta passando um endereco smtp valido e tb login e senha existentes no servidor?? da uma olhada no tópico q o matheus passou q falamos sobre tudo isso la.

eu faco assim pra contar as linhas do txt. nem precisa do fso: Dim linha As String, f As Long Dim qtde_linhas As Long qtde_linhas = 0 f = FreeFile Open "arquivo.txt" For Input As f Do While Not EOF(f) Line Input #f, linha qtde_linhas = qtde_linhas + 1 Loop Close f[/code]

visual basic 2008 é visual basic .net. moverei ao local correto.

se você fizer o download do py.sendmail no link indicado, se você entrar na pasta onde foi instalado (padrão arquivos de programas), tem uma pasta com exemplos la e tem um pra vb6 com todo o codigo q você precisa saber, da uma olhada la, qualquer coisa pergunta.

não é bem isso, o xhtml é so uma forma de escrever o html. não da pra falar q esse site é em html e esse outro é xhtml. todo site é feito em html, o xhtml é so um padrão de escrita do html, onde você deve seguir algumas restricoes. basicamente o xhtml é o html com as tags em minusulo, e num formato de um xml valido. se você quer construir o site em xhtml, então tem q aprender html primeiro de tudo. depois é so você aplicar as regras do xhtml no seu html. é o http://www.w3.org/ quem define as regras do xhtml e dos demais padroes. se você entrar em http://validator.w3.org/ você pode por seu codigo la e ele valida pra você pra ver se o seu xhtml (ou outro padrão q estiver usando) é valido, e aponta quais o erros q você deve corrigir. o html 5 sera um html com mais recursos. haverao novas tags pra novos efeitos. se você souber o html atual, quando sair o 5 você não deve ter dificuldade pra se adaptar aos novos recursos.

a agora sim entendi. uma linha de instrucao no seu codigo não pode passar, se não me engano, de 1024 caracteres. ai pra dividir uma mesma instrucao em varias linhas você usa o _ exemplo: MENSAGEM = "<font size='3' color='blue'>" & "Pesquisa de satisfação 2010" & _ "</font>" & "<BR><BR>" & frmPrincipal1.lblPergunta1.Caption & " : " & _ f1p1 & "<BR>" & frmPrincipal1.lblPergunta2.Caption & " : " & f1p2 & _ "<BR>" & frmPrincipal1.lblPergunta3.Caption & " : " & f1p3 & "<BR>" & _ frmPrincipal1.lblPergunta4.Caption & " : " & f1p4 & "<BR>" & _ frmPrincipal1.lblPergunta5.Caption & " : " & f1p5 & "<BR>"[/code] so q tb tem um limite, acho q você pode dividir em ate 25 linhas. mas tb você não precisa dividir em varias variaveis, pode usar uma so tipo assim: [code]MENSAGEM = "texto" '<-- faz de conta q aqui tem 25 linhas separadas por _ MENSAGEM = MENSAGEM & "outro texto" '<-- aqui tem mais 25 linhas MENSAGEM = MENSAGEM & "mais texto" '<-- etc k.Body = MENSAGEM assim você uso so uma variavel.

os textbox tão num userform?? seria so você usar esse codigo no evento KeyDown: Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB}" End If End Sub[/code]

matheus, não to entendendo nd... o q fica preto e vermelho?? o q tem o del e o backspace com a historia?? imagino q o py.sendmail consiga mandar o tamanho q for do email, desde q não exceda o limite do servidor smtp. fiz agora aqui ate um teste tentando enviar um email com 500.000 caracteres no body (quase 500 kB de email) e o email chegou intero pra mim. e 500 kB é muito texto pra um corpo de email em. porque você tb não poe o codigo intero q você ta usando pra enviar o email??

você pode usar essa funcao q postei aqui: http://scriptbrasil.com.br/forum/index.php...st&p=595214

você quer por uma msgbox?? acho q seria isso: tb.MoveFirst x = 20 Do While Not tb.EOF Dim r As Integer Do MyScreen.SetCursorPos 5, 19 MyScreen.SendKeys tb!Cpf MyScreen.wait (200) MyScreen.SendKeys "[ENTER]" r = MsgBox("Mensagem", vbYesNo) Loop While r <> vbYes tba.AddNew[/code]

como assim o vb corta?? quando você poe esse codigo no k.Body ele fica so um pedaco do texto??

pra tirar a borda, eu uso border: 0;. mas não entendi direito... você fala quando clica em Arquivo -> Visualizar Impressão no navegador, seria isso?? então na sua pagina ta aparecendo certo quando você abre ela?? sem borda?? se você puser uma borda com uma outra cor qualquer so pra ver se ele poe certo, o q acontece??

isso dentro do crystal reports ou dentro do seu programa?? se for no seu programa, poste o codigo q você ta usando, q linguagem seja. porque eu testei aqui dentro do crystal (tb versao 8.5) e tb no visual basic com o CRAXDRT, e não tive esse problema. pra mim, ele mostra "Nome do meu arquivo.pdf" como você queria.

mas o doctype do xhtml, não seria tipo esse aqui?? <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> e se não me engano, o padrão do HTML 4.01 Transitional seria as tags em maiusculo, não é isso?? de qualquer modo, o erro não deve ser por causa do doctype, deve ser alguma coisa no resto do codigo.

não entendi. explica melhor isso aqui:

mas você ta simplesmente selecionando os registros, faltou fazer a totalizacao. tipo assim: select FP.Codigo_Funcionario, FP.Codigo, FP.Codigo_Safra, FP.Codigo_Unidade, Sum(FP.Qtde) As Total_Qtde, Sum(FP.Sub_Total) As Valor_Total from Funcionarios_Plantio FP where Codigo = :Codigo group by FP.Codigo_Funcionario, FP.Codigo, FP.Codigo_Safra, FP.Codigo_Unidade[/code] so q é aquilo q eu falei. o campo chave da tabela não pode entrar na consulta. imagino q esse FP.Codigo seja um campo com valor unico pra cada registro na tabela Funcionarios_Plantio, certo?? então, ele não pode entrar no select (nem no group by), senao você vai agrupar pra cada registro (o mesmo q não agrupar).

ta mas você já tirou o if q testa se é repetido. agora era pra funcionar do jeito q você quer. o q ta acontecendo de errado??

é mas acho q você num precisaria ter setado o index ne. isso você faz quando você for usar arrays de controles. assim você poe o mesmo nome em varios optionbuttons e identifica pelo indice.