Graymalkin

Você pode fazer isso com iterações (loops), não? Abraços, Graymalkin

Quais os erros que ele acusa para estas linhas? Graymalkin

Sim, dá no mesmo (apenas observe o caso de maiúsculas e minúsculas na string, no caso de TypeName()). Abraços, Graymalkin

Não seria mais simples e prático utilizar um If ou Select Case? Abraços, Graymalkin

Dê uma olhada no exemplo da função CreateFontIndirect da API Win32 disponível no API-Guide (http://www.allapi.net/). Abraços, Graymalkin

O código é quase todo igual, exceto a parte da definição do evento (em C# é pela sobrecarga de += e em VB.NET é pela instrução AddHandler). Aquela primeira parte: Dim l As New Label() Private Sub eventoTick(sender As Object, e As System.EventArgs) If l.Left+l.Width<Me.Width Then l.Left += 10 End If End Sub E, a segunda parte, no evento que deverá dar início ao movimento: Dim t As New Timer() l.Text = "teste" Me.Controls.Add(l) t.Interval = 100 AddHandler t.Tick, AddressOf Me.eventoTick t.Start() Certo? Graymalkin

FreeFile = "arquivo livre", ou seja, essa função retorna um número de arquivo livre. Esse número é utilizado para identificar um arquivo aberto. Esse código não está certo. O correto seria: open text1.text for input as #f E o "#" significa "number", ou seja, "número". A linha acima diz: abra (open) o arquivo (o caminho vai estar em text1.text) para leitura (input) como (as) o número (#) f. Certo? Graymalkin

Experimente trocar aquele 3 ali por 2. Abraços, Graymalkin

Estes tópicos aqui têm a idéia geral: http://scriptbrasil.com.br/forum/index.php?showtopic=37842 http://scriptbrasil.com.br/forum/index.php?showtopic=46532 http://scriptbrasil.com.br/forum/index.php?showtopic=59980 Abraços, Graymalkin

Tem que ser o KeyPress? Com o KeyUp deu pra fazer isso aqui: pos = TextBox1.SelStart texto = TextBox1.Text For i = 1 To Len(texto) c = Mid(texto, i, 1) If Not IsNumeric(c) Then texto = Replace(texto, c, "") End If Next i If pos > Len(texto) Then pos = Len(texto) If texto <> TextBox1.Text Then TextBox1.Text = texto TextBox1.SelStart = pos End If Só não entendo porque não colocar apenas KeyAscii=0 naquele código do evento KeyPress... Abraços, Graymalkin

Enviar muitos dados pelo socket faz com que os mesmos cheguem concatenados no destino. O ideal é enviar um dado e esperar por uma resposta do outro computador para só então enviar o próximo dado. Além disso, declarar x e y no evento Load não faz com que eles mantenham seus valores (isso deveria ser colocado no General Declarations, ou declará-las como Static dentro do próprio procedimento). Outra coisa interessante seria enviar a posição (coordenada) em que a respectiva cor deve ser "pintada". Abraços, Graymalkin

Eu só conheço ela. Abraços, Graymalkin

Declare isso dentro da sua classe: Label l = new Label(); void eventoTick(object sender, System.EventArgs e) { if ((l.Left+l.Width)<this.Width) l.Left += 10; } Depois, coloque isso no evento onde você quer que o movimento se dê início (um click de um botão, por exemplo): Timer t = new Timer(); l.Text = "teste"; this.Controls.Add(l); t.Interval = 100; t.Tick += new System.EventHandler(this.eventoTick); t.Start(); Certo? Graymalkin

Suponho que você esteja utilizando ADO, certo? Então, seria algo assim: rs.Open "SELECT * FROM tabela1 INNER JOIN tabela2 ON tabela1.chave=tabela2.chave;", cn, 2, 3 set mshflexgrid1.datasource = rs Onde "rs" é um ADODB.Recordset e "cn" é um ADODB.Connection (previamente aberto). Abraços, Graymalkin

E qual é o erro apresentado? Graymalkin

O retorno de getText() é uma String? Se for, deveria aceitar. Abraços, Graymalkin

beleza. Agora, se cadastra aí no fórum e ajude a nossa comunidade a crescer, ok? Abraços, Graymalkin

Sim, você pode fazer isso. Uma maneira seria abrir o arquivo via automação (para isso dê uma procurada aqui no fórum, sobre Excel.Application) e percorrer as células gerando uma instrução SQL de inclusão. Essa instrução seria então executada pelo seu objeto ADODB.Connection. Abraços, Graymalkin

E realmente tem que ser. No caso então, o que você deve estar querendo fazer é isso aqui: SQL = "Select * from table where ddd = " & numero Certo? Abraços, Graymalkin

Como assim "por nome"? Graymalkin

Aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=58482 http://scriptbrasil.com.br/forum/index.php?showtopic=59624 http://scriptbrasil.com.br/forum/index.php?showtopic=913 Abraços, Graymalkin

Já deu uma procurada aqui no fórum? Existem vários tópicos falando disso. Abraços, Graymalkin

Deu algum erro? Graymalkin

Veja se seria isso: for each c in me.controls if typeof c is textbox then msgbox c.name & " é uma textbox!" else msgbox c.name & " não é uma textbox!" endif next c Certo? Graymalkin

Dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=26147 Abraços, Graymalkin