-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
Acredito que se for uma imagem com uma boa qualidade e com um fundo de outra cor dá pra verificar cada pixel dela com a função GetPixel da API Win32 e determinar onde ela começa e onde termina. Você encontra a declaração desta função e exemplos de utilização dela no API-Guide: http://www.allapi.net/ ou http://www.mentalis.org/ Abraços, Graymalkin
-
E o que você não conseguiu fazer? Ler os três valores? Ou determinar qual é o menor? Se for o caso de ler, você pode utilizar scanf() para isso. Se for o caso de determinar qual é o menor basta você utilizar alguns ifs para isso (não vale eu dizer quais seriam as condições destes ifs porque se não perde a graça do exercício). Abraços, Graymalkin
-
Você já tentou abrir esse arquivo no Access? Aqui funciona perfeitamente com o código do seu amigo (você só não deveria colocá-lo em um Timer). Eu coloquei o seguinte no evento Click de um botão: cnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Biblio.mdb;" cnnBiblio.Open E não deu erro algum. Abraços, Graymalkin
-
Por que você utiliza este código em um Timer? E, além disso, retire a linha... On Error GoTo errConexao ... para você poder ver qual é *exatamente* o erro que está ocorrendo. Abraços, Graymalkin
-
Verificando Se O Cadastro Foi Concluido Com Sucesso
pergunta respondeu ao |Alucard| de Graymalkin em .NET
Sem problemas. :) Fechando. Graymalkin -
Na verdade o MS-DOS como o conhecemos só era utilizado como Boot Loader no Windows 95, pois a partir do Win98 até mesmo o carregamento foi modificado. Outro detalhe é que o acesso a arquivos no DOS era de 16 bits e já desde o Windows 3.11 introduziu-se o acesso de 32 bits a arquivos. Por esta razão, *não* se pode dizer que o Windows hoje tenha o DOS "rodando por trás". E isso é ainda menos verdadeiro em relação ao Windows XP porque o mesmo deriva da plataforma NT que já nasceu como 32 bits. Abraços, Graymalkin
-
Verificando Se O Cadastro Foi Concluido Com Sucesso
pergunta respondeu ao |Alucard| de Graymalkin em .NET
Lembra o que eu disse sobre "sair explicítamente do programa"? Você está fazendo isso aqui: Catch ex As Exception MsgBox("Ocorreu um erro:" + Chr(13) + ex.Message, MsgBoxStyle.Critical, "Erro!") --> End <-- End Try Sacou? ;) Retire a linha marcada que vai dar certo. Graymalkin -
Não seria só abrir a tabela de usuários e procurar pelo nome do usuário selecionado? Acredito que você possa fazer isso com um DataReader (e acho que existem exemplos disso aqui no fórum). Abraços, Graymalkin
-
Verificando Se O Cadastro Foi Concluido Com Sucesso
pergunta respondeu ao |Alucard| de Graymalkin em .NET
O Try... Catch *já* impede isso, a não ser que *você* esteja explicítamente saindo do programa. Você pode postar o código que está utilizando? Abraços, Graymalkin -
Verificando Se O Cadastro Foi Concluido Com Sucesso
pergunta respondeu ao |Alucard| de Graymalkin em .NET
Para isso existe o bloco Try... Catch, que permite que você "tente" (Try) algo e "pegue" (Catch) algum erro, se ocorrer, é claro. Dê uma pesquisada sobre tratamento de erros e você vai entender isso melhor. Abraços, Graymalkin -
Declare a seguinte string na sua classe do WebForm: Dim sAnterior As String = "< Página Anterior</a> <span> | Página {0} de {1} | </span>" Depois, coloque o seguinte no evento Load do form (e/ou após a parte que você carrega os dados da DataGrid): With DataGrid1.PagerStyle .Mode = PagerMode.NextPrev .PrevPageText = String.Format(sAnterior, DataGrid1.CurrentPageIndex + 1, DataGrid1.PageCount) .NextPageText = "Próxima Página >" End With DataGrid1.DataBind() E coloque o seguinte no evento PageIndexChanged da DataGrid: Dim sender As DataGrid = source sender.CurrentPageIndex = e.NewPageIndex DataGrid1.PagerStyle.PrevPageText = String.Format(sAnterior, sender.CurrentPageIndex + 1, sender.PageCount) sender.DataBind() Fiz assim e teve justamente o resultado que você quer. Abraços, Graymalkin
-
Bom, veja se sobrescrever o método GetColumnValueAtRow() de uma DataGridTextBoxColumn é suficiente para você. Declare a seguinte classe: Private Class MaskColumn Inherits DataGridTextBoxColumn Protected Overrides Function GetColumnValueAtRow(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Object Dim valor As Object = MyBase.GetColumnValueAtRow(source, rowNum) Dim retorno As String = "" If Not valor Is Nothing Then retorno = String.Format("{0:##,###,####}", valor) Else retorno = "" End If Return retorno End Function End Class Depois basta colocar um estilo de campo utilizando a classe acima no lugar de uma DataGridTextBoxColumn. Certo? ;) Graymalkin
-
Qualquer versão superior ao Access 97 (e o Access XP é) vai precisar do Jet 4.0. Se você puder postar o código de conexão fica mais fácil de ajudar. Abraços, Graymalkin
-
Como assim, "não funcionou"? Graymalkin
-
Opa, no VS 2005 é ainda mais fácil. Basta ir no evento MouseMove do *botão* e colocar: sender.ShowDropDown() E pronto! :) Abraços, Graymalkin
-
Sim, você está utilizando o VS 2005, né? Você *não* disse isso, e se referiu a ToolBar, por isso achei que você estivesse no 2003 ou 2002 (isso porque no 2005 ela se chama ToolStrip). Vou tentar reproduzir esse código no 2005 para ver quais são as diferenças. Abraços, Graymalkin
-
Se serviu, beleza então. :D Abraços, Graymalkin
-
Então seria isso aqui: Label1.Caption = Combo1.List(Combo1.ListIndex) Note que é List ao invés de ItemData. Certo? ;) Graymalkin
-
Qual o tipo de porta? É paralela ou serial? Abraços, Graymalkin
-
Utilizando a função SetParent() da API Win32 dá pra colocar um form transparente dentro de um MDIParent, porém a barra de título da janela (juntamente com os botões de minimizar, maximizar e fechar) pára de aparecer (aliás, ela pisca quando você move a janela). Se quiser experimentar aí, declare a seguinte função: Public Declare Auto Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer E depois faça o seguinte: Dim k As New Form2 SetParent(k.Handle.ToInt32(), Me.Handle.ToInt32()) ' Tem o mesmo efeito que "k.MdiParent = Me" k.Show() Onde Form2 é o form desejado. Certo? ;) Abraços, Graymalkin
-
Não, já que esta é uma medida de segurança do Outlook Express para impedir que programas maliciosos se aproveitem da sua conta de e-mail. Todavia, se você quer ter um controle maior, você pode enviar e-mails *sem* que qualquer programa de correio eletrônico (Outlook, Outlook Express, Eudora, etc.) esteja configurado. Para tanto, dê uma olhada no componente Py.Sendmail: http://www.gs.kitbr.com/pysendmail.html Abraços, Graymalkin
-
Já deu uma olhada nestes tópicos... http://scriptbrasil.com.br/forum/index.php?showtopic=58466 http://scriptbrasil.com.br/forum/index.php?showtopic=34744 ... ? Acho que aí tem dicas para ambos os controles. Abraços, Graymalkin
-
Veja se o seu BD tem uma função para converter de data para string, daí sim você vai poder utilizar o LIKE. Abraços, Graymalkin
-
Experimente colocar isso aqui no evento MouseMove da Toolbar: Dim também As ToolBar = sender For Each bt As ToolBarButton In também.Buttons If Not bt.DropDownMenu Is Nothing Then If (e.X >= bt.Rectangle.X And e.X <= bt.Rectangle.X + também.ButtonSize.Width) And (e.Y >= bt.Rectangle.Y And e.Y <= bt.Rectangle.Y + também.ButtonSize.Height) Then Dim m As ContextMenu = bt.DropDownMenu bt.Pushed = True m.Show(também, New Point(bt.Rectangle.X, bt.Rectangle.Y + também.ButtonSize.Height)) End If End If Next Veja se faz o que você quer. Abraços, Graymalkin
-
Sim, o Py.Sendmail: http://www.gs.kitbr.com/pysendmail.html Tem um exemplo em VB e nele tem uma parte do código comentada (no botão de envio) que é justamente a definição das propriedades usuário e senha, caso haja autenticação. Abraços, Graymalkin