Graymalkin

Use a propriedade Range da planilha para preencher uma determinada célula com a fórmula que você quiser. Abraços, Graymalkin

Apesar de ser extensamente utilizado nos aplicativos da suíte Microsoft Office, o VBA não é exclusivo deste e também é utilizado em outros aplicativos (como o AutoCAD e nos aplicativos da suíte Corel Draw, por exemplo). Abraços, Graymalkin

Posso perguntar o porquê de você querer desabilitar o uso do ALT+F4? As vezes o teclado é muito mais *rápido* e *prático* do que a utilização do mouse. Bom, de qualquer maneira, uma maneira tosca de fazer isso seria esta: Private AltF4 As Boolean 'General Declarations Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Static alt As Boolean If KeyCode = 18 Then alt = True If alt And KeyCode = 115 Then AltF4 = True Else AltF4 = False End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) AltF4 = False End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = AltF4 End Sub Ative a propriedade KeyPreview do form para que isso funcione. Lembrando que deve existir uma forma melhor de se fazer isso (mesmo considerando que isso não é algo "bom"). Abraços, Graymalkin

Então o que você quer é desproteger o documento quando abrir pelo seu sistema, certo? Você pode fazer isso assim: Dim objWord As New Word.Application objWord.Documents.Open "c:\SeuDocumento.doc" objWord.Visible = True objWord.ActiveDocument.Unprotect "senha" Abraços, Graymalkin

Experimente usar um Do While ao invés do For: Do While Not TABELAFATURAMENTO.Eof Me.MSFlexGrid1.TextMatrix(i, 0) = TABELAFATURAMENTO("fatura") Me.MSFlexGrid1.TextMatrix(i, 1) = TABELAFATURAMENTO("cliente") Me.MSFlexGrid1.TextMatrix(i, 2) = TABELAFATURAMENTO("VlrTotal") TABELAFATURAMENTO.MoveNext Loop Abraços, Graymalkin

É App.Path. Use a função Shell(). Abraços, Graymalkin

Entendi, mas você fala em "Form1" e "Form2", porém no exemplo só existe "FrmBrowseAccount" (que eu não sei se é o "Form1" ou o "Form2"). De qualquer maneira, não seria só fazer: On Error Resume Next FileCopy Form1.Dir1.Path & "\clientregistry.blob", Form2.Dir1.Path & "\clientregistry.blob" SaveSetting "NeoSteam.exe", "ClientRegistryDirectory", "directory", Dir1.Path If Err.Number = "53" Then MsgBox "ClientRegistry not found", vbExclamation, "File not Found" Else Unload Me End If Na função FileCopy() os caminhos *completos* do arquivos (de origem e de destino) devem ser passados. Abraços, Graymalkin

Tudo está dentro de um arquivo do Excel, portanto necessariamente você vai precisar do Excel para abrí-lo. Se você quer realmente fazer algo independente eu sugiro a utilização de alguma linguagem de programação própria para isso (VB, Python, VB.NET, C#, Delphi, etc.). Abraços, Graymalkin

então não é aqui que eu registro?? http://www.fapesp.org/ Não, isso daí é um site que uma empresa chamada PlugWeb fez para promover seus serviços (note que os links mandam para o site deles). Exato. Para registrar um dominio .com você pode usar este aqui: http://www.clicregistro.com/ Abraços, Graymalkin

Ok. Você quis dizer Feramentas -> Proteger Documento? Se sim, qual é o outro jeito de colocar senha que não seja este? Então pra quê a senha? Se ele puder abrir sem a senha não existe a necessidade de colocar o seu sistema para abrir com a senha. De nada, mas eu acho que não estou ajudando muito porque realmente ainda não entendi o que você quer. Abraços, Graymalkin

O nome da variável está errado: Abraços, Graymalkin

Realmente não entendi o que você quer. Você tem um documento com senha, certo? E você quer abrí-lo, certo? Então, o código passado não faz isso? Abraços, Graymalkin

O erro é que você não está fazendo *nada* com a informação retornada por GetSetting. Veja a linha: GetSetting "NeoSteam.exe", "Directory", "steamaccount", App.Path O que ela faz? Pega o valor da chave steamaccount ou retorna App.Path caso a chave não exista. Mas, o que você faz com este valor? Você deveria usá-lo para definir o diretório de Dir1, o que você *não* está fazendo: diretório = GetSetting("NeoSteam.exe", "Directory", "steamaccount", App.Path) Dir1.Path = diretório O VB não tem como adivinhar o que você quer fazer com a informação resgatada. Abraços, Graymalkin

Experimente instalar o pacote de codecs K-Lite. Abraços, Graymalkin

Sua query não está incorreta, não? Experimente mostrá-la na tela e veja se ela está bem formada (acho que falta um espaço entre o WHERE e o que é concatenado). Abraços, Graymalkin

Cada DataSet pode ter vários objetos DataTable, portanto, a meu ver, você só precisa de um DataSet e de vários DataTables (um para cada consulta). Abraços, Graymalkin

Certo, sendo que o nome do órgão não é mais Fapesp e sim Registro.br. Sim. Isso porque você só precisa passar para o Registro.br os DNSs que o seu servidor de hospedagem lhe fornecer. Sim. Abraços, Graymalkin

Se você quer o valor de Dir1.Path então *não* deve passá-lo como string: SaveSetting "NeoSteam.exe", "Directory", "steamaccount", Dir1.Path Além disso, na hora que o form é carregado você precisa pegar o valor da chave (o que você fez com o GetSetting) e definir o diretório no objeto Dir1 (o que você não está fazendo). Abraços, Graymalkin

Use a propriedade ListItem da ListBox para pegar os itens (você pode usar ListCount para saber a quantidade e fazer um loop pegando um a um). E use a propriedade TextMatrix da Flexgrid para preencher a grade. Para incluir na tabela você pode usar SQL. Abraços, Graymalkin

Mandei um e-mail para eles perguntando se seria permitido realizar a tradução e publicá-la em algum lugar. Dependendo da resposta posso traduzir o tutorial de XML no meu tempo livre (que é pouco...) e disponibilizá-lo no meu site (ou no site deles mesmo, se eles permitirem). Abraços, Graymalkin

Como assim "serve para o VB"? Se você observar os parâmetros (que aparecem no balãozinho amarelo) vai ver que são estes dois que devem ser preenchidos. Tirando o primeiro, todos os demais são opcionais. Abraços, Graymalkin

Use a propriedade TextMatrix da Flexgrid para preencher suas células. Abraços, Graymalkin

Experimente assim: ren teste.bak teste%date:~4,2%-%date:~7,2%-%date:~10,4%.bak A data no XP vem com o dia da semana na frente e os números separados por "/", o que não pode entrar no nome do arquivo. Abraços, Graymalkin

Passe o índice do thread ao iniciar o mesmo, exemplo: Public Sub blá(ByVal pid As Object) MessageBox.Show("PID: " & pid) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim processos(5) As Threading.Thread processos(0) = New Threading.Thread(AddressOf blá) processos(0).Start(0) processos(1) = New Threading.Thread(AddressOf blá) processos(1).Start(1) End Sub Certo? ;) Graymalkin

Em .NET você pode fazer isso com a ListBox sobrescrevendo o evento de desenho dos itens dela (DrawItem), mas é bem mais simples usar uma ListView: ListView1.View = View.Details ListView1.Columns.Add("Coluna") ListView1.Items.Add("teste1") ListView1.Items.Add("teste2") ListView1.Items.Add("teste3") ListView1.Items(0).BackColor = Color.Red ListView1.Items(1).BackColor = Color.Green ListView1.Items(2).BackColor = Color.Blue Abraços, Graymalkin