mestre fyoda

quando vou colocar no vb.net fala que não é um modulo do Microsoft.net

eu li que é para a versão .net 1.1 :) to usando a 2.0, será que roda ?

qual você usa ? Foi resolvido com o comando : Procurar.SelectionLength.ToString()

Veja que quando você tem um maskedtextbox e tem uma maskara 999.999.999-99 , quando o user digita 111.111.111-1 e deixa o foco o campo fica faltando um numero ! Caso o usuario volte ao campo, o cmpo vai ficar faltando um numero e usuario vai ter que dar um backspace para que ele digite algo, como eu posso fazer para que ao voltar ao campo faltando um numero ele dar o foco no numero faltando ?

Perfeito Graymalkin :)

Resolvido o problema !

Hehehe minha duvida está em precionar 2 teclas como Alt + S , como eu faço ?

Eu sei que tem algo de errado na function pois não está inserindo no banco de dados ! o que está errado ? Public Function ExecutaOracle(ByVal query As String) As Oracle.DataAccess.Client.OracleDataReader Dim ExecutarQuery As New Oracle.DataAccess.Client.OracleCommand(query, Conexao) Dim Ok As Oracle.DataAccess.Client.OracleTransaction = Conexao.BeginTransaction() MessageBox.Show(Left(query, 1)) If Left(query, 1) <> "S" Then Return ExecutarQuery.ExecuteReader() Ok.Commit() Else Return ExecutarQuery.ExecuteReader() End If End Function

Até aonde eu sei não existe não, e se tratando de Micro$oft acho isso algo impossivel :)

eu percebi o seguinte, quando eu executo o programa a variavel fica vazia, mas quando o usuario digita user e senha corretos ele gaurda um valor, e esse valor não está aparecendo ! Se eu setar essa variavel no module com o valor = "Teste" aparece teste mas se eu não setar não aparece nada !

No login.vb é a tela inicial login.vb NomeFuncionario = Validar("Nome") NomeFuncionario recebe o nome do funcionario logado ! Mas como eu faço para mudar o valor da variavel NomeFuncionario que está declarada como Public no Module e depois resgatar o novo valor ?

Heheheh valeu eu estava tentando limpas mas não estava usando certo! Dim it As ListViewItem = Lista.FindItemWithText(ProcurarCliente.Text) Lista.SelectedItems.Clear() it.Selected = True Lista.EnsureVisible(it.Index) Lista.Focus()

queria fazer uma função para passar o nome do formulario e depois pesquisar dentro a listview e selecionar automaticamente a linha do cliente procurado !

Dim it As ListViewItem = ListView1.FindItemWithText("texto a procurar") it.Selected = True ListView1.EnsureVisible(it.Index) ListView1.Focus() Está nesse tópico http://scriptbrasil.com.br/forum/index.php?showtopic=77822# Mas eu encontrei um problema, quando eu acho um usuario ele seleciona o usuario, caso eu venha pesquisar mais um usuario , fica selecionado o usuario anterior e o usuario atual e assim sucivamente, porque isso está acontecendo ?

Public Function Procurar( ByRef Formulario As Form) As String Dim item1 As ListViewItem = Nothing If Formulario.Lista.Items.Count > 0 Then item1 = Formulario.Lista.FindItemWithText("Rafael", False, 0, True) item1.Selected = True Formulario.Lista.EnsureVisible(item1.Index) Formulario.Lista.Focus() End If If (item1 Is Nothing) Then MsgBox("Ce début de texte n'existe pas !") End If End Function Como eu faço para chamar essa função passando o parametro com o nome do formulario usando um keypress ? A lista é o nome da ListView !

veja bem ali eu fiz o seguinte peguei a string[na ultima posição]. string.length( conta os caracters contido na string). o que deu de errado ?

coloque isso e veja se dá certo ! apagar = string[string.length]; retirar = Replace(string, apagar, ""); Se não der certo avisa ai !

agora entendi , o VB.Net mudou totalmente comparado com o VB6 ! Demorou mas saiu algo decente :) Uma perguntinha como eu faço para usar um for e somar i ?

axo que eu escrevi errado, a minha listview esta da seguiinte maneira : Nome Endereço Cep Estado Bairro Telefone como eu consigo identificar que o valor vai para o Nome, Endereço, Cep, Estado, Bairro e Telefone ?

Sei que isso está errado pois eu tenho 6 colunas e sei que vou usar um lço de repetição mas não sei como utilizar para percorrer essas 6 colunas !

malz ai, nem tinha reparado nisso !

Erro: A first chance exception of type 'System.InvalidOperationException' occurred in MySql.Data.dll An unhandled exception of type 'System.InvalidOperationException' occurred in MySql.Data.dll Additional information: Connection must be valid and open The thread 0xc00 has exited with code 0 (0x0). The program '[2824] Sistema.vshost.exe: Managed' has exited with code -532459699 (0xe0434f4d). Login.vb Public Class Login Private Sub fechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fechar.Click Close() End Sub Private Sub entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles entrar.Click Dim Validar As MySql.Data.MySqlClient.MySqlDataReader = Validar_Funcionario(" Select * from login where Usu = '" & usuario.Text & " and Sen = '" & senha.Text & "' ") If Conexao_Mysql() Then If Validar.HasRows = True Then While Validar.Read MessageBox.Show(Validar.Item(1).ToString) End While End If End If Validar.Close() End Sub End Class Modulo.vb Module Modulo Public Conexao As MySql.Data.MySqlClient.MySqlConnection Function Conexao_Mysql() As Boolean Dim Conexao = New MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=projeto;Uid=root;Pwd=janio1") Try Conexao.Open() Return True Catch erro As Exception MessageBox.Show("Ocorreu um erro ao inicializar a conexão: " & erro.ToString()) Return False End Try End Function Function Validar_Funcionario(ByVal Query As String) As MySql.Data.MySqlClient.MySqlDataReader Dim Comando As New MySql.Data.MySqlClient.MySqlCommand(Query, Conexao) Return Comando.ExecuteReader() End Function End Module

Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /modulos/class_pedido.asp, line 2 Class Pedido A linha 2 é Class Pedido

index.asp <% Dim Total_Pedido, Total_Info Set Total_Pedido = New Pedido Set Total_Info = New InfoPedido Set Total_Info = Total_Pedido.TotalPedido( Session("num_ped"), Session("frete_pedido")) %> class_pedido.asp

Estou precisando de um codigo que abre uma pagina dentro de uma div utilizando o metodo POST. E tambem que funcione acentos nessa função.