Graymalkin
-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
De fato, uma ótima idéia! Espero ver muitos posts por aqui. Abraços, Graymalkin
-
Sua dúvida é um tanto vaga, uma vez que a programação com sockets dá total liberdade para você definir o quê, onde, para quê e quando os dados serão enviados/recebidos. Por exemplo, o seu "verificar se alguém entrou no servidor usando winsock..." é extremamente relativo. O que é o seu "servidor"? Ele responde algo ao cliente que conecta (após a conexão estabelecida pelo winsock)? Ele mantém uma lista dos clientes conectados a ele? E o "algo pra quando alguém enviar uma informação usando winsock e não tiver ninguém pra receber, ele receber um aviso avisando q ninguém recebeu.." é ainda mais confuso. Quem pode ser o "alguém" nesse caso? Os clientes conectados ao servidor? O próprio servidor? Quem vai receber o aviso? Acho que o ideal seria você explicar o que está fazendo e como, a fim de que possamos ajudar melhor. Lembre-se que tudo que o winsock faz é *enviar e receber dados* - como esses dados serão tratados/interpretados cabe a você decidir (e não temos a mínima idéia de como você organizou tudo). Abraços, Graymalkin
-
Ah, agora sim entendi o que você quer. Bom, se "RegWrite" serve para escrever uma chave no registro ("write" = "escrever") é bastante plausível imaginar que exista um "RegRead" ("read" = "ler"). Pois, então: Dim Reg As Object Set Reg = CreateObject("wscript.shell") v = Reg.RegRead("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\Desktop") msgbox v Certo? Graymalkin
-
Funciona sim. Só não funcionaria se ele colocasse " a " (com um espaço na frente e outro atrás). Veja pelo próprio exemplo ("água"). Se ele pegar um texto inteiro e mandar dar um replace de "á" para "á" todos os "á"s do texto inteiro serão trocados. Abraços, Graymalkin
-
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
Necessariamente você não precisa de um if ali. Veja este exemplo: Dim palavras() As String = {"<html>", "</html>"} Private Sub RTB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RTB.KeyDown Dim cabeçalho As String = "{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}" Dim cores As String = "{\colortbl;\red0\green0\blue255; \red0\green255\blue0;}" Dim início As String = "\viewkind4\uc1\pard\f0\fs17" Dim texto As String = RTB.Text Dim curpos As Integer = RTB.SelectionStart Dim palavra As String For Each palavra In palavras texto = Replace(texto, palavra, "\cf1\b" & palavra & "\cf0\b0") Next palavra RTB.Rtf = cabeçalho & cores & início & texto & "\par}" RTB.SelectionStart = curpos End Sub Note que RTB é a RichTextBox. Execute ele aí e veja o resultado. Abraços, Graymalkin -
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
Rtf é uma propriedade por isso o que você pode fazer com ela é definir um valor ou pegar o valor. Por exemplo: msgbox(rtb1.rtf) Ou: rtb1.rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}{\colortbl;\red255\green0\blue0; \red0\green255\blue0;}\viewkind4\uc1\pard\f0\fs17 isto \'e9 \cf1um \cf0\cf2\b teste\cf0\b0\par}" O segundo exemplo escreve "isto é um teste" com o "um" em vermelho e sem negrito e o "teste" em verde com negrito. O ponto-chave ali está na seguinte parte: {\colortbl;\red255\green0\blue0; \red0\green255\blue0;} Ali eu defino as duas cores RGB: (255, 0, 0) que é o vermelho e (0, 255, 0) que é o verde. Depois disso eu posso utilizá-las no texto, através das "tags": "\cf1" e "\cf2" (note que antes do "um" existe um "\cf1" [para o vermelho] e antes do "teste" existe um "\cf2" [para o verde]). Além disso, o "\b" ali indica que é negrito e o "\cf0" é o texto comum (preto). Sacou? Não tenho nenhum tutorial sobre isso, mas o todo-poderoso Google deve poder te indicar algo. Eu só sei dessas coisas porque já andei mexendo com o RTB há um tempo atrás enquanto modificava um componente para colorizar a sintaxe (acho que se você procurar por CodeBox, aqui no fórum, encontrará um post a respeito). Abraços, Graymalkin -
Eu não uso o DataReport, por isso posso estar falando besteira, mas não seria porque na linha... Set objRec = objCon.Execute("Select * from tblOS where Cod = '" & txtCodigo.Text & "'") ... você está requisitando todos os campos (com o *)? Experimente deixar ali só os campos que você deseja, uma vez que esse recordset é a fonte de dados. Abraços, Graymalkin
-
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
Então eu recomendo que você dê uma estudada no formato RTF, pois ele é formado mais ou menos como um HTML. Na propriedade rtf de um RichTextBox você pode definir o código bruto dele, sem ter que ficar selecionando o texto propriamente e formatando (eu já tentei desse jeito que você está fazendo e dá muita dor de cabeça). Abraços, Graymalkin -
Use a função Rnd() para gerar um número randômico (dê uma pesquisada na sala de VB/VB.NET e você achará exemplos - a utilização é a mesma aqui) e utilize esse número para saltar para um determinado registro com o método Move do ADODB.Recordset. Abraços, Graymalkin
-
Quando for assim, crie uma macro no Excel e ele mesmo fará o código para você. Daí é só fazer uns ajustes e utilizá-lo no VB. O exemplo abaixo copia a planilha Plan1 de um arquivo para outro (de Teste1.xls para Geral.xls) e salva o segundo (Geral.xls): Set excel = CreateObject("Excel.Application") With excel .Workbooks.Open "Geral.xls" .Workbooks.Open "Teste1.xls" .Sheets("Plan1").Select .Sheets("Plan1").Copy .Workbooks("Geral.xls").Sheets(1) .ActiveWorkbook.Save End With excel.Visible = True E, esse código é facilmente adaptável para trabalhar com vários arquivos (como você necessita), bastando usar a função Dir() para obter os nomes dos arquivos e um loop. Abraços, Graymalkin
-
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
Qual a sua intenção com esse código? Formatar o texto enquanto o mesmo está sendo digitado? Ou produzir um texto RTF com a linguagem HTML? Abraços, Graymalkin -
Acho que o "bem perfeito" fica por sua conta (fazer uma janelinha bonitinha, com um botão "Localizar Próximo", etc. e tal), mas abaixo eu descrevo uma possível implementação: proc = InputBox("Digite o texto a ser procurado:") pos = InStr(1, Text1.Text, proc) If pos > 0 Then Text1.SelStart = pos - 1 Text1.SelLength = Len(proc) Text1.SetFocus End If Teste aí e veja o resultado. Abraços, Graymalkin
-
Aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=46198. Atualmente é o primeiro post da segunda página. Abraços, Graymalkin
-
O problema é só que você não inicializou o objeto x, ou seja, basta trocar o... string x; ... por: string x = ""; Abraços, Graymalkin
-
Se você estiver utilizando VBScript como linguagem de script no ASP, pode usar a função Replace(). Exemplo: texto = "água" ntexto = replace(texto, "á", "á") Response.Write(ntexto) Abraços, Graymalkin
-
Experimente dar uma pesquisada sobre a cláusula GROUP BY. Só que o lance do campo Data ter duas datas diferentes é que não sei se vai se ajustar ao caso. Abraços, Graymalkin
-
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
De nada. Só que o código ali, efetivamente falando, não é para "pôr uma tag" e sim para definir o texto da seleção presente na textbox. É claro que isso terá diversas utilidades práticas e uma delas é o que você deseja. Abraços, Graymalkin -
Mas, a intenção é justamente que após mapear ele use as mesmas informações quando o compartilhamento for acessado (fora do mapeamento). Se não me engano, isso dá certo e o mapeamento não precisa ficar ativo (você pode simplesmente criá-lo e quebrá-lo logo em seguida). Sacou? Não tenho total certeza de que isso vá dá certo desta maneira, mas é assim que o Windows age quando estamos operando através do Ambiente de Rede ou do Meus Locais de Rede, ou seja, ele tenta utilizar o mesmo nome de usuário e senha, colocados previamente, quando tenta-se acessar um novo compartilhamento que requisite-os. Abraços, Graymalkin
-
Com a rotina FileCopy. Abraços, Graymalkin
-
Você registrou a DLL com o regsvr32? Abraços, Graymalkin
-
O código... Dim Reg As Object Set Reg = CreateObject("wscript.shell") Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe" ... *já* é uma *outra* maneira de se fazer isso. Você mesmo está dando o exemplo do que está pedindo (ou seja, você *já* tem a resposta), por isso ainda não entendi o que você quer... Abraços, Graymalkin
-
Me Ajudem A Fazer Um Editor De Html
pergunta respondeu ao Denis Bittencourt Muniz de Graymalkin em Visual Basic
Então faça assim: Text1.SelText = "<title />" Abraços, Graymalkin -
Como o nome sugere, é um vetor de controles. Isso permite que ao invés de ter Text1, Text2, Text3 você tenha Text1(0), Text1(1), Text1(2). Note que no segundo caso todas as textboxes tem o mesmo nome (Text1) porém o que varia é o índice (0, 1 e 2). Abraços, Graymalkin
-
Com esse aqui você faz isso: http://www.graymalkin.globalhosts.com.br/pysendmail.asp Ainda não inclui o exemplo de Delphi na distribuição, mas o mesmo seria: Incluir "ComObj" na cláusula Uses. Declarar a seguinte variável: var V : Variant; Usar o seguinte código: V := CreateOleObject('Py.SendMail'); V.SMTPServer := 'smtp.servidor.com.br'; V.To := 'para@provedor.com.br'; V.From := 'de@provedor.com.br'; V.Subject := 'Assunto'; V.Body := 'um teste'; V.Send; Vale lembrar que o BOL só permite que você envie mensagens (pelo SMTP) se você tiver feito pelo menos uma conexão com o servidor de recepção (POP). Ou seja, você só envia depois de tentar receber. Que eu saiba esse é o único que tem esse detalhe. Já testei meu componente com cerca de três ou quatro outros servidores e deu certo. Abraços, Graymalkin
-
Sim, aí vai. Abraços, Graymalkin