Xistyle

Cara, sugiro você a criar um Windows Form normal. Só que o Load dele você dá um Hide() e já coloca ele no NotifyIcon (SysTray). Depois montar uma forma dele ser executado no início do Windows. O serviço em si não interage com o usuário. Caso queira criar um serviço mesmo, crie um projeto do tipo Windows Service. Windows Service: http://www.codeguru.com/vb/gen/vb_system/s...ticle.php/c4825

Não entendi... você quer apenas mudar o valor da variável? string texto = "meu nome é ianez"; texto = "meu nome é zenai";

Tente passar o seguinte código, levando em consideração que sua ListBox1 contém o caminho completo do arquivo: AxWindowsMediaPlayer1.URL = ListBox1.Text Caso não funcione, dê uma olhada neste tópico: http://social.msdn.microsoft.com/Forums/en...8-cdaf0e078a19/

Cleiton, gravar diretamente num txt, sem ser linha por linha eu desconheço. Se optar por trabalhar com outra estrutura de arquivos, pode extrair diretamente para um XML, usando o método WriteXML de um DataSet (http://forums.asp.net/t/1441971.aspx/1).

Binder, dê uma olhada nos artigos do Macoratti. Sempre têm bons exemplos e de linguagem prática. http://www.macoratti.net/aspn_dbc.htm

Você pode colocar como padrão todas as suas variáveis de valores monetários como Double. Com isso, você pode ter apenas uma rotina de formatação desses valores, tanto para carregar na grid quanto para salvar no banco.

Só de analisar o código parece normal, levando em conta suas observações quanto às configurações. Qualquer coisa faça o seguinte: disponibilize esse form com um banco de dados com os valores alterados em um site de armazenamento e me passe o link por mensagem. Eu baixo esse form com o banco (pode ser apenas a tabela com os valores modificados) e executo por aqui, fazendo uma série de testes, tentando entender melhor o funcionamento. OBS: verifique a tipagem da sua variável. Pelo que entendi, a variável que apresenta o problema de conversão é a "avalor_unitario_saidas©". Essa variável está declarada como String. Faça a declaração dele como Double ou Currency (ou até mesmo Decimal, mas prefiro o uso de Double pois é mais preciso).

Agora que vi seu código editado no post anterior. Então, seu código carrega os valores provenientes do SELECT. Mas a grid não está fazendo a formatação do valor, com duas casas decimais. Supondo que o valor que você queira formatar esteja nessa linha: avalor_unitario_saidas© = vleitor("valor_unitario_saidas") Se você aplicar aquele FormatCurrency (sem o Replace) nessa linha não funcionaria o carregamento (levando em consideração que a gravação está correta)?

No item A, significa mudar o tipo de dados do seu campo. Mudando seu valor pra texto, quando você inserir 1234,50, vai aparecer 1234,50. Ao contrário do numérico/moeda, quando você tem 1234,50 ele formata automaticamente para 1234,5. Mas isso não é uma boa prática de programação. Normalmente para esses casos são feitas as formatações necessárias, que seria o item B.

Cara, você vai ter duas soluções, pelo que entendi seu problema: a. Mudar o campo do seu banco de numérico para string; b. Formatar as casas decimais da sua grid. Quando você substitui o R$ por nada, esse valor é salvo no banco? Como você carrega sua grid? Pois pelo que tu explicou, a grid está carregando os dados do TextBox, aparentemente. Vamos focar na solução que lhe passei, formatando os dados. Esse problema de carregar e exibir 1234,5 ao invés de 1234,50 é relacionado à formatação de casas decimais.

Rafael, você está procurando por um nome de funcionário no campo ID? Não sei como está a estrutura da sua tabela, mas normalmente os campos ID são numéricos. O correto não seria: "SELECT funcionario_funcionario.funcionario_id, funcionario_funcionario.funcionario_nome, funcionario_funcionario.funcionario_telefone, funcionario_funcionario.funcionario_id, funcionario_cargo.funcionario_cargo_nome, funcionario_cargo.funcionario_cargo_id FROM funcionario_funcionario INNER JOIN funcionario_cargo on funcionario_cargo.funcionario_cargo_id = funcionario_funcionario.funcionario_cargo_id where funcionario_funcionario.funcionario_nome = '" & txt_funcionarioLIST.Text & "'" ?

Cara, testei esse código e funcionou. Precisa pressionar uma tecla qualquer para iniciar. Montei uma classe específica para a Cobra, para organizar melhor. Isso vai facilitar, por exemplo, quando você alimentar a cobra, pois vai adicionar apenas mais um Chr(1) ao objCobra.Caracter. Module Module1 Class Cobra Private intTamanho As Integer Private intPosicaoX As Integer Private intPosicaoY As Integer Private objCor As ConsoleColor Private strCaracter As String Public Property Tamanho() As Integer Get Return intTamanho End Get Set(ByVal value As Integer) intTamanho = value End Set End Property Public Property PosicaoX() As Integer Get Return intPosicaoX End Get Set(ByVal value As Integer) intPosicaoX = value End Set End Property Public Property PosicaoY() As Integer Get Return intPosicaoY End Get Set(ByVal value As Integer) intPosicaoY = value End Set End Property Public Property Cor() As ConsoleColor Get Return objCor End Get Set(ByVal value As ConsoleColor) objCor = value End Set End Property Public Property Caracter() As String Get Return strCaracter End Get Set(ByVal value As String) strCaracter = value End Set End Property End Class Sub Main() Dim tecla, ultimaPosicaoX, ultimaPosicaoY, velocidade As Integer Dim objCobra As New Cobra objCobra.Cor = ConsoleColor.Cyan objCobra.Tamanho = 1 objCobra.PosicaoX = 40 objCobra.PosicaoY = 12 objCobra.Caracter = Chr(1) velocidade = 500 'Pode aumentar de acordo com o tamanho While True While Not Console.KeyAvailable Console.SetCursorPosition(ultimaPosicaoX, ultimaPosicaoY) Console.Write(" ") Console.SetCursorPosition(objCobra.PosicaoX, objCobra.PosicaoY) Console.ForegroundColor = objCobra.Cor Console.Write(objCobra.Caracter) ultimaPosicaoX = objCobra.PosicaoX ultimaPosicaoY = objCobra.PosicaoY Threading.Thread.Sleep(velocidade) If tecla = 40 Then objCobra.PosicaoY = objCobra.PosicaoY + 1 End If If tecla = 39 Then objCobra.PosicaoX = objCobra.PosicaoX + 1 End If If tecla = 37 Then objCobra.PosicaoX = objCobra.PosicaoX - 1 End If If tecla = 38 Then objCobra.PosicaoY = objCobra.PosicaoY - 1 End If If tecla = 27 Then Exit While End If End While tecla = Console.ReadKey().Key End While End Sub End Module

Você deve passar apenas o valor, sem os caracteres que indicam a moeda. Precisa-se tratar esse valor portanto. Também sugiro que dê um replace na vírgula para ponto, que é o padrão usado.

Exatamente... o erro está relacionado ao não preenchimento dos valores. Você deve tratar isso, de duas formas: 1. Carregando 0,00 para os campos quando iniciar o Form; 2. Quando for Salvar: a. Informar o usuário que ele deve preencher os dados, não concluindo a gravação no banco; b. Substituir os campos não digitados por zero para que possa ser inserido no banco.

Se você usou o código dentro do bloco Try/Catch, como coloquei acima com um MessageBox, vai aparecer uma mensagem de erro. Você pode montar uma validação de número usando o método IsNumeric, antes de realizar a multiplicação.