Graymalkin

Então você *não* está trabalhando com textos no formato ASCII/ANSI. Provavelmente o texto é Unicode ou UTF-8. Este caracter que você vê como uma interrogação deve ser composto por 2 ou mais bytes no arquivo. Até porque, a tabela ASCII/ANSI só tem mesmo 256 caracteres. Acima disso só com Unicode. Então, aconselho você dar uma lida sobre o assunto. Abraços, Graymalkin

Para isso daí você não precisa do Delphi; grave uma macro no VBA do Excel e modifique-a do jeito que quiser. Abraços, Graymalkin

Sim, o método IndexOf() de uma string ou a função InStr(). Preferivelmente é mais interessante usar o primeiro. Abraços, Graymalkin

Hehehe... não precisa se desculpar! E não, você não está enchendo o saco. Dúvidas devem ser respondidas. Aliás, esta sua dúvida é muito pertinente. No caso, Object é o tipo "pai-de-todos". Ou seja, todos os demais tipos (referência) derivam de Object. Por isso, e pela regra de polimorfismo, um objeto do tipo filho pode ser referenciado por um objeto do tipo pai. No caso em questão, Obj poderá ser um Form, um TabControl ou uma TabPage. Então, você não pode definir o tipo como Form, se não vai dar erro quando você tentar passar um TabControl ou uma TabPage. E o mesmo vale para estes dois. Agora, se você declara como um tipo que pode referenciar qualquer um deles, que foi o caso, será válido passar um Form, um TabControl ou uma TabPage. Ah, e no caso em questão, no lugar de Object poderia ser Control. Isso porque todos os três na verdade são herança direta de Control. Capisce? ;) Graymalkin

GetType() retorna um objeto que representa o tipo do objeto (Type). Caso o tipo seja "TabControl" ou "TabPage", a própria função será chamada passando agora o referido objeto. Isso é uma função recursiva, ou seja, ela chama a si própria. Abraços, Graymalkin

Estamos a tentar ajudar-te em teu outro tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=102004 Mas, tu precisas responder aos nossos questionamentos. Abraços, Graymalkin

Marque uma referência (menu Project -> References...) ao Microsoft Excel x.0 Object Library, onde no lugar de "x" vai ter a versão disponível aí no seu computador. Depois disso você vai ter as duas funções disponíveis em Excel.WorksheetFunction. Abraços, Graymalkin

Dê uma procurada sobre a função ShellExecute() da API Win32. Abraços, Graymalkin

Faça a rotina ser recursiva: Public Sub acesso(ByVal bloquear As String, ByVal Obj As Object) For Each x As Control In Obj.Controls Select Case x.GetType().Name Case "TabControl", "TabPage" acesso(bloquear, x) Case "CheckBox" Dim chk As CheckBox = x MessageBox.Show(chk.Name & " = " & chk.Checked.ToString()) End Select Next x End Sub Daí você poderá fazer (no form): acesso("incluir_itens,deletar_itens", Me) Certo? ;) Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=16667 E sempre faça uma busca antes de postar, ok? ;) Abraços, Graymalkin

Os caracteres das tabelas ASCII e ANSI são os caracteres manipulados pelo VB. Se você está tendo problemas é porque deve estar usando determinadas fontes em que os caracteres são representados de forma gráfica diferente da forma textual. Você pode dar um exemplo do problema? Abraços, Graymalkin

Se não me engano, é só setar a propriedade Handled do objeto e para True. Meio óbvio isso, né? O ENTER é que ativa o botão! Ou você sempre clica em um botão para ativá-lo???? :rolleyes: Abraços, Graymalkin

Então, você tem que percorrer os controles da tabcontrol e não do form. Abraços, Graymalkin

Não deveria ter nada errado em fazer type(1). Então, você pode postar o código do exercício? Abraços, Graymalkin

Peço imensas desculpas, esqueci-me de referir isso, o erro que ele aponta é ".ActiveConnection = cnnBiblio" .... Mas, qual é a mensagem de erro? Abraços, Graymalkin

Agregação, coleção, vetor? Mas, qual a linguagem? E o que realmente você precisa? Abraços, Graymalkin

Então, é só fazer o seu programa gravar a chave específica no Registro na primeira vez que ele for iniciado. Abraços, Graymalkin

Mas, pra quê? :blink: O código não é visível para os visitantes, sendo somente para quem tenha acesso ao arquivos do site. Abraços, Graymalkin

A CheckBox está realmente no form? Ou dentro de um painel no form? Abraços, Graymalkin

Sim, pra isso tem o DataReader (SqlDataReader, no seu caso). Não uso o SQL Server, mas um exemplo de utilização seria mais-ou-menos assim: Dim cn As New SqlClient.SqlConnection("SUA_STRING_DE_CONEXÃO") cn.Open() Dim cmd As New SqlClient.SqlCommand("SELECT * FROM tabela WHERE condição", cn) Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection) If dr.HasRows Then Do While dr.Read() MessageBox.Show(dr("campo")) Loop End If Certo? ;) Graymalkin

Como assim? Não é pra ser *tudo* aleatório? Graymalkin

Fiz um basicão, usando wxPython: import wx import sys import StringIO class CalcExp(wx.Frame): def __init__(self, parent, titulo): self.Objetos = {} wx.Frame.__init__(self, parent, -1, titulo, size=(230, 250)) painel = wx.Panel(self, -1, size=(200, 100)) self.Expressao = wx.TextCtrl(painel, 1, "", wx.Point(10, 10), style=wx.TE_PROCESS_ENTER, size=(200, 20)) self.Resultado = wx.TextCtrl(painel, 2, "", wx.Point(10, 40), style=wx.TE_MULTILINE, size=(200, 100)) wx.EVT_TEXT_ENTER(self, 1, self.Calcular) self.Show(True) def Calcular(self, e): expressao = self.Expressao.GetValue() sIO = StringIO.StringIO() sys.stdout = sIO try: resultado = "%s = %s" % (expressao, eval(expressao, self.Objetos)) #Tentando uma expressão except Exception: try: exec expressao in self.Objetos #Tentando uma instrução resultado = expressao except Exception: #Não é nenhum dos dois! resultado = "#erro#" s = sIO.getvalue() self.Expressao.SetValue("") if s != "": self.Resultado.SetValue("%s => %s" % (expressao, s)) else: self.Resultado.SetValue(str(resultado)) e.Skip() app = wx.PySimpleApp() j = CalcExp(None, "Calculador de Expressões") app.MainLoop() Basta digitar a expressão e pressionar ENTER. Exemplos (digite na ordem ou observe os objetos utilizados): a = 2 b = 3 a+b print a+b 2+2 [x**2 for x in range(10)] lista = [1, 2, 3, 4, 5] for n in lista: print n def soma(n1, n2): return n1+n2 soma(2, 3) len("teste") 2==2 "teste"!="teste" Certo? ;) Faça uns testes aí e se algo não funcionar, me fale. Abraços, Graymalkin

Então, cole aqui como realmente aparece. Mas, também experimente colocar os espaços corretos. Abraços, Graymalkin

Use o Mozilla Control: http://www.iol.ie/~locka/mozilla/mozilla.htm Ele funciona igualzinho ao WebBrowser, só que usa o engine da Mozilla. Abraços, Graymalkin

Hehehe... :lol: Você conhece a rede IRC ou o mIRC? Se não, saiba que é tipo um bate-papo. Então, certa vez eu fiz um bot (um robô) para IRC que podia executar códigos em Python (mostrando o resultado direto na tela, para todo mundo) e que ainda por cima citava Goethe! :D Abraços, Graymalkin