Graymalkin

Assim: import os print os.getcwd() Certo? ;) Graymalkin

Mas, não dá nenhuma mensagem de erro? Abraços, Graymalkin

string s = "Renyo, Borges,"; s = s.SubString(0, s.Length-1) Ou seja, pegue s.Length (comprimento da string) -1 caracteres a partir do primeiro caracter (índice 0). Abraços, Graymalkin

Sim, pode ser. Tente usar VBA.Left() e veja se ocorre a mesma coisa. Abraços, Graymalkin

Como assim? Explique melhor o que você quer fazer. Abraços, Graymalkin

Os subitens vão exatamente na ordem em que as colunas aparecem. Supondo que estes sejam os nomes dos campos na tabela, seria: While Listar.Read Dim it As ListViewItem = ListView1.Items.Add(Listar("Nome").ToString()) it.SubItems.Add(Listar("Endereço").ToString()) it.SubItems.Add(Listar("CEP").ToString()) it.SubItems.Add(Listar("Estado").ToString()) it.SubItems.Add(Listar("Bairro").ToString()) it.SubItems.Add(Listar("Telefone").ToString()) End While Abraços, Graymalkin

Você vai fazer algo assim: While Listar.Read Dim it As ListViewItem = ListView1.Items.Add(Listar("coluna1").ToString()) it.SubItems.Add(Listar("coluna2").ToString()) it.SubItems.Add(Listar("coluna3").ToString()) it.SubItems.Add(Listar("coluna4").ToString()) it.SubItems.Add(Listar("coluna5").ToString()) it.SubItems.Add(Listar("coluna6").ToString()) End While Note que a primeira coluna é o item e as demais são os subitens. Abraços, Graymalkin

Você pode fazer assim: Dim resposta As MsgBoxResult = MsgBox("Gostaria de inserir outra ordenha?", MsgBoxStyle.YesNo) If resposta = MsgBoxResult.Yes Then txtNroOrdenha.Clear() txtQtidade.Clear() Else 'Aqui já vai ser automaticamente o "Não" já que se o cara não respondeu "Sim" é porque clicou no "Não" cmbMatriz.SelectedValue = -1 cmbMatriz.Text = String.Empty txtNroOrdenha.Clear() txtQtidade.Clear() End If Agora, explica melhor o caso do total da produção do leite, porque eu não entendi bem. Abraços, Graymalkin

A mensagem de erro toda é exatamente esta? "Expected array"? E qual o número do erro? Abraços, Graymalkin

Você está tentando usar a conexão antes de abrí-la: 1) Dim Validar As MySql.Data.MySqlClient.MySqlDataReader = Validar_Funcionario(" Select * from login where Usu = '" & usuario.Text & " and Sen = '" & senha.Text & "' ") 2) If Conexao_Mysql() Then A função Validar_Funcionario() vai tentar usar a conexão que só vai ser aberta na segunda linha. Abraços, Graymalkin

Supondo que todos os campos são do tipo text (varchar), acho que a linha que forma a sua instrução SQL deveria ser... cursor.execute("INSERT INTO nomes (nome, ende, tele) VALUES ('%s', '%s', '%s')" % (nom, end, tel)) ..., não? Abraços, Graymalkin

opa graymalkin. o xplayer foi feito no visual basic 6?? Sim, kuroi, foi feito no VB6. Fruto de aproximadamente 6 anos de desenvolvimento! :D Cara, deve ter sim. O lance é saber quando a janela é movimentada (não tem um evento para isso), o que creio ser possível fazer monitorando as mensagens enviadas à janela. No final de semana vou dar uma pesquisada a respeito. Abraços, Graymalkin

Cara, posso até estar errado, mas acho que você só deve conseguir isso via VB (e não VBS). Mas, teoricamente é possível criar uma DLL em VB6 para isso e utilizá-la no VBS sem problemas. Mas, o script a que você se refere é executado localmente, certo? Você não está querendo executá-lo através de uma página no navegador, correto? Abraços, Graymalkin

Bom, não sei se vai te servir, mas eu faço o seguinte no XPlayer para ter este efeito (cole o seguinte código no form de um novo projeto e adicione um Form2): Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Form_Load() Form2.Show 'Aqui o segundo form é carregado End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then ReleaseCapture SendMessage Me.Hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& Form2.Top = Me.Height + Me.Top 'Aqui o segundo form é reposicionado Form2.Left = Me.Left End If End Sub Você tem que movimentar a janela clicando na parte cinza da mesma (não pela barra de título). Veja que a outra janela será reposicionada abaixo da mesma. Abraços, Graymalkin

Sim, mas eu não acho uma boa prática usar sem, porque fica parecendo que é uma variável (e não que é uma caixa de texto). Isso acontece porque no VB6 existem as propriedades padrões. Abraços, Graymalkin

Sim, você pode executar algo usando Process.Start(). Abraços, Graymalkin

Você tem que dar uma estudada sobre escopos de objetos. Eles determinam onde um objeto está e sua acessibilidade. Por exemplo, ao declarar um objeto dentro da rotina Teste() ele só será visível dentro da mesma: Sub Teste() Dim x As New Classe() ... '"x" só existe até aqui! End Sub Se você quer utilizar um mesmo objeto em duas rotinas diferentes você deve colocá-lo em um escopo comum a ambos, como no exemplo do meu post anterior. E se você quiser usar o mesmo objeto em diferentes partes do programa também pode colocá-los em um módulo (Module), a fim de que eles se tornem globais ao projeto todo. Abraços, Graymalkin

Ops, sua dúvida está no local errado. Movendo para Microsoft Windows. Abraços, Graymalkin

Passe o caminho entre aspas se tiver espaços. Exemplo: caminho = chr(34) & "c:\nome da pasta\img.jpg" & chr(34) Abraços, Graymalkin

Neste caso você deve usar o operador & para concatenar (juntar) strings. No seu caso seria: Client.ImportODBCFile "A", dbName, FALSE, ";DSN=" & Dlg1.EditBox_2.Text & ";UID=" & Dlg1.EditBox_3.Text & ";PWD=" & Dlg1.EditBox_4.Text & ";SERVER=" & Dlg1.EditBox_5.Text & ";", Dlg1.EditBox_1.Text Abraços, Graymalkin

Como assim? Que código você usa para abrir? E qual o WindowState das janelas? Abraços, Graymalkin

Sim. Sim, não há diferença no caso. Não, o bd criado pelo shelve nem se compara a um banco de dados cliente-servidor como os citados. Não é possível, por exemplo, acesso de escrita concorrente (ou seja, dois usuários não poderão inserir dados no banco ao mesmo tempo). Sem falar que o acesso aos dados também pode ir ficando gradativamente mais lento a medida que mais registros são inseridos. Agora, se for somente para leitura (por exemplo, para criar páginas de acordo com informações do banco), então creio que não haja problema em utilizá-lo. Abraços, Graymalkin

Tente colocar o valor null na SQL ao invés da data em branco. Abraços, Graymalkin

Sempre faça uma busca no fórum antes de postar. ;) Veja estes tópicos: http://scriptbrasil.com.br/forum/index.php...;hl=progressbar http://scriptbrasil.com.br/forum/index.php...;hl=progressbar http://scriptbrasil.com.br/forum/index.php...;hl=progressbar Abraços, Graymalkin

Sem dúvida, em termos de performance, a ArrayList sai perdendo. Isso porque ela não é tipada (tudo que é adicionado é Object) e consequentemente perde no tempo de acesso. Já uma coleção tipada (como uma List(Of T) ou uma Queue(Of T)) tem uma performance muito melhor porque lida com o tipo especificado. Veja um teste que fiz aqui: Dim máximo As Integer = 1000 Dim fila As New Queue(Of Integer)(máximo) Dim alista As New ArrayList(máximo) Dim lista As New List(Of Integer)(máximo) Dim retirado As Integer Dim tempoInicial As TimeSpan Dim tempoFinal As TimeSpan tempoInicial = Now.TimeOfDay For i As Integer = 1 To 10000 If fila.Count = máximo Then retirado = fila.Dequeue() End If fila.Enqueue (i) Next tempoFinal = Now.TimeOfDay Debug.Print("Tempo (queue):" & (tempoFinal - tempoInicial).Milliseconds) tempoInicial = Now.TimeOfDay For i As Integer = 1 To 10000 If alista.Count = máximo Then alista.RemoveAt (0) End If alista.Add (i) Next tempoFinal = Now.TimeOfDay Debug.Print("Tempo (arraylist):" & (tempoFinal - tempoInicial).Milliseconds) tempoInicial = Now.TimeOfDay For i As Integer = 1 To 10000 If lista.Count = máximo Then lista.RemoveAt (0) End If lista.Add (i) Next tempoFinal = Now.TimeOfDay Debug.Print("Tempo (list):" & (tempoFinal - tempoInicial).Milliseconds) Os resultados em relação a ArrayList variam (foram de 15 a 31 milissegundos), mais a fila permaneceu sempre em 0 e a lista em 15. Ou seja, a fila (Queue) é a melhor opção em performance. Abraços, Graymalkin