Graymalkin

Não... você vai ter que participar, oras! Abraços, Graymalkin

Tecnicamente falando, sim. O mesmo ocorreu com o VS.NET 2002 (o qual teve distribuição gratuita em CDs durante o evento TechNet). Apesar disso, me pareceu bastante estável (vou ver melhor quando instalar aqui no meu computador). Abraços, Graymalkin

Repare que tanto add quanto subt recebem dois valores como parâmetros, os quais você não está passando chamando somente "Call add" ou "Call subt". O correto seria algo do tipo "Call add(x, y)" ou somente "add x, y" (onde o "x" e o "y" você vai extrair da strInstruc). Abraços, Graymalkin

Hummm... uma idéia muito interessante. estou dentro. Abraços, Graymalkin

Não sei se o SQL Server tem algo do tipo para bloquear o acesso a tabela enquanto outro usuário a está utilizando. Com Access e ADO não consegui fazer isso, no entanto, pelo menos aos meus propósitos, a técnica acima funciona perfeitamente. Abraços, Graymalkin

Eu por exemplo, tenho uma tabela no banco de dados chamada "Numera". Nela existe um campo para guardar o número atual. Crio então uma função bem similar ao exemplo anterior no qual pega-se o valor do campo, soma-se +1 e atualiza-se a tabela. Algo tipo: public function GetNewCode() codigo = cn.Execute("SELECT campo AS ncodigo FROM tabela").Fields("ncodigo").Value novocodigo = codigo+1 cn.Execute "UPDATE tabela SET campo=" & novocodigo & " WHERE campo=" & codigo GetNewCode = novocodigo end function Onde "cn" é um ADODB.Connection e, nesse exemplo, estou assumindo que a tabela não estava vazia e que só o primeiro registro é utilizado. Abraços, Graymalkin

Pensando bem, acho que o que falta ali é a criação de uma instância da classe langMain, portanto a linha... Dim prog As langMain ... ficaria: Dim prog As New langMain A idéia do ByVal e do ByRef, é que o primeiro faz um cópia do valor para o argumento de destino enquanto que o segundo faz uma referência direta. Por exemplo: public function teste1(byval n as integer) as integer n=n+1 teste = n end function public function teste2(byref n as integer) as integer n=n+1 teste = n end function Ambas as funções acima fazem a mesma coisa, porém a primeira recebe o parâmetro por valor e a segunda por referência. Um exemplo de utilização delas seria o seguinte: Dim k As Integer k = 1 Debug.Print teste1(k) Debug.Print "valor de k: ", k Debug.Print teste2(k) Debug.Print "valor de k: ", k Repare que após a chamada de teste1() o valor de k permaneceu o mesmo, enquanto que no segundo caso (na chamada de teste2()) o valor de k passou a ser o mesmo do "n" da função. No primeiro caso, o "n" da função teste1() fica com o mesmo valor que "k". No segundo caso, o "n" é o "k". Talvez você tenha visto isto em Pascal também, que no caso é a inclusão da palavra "var" na frente do argumento que deve ser passado por referência. Note que no VB6 o padrão (quando não especificado) é o ByRef (no VB.NET é o ByVal). Portanto, esta declaração... Public Function compilar(strInstruc As String) ... indica que "strInstruc" vai ser passada por referência, no entanto a utilização... prog.compilar (exp(i)) ... força a passagem por valor (por causa dos () em torno do valor passado). Todavia, é claro que nesse caso não vai fazer muita diferença escolher entre um e outro (valor ou referência). Abraços, Graymalkin

Na verdade, não. A questão principal é que ainda é uma versão Beta, portanto *pode* não ter todos os recursos que estarão disponíveis na versão final. Porém, pelo menos por enquanto, ainda não há limitações desse tipo. Abraços, Graymalkin

Você não está fazendo confusão com os nomes, não? Pode indicar algum local na Net onde tenha lido sobre esses elogios? Abraços, Graymalkin

Nesse caso, o Visual Studio acompanha as linguagens (pelo menos foi o que vi no VB), por isso já tem a parte visual sim. É bem parecido com o VS .NET atual, mas quem quiser ficar por dentro das mudanças, pode conferi-las aqui: http://www.bufaloinfo.com.br/artigos/artigo010704.asp Abraços, Graymalkin

Experimente tirar os () do argumento, ficando: prog.compilar exp(i) E veja o resultado. E, outra coisa: já sabe usar ByVal e ByRef? Digo isso, porque esse tipo de argumento poderia ser passado por valor (não que seja obrigatório). Se ainda não usou essas palavras-chaves, posso te dar um exemplo. Abraços, Graymalkin

Tira o "\(Padrão)" dali. Você não precisa especificá-lo. Abraços, Graymalkin

Por exemplo, com um arquivo texto a idéia seria a seguinte: Public Function GetNewCode() As Long arquivo = "arquivo.txt" If Dir(arquivo) <> "" Then n = FreeFile() Open arquivo For Input As #n Input #n, unk Close #n retorno = Val(unk) + 1 Else retorno = 1 End If n = FreeFile() Open arquivo For Output As #n Print #n, retorno Close #n GetNewCode = retorno End Function Daí, sempre que for necessário pegar um novo código, basta chamar a função GetNewCode(). Exemplo: msgbox GetNewCode() Abraços, Graymalkin

É, eu que escrevi errado. Os índices da ListView começam pelo 1 e não pelo 0 (como os da ListBox). Abraços, Graymalkin

Complementando a resposta acima, segue um exemplo utilizando a wxPython: import wx app = wx.App() janela = wx.Frame(None, -1, 'teste') cxtexto = wx.TextCtrl(janela, -1, 'um teste', style=wx.TE_MULTILINE|wx.TE_RICH2) cxtexto.SetStyle(3, 8, wx.TextAttr("RED", "YELLOW")) app.SetTopWindow(janela) janela.Show() app.MainLoop() Abraços, Graymalkin

listview1.ListItems(0).ListSubItems(0).ForeColor = cor Acho que seria isso, não? Abraços, Graymalkin

Pode ser assim: Shell "explorer " & Environ("windir") Porém, existe uma outra maneira. Não tenho certeza se a variável de ambiente "windir" é definida nos outros sistemas (usei isso no Win98). Para a outra maneira (que serve para todos) você pode usar a API GetWindowsDirectory (dê uma procurada sobre ela no API-Guide (www.mentalis.org), deve ter um exemplo lá). Abraços, Graymalkin

Com os widgets da wxPython deve dar pra fazer isso. Dê uma conferida em: www.wxpython.org Abraços, Graymalkin

Consegui aqui, mas não com 158 e sim com 149. Bastou mudar a fonte para Times New Roman. Exemplo: Text1.Text = Chr(149) Text1.Font.Name = "Times New Roman" Text1.Font.Size = 20 Abraços, Graymalkin

Com a função Shell() você faz tudo isso. Abraços, Graymalkin

Boa dica, William. Abraços, Graymalkin

Mude a propriedade BorderStyle para 0 (None). Abraços, Graymalkin

Nestas situações costumo pegar o número de outro lugar (outra tabela feita só para isso, um recordset em um arquivo XML ou mesmo um arquivo texto). Ao fazer isso, já atualizo o número incrementando +1. Como a atualização nesse caso é super rápida e é extremamente difícil que dois usuários consigam tentar obter o número ao mesmo tempo (exatamente no mesmo tempo), nunca tive problemas com essa idéia. Abraços, Graymalkin

Bem, eu conheço. . Uso pictureboxes para representar todos os elementos que aparecem sobre o form. Se você der uma olhada na pasta Skins (dentro da pasta XPlayer) encontrará todos os elementos separados em figuras. Abraços, Graymalkin

Nossa, já nem lembrava disso. Mas, vendo o nome me recordei que essa foi a linguagem que dei uma olhada antes de criar a XScript. Ou seja, foi a "inspiração". Não sabia que ela continuava a ser desenvolvida. Muito legal. Abraços, Graymalkin