Graymalkin

Posso estar errado, mas acredito que sim. Graymalkin

O que você fez diferente foi o... rsOs.CursorLocation = adUseClient ... que deixa o cursor local e assim o grid consegue marcá-lo (bookmark). Realmente esqueci desse detalhe. Mas que bom que você conseguiu. Abraços, Graymalkin

Sua mensagem em negrito é meio vaga. De qualquer forma, Picture é uma propriedade de uma Picturebox, portanto, como qualquer outra propriedade, deve ser definida do mesmo jeito que atribuímos um valor à uma variável. No caso, seria: picture1.picture = loadpicture("arquivo.ext") Basta você só incluir só o nome do arquivo, todavia você terá que incluir o diretório na hora que for chamar a função Shell(). Abraços, Graymalkin

Se você for no Botão Iniciar -> Executar e digitar "c:\pasta\zsnes.exe c:\pasta\jogo.smc" você executa o jogo. O que a função Shell() faz é justamente executar um programa (que pode ter parâmetros, que neste caso é o arquivo do jogo). Por essa razão é que faz necessário ter um espaço (" ") entre o nome do arquivo executável e o nome do arquivo do jogo. Praticamente todos os programas existentes (que possuem um arquivo de determinada extensão) fazem isso, como por exemplo, o Word (com .doc) e o Excel (com .xls). O ato de você dar um duplo-clique sobre um arquivo .doc é como se você fosse lá no executar e digitasse: "c:\pasta\winword.exe c:\pasta\arquivo.doc". Sacou? Abraços, Graymalkin

Aqui está o projeto devidamente corrigido: http://www.graymalkin.globalhosts.com.br/stuff/emusnes2.zip Abraços, Graymalkin

Repare nessa linha: Shell caminho_emu & "" & caminho_jogo, vbNormalFocus 'Executa o jogo O correto é: Shell caminho_emu & " " & caminho_jogo, vbNormalFocus 'Executa o jogo Além disso, na linha... caminho_emu = "F:\Emu\Snes\Emulador\zsnes.SMC" 'Caminho do emulador ... deve ficar o caminho do EXECUTÁVEL (.exe) do ZSnes. Sacou? Abraços, Graymalkin

Você quer dizer no Internet Explorer? Se for, vá no menu Exibir -> Tamanho do Texto e defina como Médio. Abraços, Graymalkin

Segue um exemplo de como adicionar uma coluna no DBGrid: Dim coluna As Column Set coluna = DBGrid1.Splits(0).Columns.Add(2) coluna.Caption = "Nova" coluna.Visible = True E toda a manipulação das colunas pode ser feita através do objeto DBgrid1.Splits(0).Columns. Abraços, Graymalkin

Já tentou ir em Painel de Controle -> Ferramentas Administrativas -> Internet Information Services e lá clicar em nome_computador (computador local) -> Sites da Web -> Site da Web Padrão com o botão direito e escolher a opção Iniciar? Abraços, Graymalkin

Só na exibição? Se for, seria algo do tipo: <img src="<% Response.Write("caminho_imagem") %>" width="150" height="150"> Abraços, Graymalkin

Por exemplo, supondo que o endereço é: http://www.site.com.br/pagina.asp?letra=A Na página "pagina.asp" você pode obter o parâmetro "letra" da seguinte maneira: letra = Request.QueryString("letra") Daí, seria só fazer... rs.Open "SELECT * FROM tabela WHERE campo LIKE '" & letra & "*';", cn, 3, 1 ... para ter um recordset com todas as palavras começadas pela letra. É claro que ao gerar o índice do glossário você já faria com que todos os links ficassem na forma "pagina.asp?letra=LETRA" onde "LETRA" seria substituído pela letra correta. ok? Graymalkin

Não sei se entendi bem, mas não seria algo assim (a SQL): SELECT * FROM tabela WHERE left(campo, 1)='A'; ? Sendo que no lugar de 'A' você colocaria a letra escolhida (que poderia vir através de um parâmetro no endereço da página). Abraços, Graymalkin

Para desvincular você faz: set datagrid1.datasource = nothing Porém tenho um programa que faz algo bem próximo a isso (mostrar dados em uma datagrid de acordo com o que está em outra) e faço a seguinte declaração... dim rsTemp as new adodb.recordset ... do Recordset direto na rotina ao invés dele ser público. Então, experimente colocar... dim rsOS as new adodb.recordset ... diretamente na rotina CarregaGrid. Abraços, Graymalkin

Acho que o código deveria ser: Case "Proximo" If rs.RecordCount < 1 Then MenuGrava.Buttons("Proximo").Enabled = False End If If Not rs.EOF Then rs.MoveNext if not rs.eof then carrega CarregaGrid endif Else MsgBox "Esse é o último registro", vbOKOnly, "Navegação de Registro" End If Já que após o MoveNext pode ser que seja o último registro. Graymalkin

Onde você colocou esse código? Graymalkin

Alguém sabe como se insere uma nova linguagem no ambiente de desenvolvimento do Visual Studio .NET (da mesma maneira que o Visual Python faz)? Desde já, agradeço qualquer dica. Abraços, Graymalkin

Então o que você tem que fazer é refazer a consulta do segundo recordset (da OS) e jogar os dados de novo na grade. Acredito que isso possa ser feito no evento Click da grade (dessa maneira quando o usuário mudar de um registro para o outro a consulta será refeita e os dados serão reamostrados). Abraços, Graymalkin

A idéia seria mais ou menos isso: Botão 1 (para adicionar o jogo na listbox): list1.additem "c:\pasta\jogo.smc" Botão 2 (para executar o jogo selecionado na listbox): caminho_jogo = list1.list(list1.listindex) 'Pega o item selecionado da listbox caminho_emu = "C:\pasta\ZSNESW.EXE" 'Caminho do emulador Shell caminho_emu & " " & caminho_jogo, vbNormalFocus 'Executa o jogo Daí, rode o programa e clique no botão 1. Você verá então o jogo adicionado na listbox. Selecione-o e clique no botão 2 e o jogo será executado. É claro que existem dezenas de maneiras diferentes de se fazer isso e isso é só um exemplo para que você entenda de forma mais simples. Abraços, Graymalkin

Você vai me chamar de maluco, mas eu já dei uma olhada em Ruby também... . Mas foi pouquíssimo (praticamente só instalei e dei uma olhada nos exemplos). Só olhei mesmo porque Python tem algumas características advindas desta linguagem. Todavia não conheço algum fórum sobre a mesma, mas tente as listas de discussão do Yahoo!Grupos: http:/www.yahoogrupos.com.br. Abraços, Graymalkin

O que você quer seria algo assim: caminho_jogo = "D:\pasta\jogo.SMC" caminho_emu = "C:\pasta\ZSNESW.EXE" Shell caminho_emu & " " & caminho_jogo, vbNormalFocus Sendo que "caminho_jogo" proveria da listbox. Abraços, Graymalkin

Você poderia primeiro fazer o rol (com uma matriz) e depois percorrê-la a fim de verificar o(s) maior(es) valor(es) de frequência. Ou criar um outro vetor e ao ir percorrendo o primeiro ir acumulando no segundo, utilizando o valor como índice, a frequência (e ao mesmo tempo já ir calculando qual deles é o maior). Abraços, Graymalkin

Dois exemplos: n = freefile() open "lpt1" for output as #n ? #n, "primeira linha" ? #n, "segunda linha" close #n Printer.print "primeira linha" Printer.print "segunda linha" Printer.Enddoc Abraços, Graymalkin

Atualmente não uso o Crystal, mas quando ele acompanhava o VB5 (na versão 4.5) era só marcá-lo durante a instalação. No caso do VB6, se não me engano, ele vem no segundo CD, mas posso estar errado. Para meus relatórios uso a impressão direta, com Open, Print, etc. Se houver necessidade de desenhar linhas (e aquelas frescuras todas), daí eu uso o objeto Printer. E, se for necessário mostrar uma pré-visualização uso uma RichTextBox ou uma PictureBox para exibir o que será impresso. Abraços, Graymalkin

Basicamente é isso (supondo que você esteja usando VB.NET como linguagem): Dim msg As New Web.Mail.MailMessage() msg.From = "de@servidor.com.br" msg.To = "para@outroservidor.com.br" msg.Subject = "Assunto" msg.Body = "texto do corpo do e-mail" Web.Mail.SmtpMail.SmtpServer = "smtp.servidor.com.br" Try Web.Mail.SmtpMail.Send(msg) Response.Redirect("sucesso.htm") Catch erro As Exception Response.Write("Server error: " & erro.ToString()) End Try É claro que o Response.Redirect() é opcional, todavia é comumente usado. Abraços, Graymalkin

Então, acumule-os em uma variável e depois coloque o conteúdo da variável na propriedade Caption da label. Por exemplo: texto = "" for i=1 to 10 texto = texto & i & ", " next i label1.caption = texto Ok? Graymalkin