Strous
-
Total de itens
13 -
Registro em
-
Última visita
Posts postados por Strous
-
-
Olá,
Vi a necessidade de alguns, no caso você e decidi postar um tutorial sobre o assunto, segue o link:
http://scriptbrasil.com.br/forum/index.php?showtopic=104076
Abraços.
-
Olá pessoal,
já publicada neste site uma matéria com o mesmo objetivo, porém nos comentários surgiram muitas dúvidas, então resolvi fazer esse passo-a-passo para essa função.
Vamos direto ao assunto:
1. Passo: Definir a imagem que vai ser o ícone
1) Selecione a imagem que você deseja que seja o ícone (geralmente é o logotipo do site);
- No meu exemplo vou usar o nome fictício logotipo.jpg
2) Abra a imagem no programa de edição favorito e reduza ela para o tamanho 16x16 ou 32x32 (pixels) e salve;
- Geralmente funciona com qualquer imagem, porém para não arriscar com os browsers e sistemas operacionais alternativos, use um desses tamanhos.
2. Passo: Transformando em ícone
3) No programa Paint do Windows, abra o arquivo logotipo.jg;
- Nesta momento, o arquivo já está 32x32 pixels, então é só salvar
4) Vá em Salvar como... e coloque as seguites comfigurações: (nessa ordem)
Salvar com tipo: Bitmap de 256 cores (*.bmp, *dib)
Nome do arquivo: favicon.ico (sim o paint salva ele com o nome que você quiser)
Botão Salvar
OBS: Os itens 2, 3 e 4 podem ser feitos no mesmo programa de edição, porém alguns programas sempre adicionam por conta própria a extensão (gif, jpg, bmp)
3. Passo: O ícone na pasta correta
5) Coloque o arquivo na raiz do seu site;
- Raiz do site é a pasta onde está o index.html do seu site, as vezes também é conhecido como Root.
- No servidor, geralmente a raiz é a primeira pasta que aparece no ftp, eu digo geralmente, porque alguns dominios oferecem outros recursos além da hospedagem então a raiz do site vira a pasta public_html
- A maioria dos navegadores (Firefox, Mozilla, Opera, Netscape e às vezes o Internet Explorer), aceita nativamente este arquivo, sem nenhuma outra informação, apenas bastando ele estar no mesmo diretório que o index.html da página.
- Mas quem usa templates, frames (iframes, frameset) e outros pode não funcionar direito, então para suprir essa situação, vamos incluir um código na págima
4. Passo: Código para refernciar o ícone aos navegadores
6) No arquivo desejado (geralmente o index.html) inclua o código abaixo dentro das tags <head>;
<link rel="shortcut icon" HREF="http://www.seusite.com.br/favicon.ico">
- As tag <head></head> (cabeçalho) definem muitas configurações da página, por esse motivo que o código deve ser colocado entre elas, conforme o exemplo abaixo:
Exemplo:
<html> <head> <link rel="shortcut icon" HREF="http://www.seusite.com.br/favicon.ico"> </head> <body> <h4>Adicione meu site nos seus favoritos</h4> </body> </html>
OBS: Lembro a todos que nem sempre o ícone favorito funciona com o Interner Explorer, mas em todos os testes com firefox, mozzila e outros, funcionou sem apresentar qualquer problema.
Créditos: luisx
PS.: Esse tutorial, meu amigo me mostrou em outro fórum, vi que tem muita gente precisando, e coloquei aqui, não sei o link da fonte original, se possuirem, poste aqui. -
-
Òtimo artigo Beraldo, isso aí é uma ótima referência para session.
Abraços.
-
Nesse tópico vou mostrar alguns links úteis para o seu estudo com HTML, XHTML e CSS, espero que seja de grande ajuda á você.
Aprendizado
http://www.ead.unicamp.br/minicurso/css/index.html
http://www.ead.unicamp.br/minicurso/html/
http://pt-br.html.net/tutorials/html/
http://pt-br.html.net/tutorials/css/
http://www.w3schools.com/html/default.asp
http://www.w3schools.com/xhtml/default.asp
http://www.w3schools.com/css/default.asp
http://scriptbrasil.com.br/forum/index.php?showforum=5
http://www.westciv.com/style_master/academ...rial/index.html
Certificações
http://www.w3schools.com/cert/default.asp
Quizzes
http://www.w3schools.com/html/html_quiz.asp
http://www.w3schools.com/xhtml/xhtml_quiz.asp
http://www.w3schools.com/css/css_quiz.asp
Validação
http://www.w3schools.com/site/site_validate.asp
http://www.w3schools.com/site/site_validate.asp
http://www.w3schools.com/site/site_validate.asp
Softwares
Tem mais algum site?
Mostre-nos aqui.
Até Mais.
-
Aqui está um dos ótimos limpadores, para dá uma pequena automatizada em seu windows:
http://baixaki.ig.com.br/download/CCleaner.htm
Até mais.
-
Tudo bem Beraldo, pode fechar o tópico.
-
Tá aí alguns que tenho no meu favoritos:
www.ebookcult.com.br/acervo/cat.php?cat=COM
www.guiadohardware.net/livros/
www.coladaweb.com/completos.htm
Acho que só né ?
Até mais.
-
Está aí um programa que eu fiz quando comecei a mecher com DB em VB.
Código comentado e programa
frmPrincipal
'Programa de Cadastro v1.1.0 'Desenvolvido por Raphael Taveira Dim db As Database 'Declarando o objeto db que manuseará o banco de dados Dim também As Recordset 'Declarando o objeto também que manuseará a tabela Dim sexo As String 'Declarando a var sexo para armazenar o sexo do professor Dim botao As Integer 'Declarando a variável botao que armazenará o código do 'botão selecionado pelo usuário 1 = Cadastrar / 2 = Alterar / 3 = Excluir Private Sub cmdAlterar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto do nome botao = 2 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar End If 'fim do if End Sub Private Sub cmdCadastrar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa do CIC estiver preenchida a programação a baixo será execurada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado na caixa de cic If também.NoMatch Then 'Se o cic digitado não for encontrado pnlcampos.Enabled = True 'Habilita o painel de campos pnlchave.Enabled = False 'Desabilita o painel do cic cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto botao = 1 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar Else 'Se o CIC digitado for encontrado na tabela MsgBox "Professor já cadastrado!", , "Aviso" 'Exibe a mensagem Professor já cadastrado ao usuário txtcic.Text = "" 'Limpa a caixa de cic txtcic.SetFocus 'Insere o foco na caixa do cic pnlchave.Enabled = True 'Habilita o painel do cic End If 'fim do if End Sub Private Sub cmdCancelar_Click() pnlchave.Enabled = True 'Habilita o painel do cic pnlcampos.Enabled = False 'Desabilita o painel dos campos cmdCadastrar.Enabled = True 'Habilita o botão Cadastrar cmdAlterar.Enabled = True 'Habilita o botão Alterar cmdExcluir.Enabled = True 'Habilita o botão excluir cmdConsultar.Enabled = True 'Habilita o botão Consultar txtcic.Text = "" 'Limpa a caixa de cic txtnome.Text = "" 'Limpa a caixa de nome optmf(0).Value = True sexo = "Masculino" 'Var sexo recebe Masculino cbosalario.Text = "" 'Limpa o combo de salario cmdConfirmar.Visible = False 'Deixa o botao COnfirmar invisivel cmdCancelar.Visible = False 'Deixa o botao Cancelar invisivel End Sub Private Sub cmdConfirmar_Click() Select Case botao Case 1 também.AddNew também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 2 também.Edit também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 3 também.Delete End Select 'fim do select cmdCancelar_Click 'Executa a programacao do botao Cancelar End Sub Private Sub cmdConsultar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdOk.Visible = True 'Deixa o botão Ok visivel End If End Sub Private Sub cmdExcluir_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteúdo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botao Confirmar visivel cmdCancelar.Visible = True 'Deixa o botao Cancelar visivel botao = 3 End If End Sub Private Sub cmdOK_Click() cmdCancelar_Click 'Executa a programação do botão cancelar cmdOk.Visible = False 'Deixa o botao Ok invisivel End Sub Private Sub creditos_Click() frmAbout.Show End Sub Private Sub Form_Load() Set db = OpenDatabase("C:univap.mdb") 'Abre o banco de dados, diga o destino do mesmo Set também = db.OpenRecordset("professores", dbOpenTable) 'Abre a tabela também.Index = "PrimaryKey" 'Seta a primary key como chave primária sexo = "Masculino" 'Sexo recebe Masculino End Sub Private Sub optmf_Click(Index As Integer, Value As Integer) Select Case Index 'Selecione conforme o índice do botão de opção selecionado Case 0 'Caso o botão seja o Masculino sexo = "Masculino" 'Armazene na variável sexo a palavra "Masculino" Case 1 'Caso o botão seja o Feminino sexo = "Feminino" 'Armazene na variável sexo a palavra "Feminino" End Select 'Fim do select End Sub Private Sub sair_Click() 'Pergunta ao usuário se ele realmente quer fechar o programa If MsgBox("Deseja realmente sair ?", vbYesNo, "Cadastro") = vbYes Then 'Se sim End 'Finaliza o programa Else 'Senão Exit Sub 'Sai da sub e não executa o resto da programação End If End SubfrmCreditosPrivate Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() Me.Caption = "About " & App.Title lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblTitle.Caption = App.Title End Sub
Obs: Coloque o banco de dados na unidade C: ou então mude o destino do mesmo no form_load do frmPrincipal. -
Olá,
Bom gente, eu estava visualizando meus arquivos pessoais, e derrepente achei uma vídeo-aula que fala sobre Winsock, eu já tenho um breve conhecimento sobre Winsock e vou disponibilizar esse vídeo para vocês, segue o link para download:
Obrigado pela atenção.
-
Olá,
Notei que quando eu postei, no meu primeiro tópico, não visualizei os members icons, gostaria de saber, estão desativados?Quando vão ser novamente ativados?
Obrigado pela atenção.
-
Olá galera, meu primeiro post aqui, vou logo ajudar a galera, segue uma listinha de links que postei em outro fórum, não sei se já tem aí, mais aqui está:
Aprendizado
http://msdn2.microsoft.com/pt-br/vbasic/default.aspx
http://www.imasters.com.br/secao/visual_basic
http://www.iped.com.br/cursos/imasters/programacao/vb-net/
Softwares
http://www.microsoft.com/brasil/msdn/expre...ic/default.aspx
http://www.msdnbrasil.com.br/produtos/vstudio/
Códigos
http://www.linhadecodigo.com.br/
Espero ter ajudado.
10 Dicas Sobre Impressão
em Tutoriais & Dicas - Visual Basic
Postado
As dicas abaixo referem-se ao objeto Printer. Você não precisa fazer nenhuma referência para usá-lo no seu projeto.
1- Imprimir um texto em uma posição específica
2- Imprimir um texto com alinhamento específicoPublic Sub ImprimeTextoAlinhado(texto As String, Alignment As String) Select Case Alignment Case "Centro" Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(texto)) \ 2 Case "Esquerda" Printer.CurrentX = 0 Case "Direita" Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(texto) End Select Printer.Print texto Printer.EndDoc End Sub Private Sub Command1_Click() 'Para escolher o alinhamento informe ("Centro", "Esquerda" ou "Direita") Call ImprimeTextoAlinhado("Macoratti", "Centro") End Sub3- Imprimir uma linha 4- Imprimir <_< :oo texto em um controle RichTextBox (não imprime figuras) 5- Imprimir um arquivo texto Para testar o código , no formulário inclua uma caixa de texto com a propriedade Multiline definida como True. Neste exemplo estou imprimindo o arquivo autoexec.bat: 6- Verificar se a impressora esta instalada 7- Definir a fonte da impressora 8 - Imprimir um formulário 9 - Imprimir uma imagem O codigo abaixo imprime a imagem em Picture1.(Voce pode usar o controle image). Para imprimir na posição atual substitua as coordendas 0,0 por Printer.CurrentX, Printer.CurrentY. Para aumentar a largura e/ou o comprimento da imagem impressa altere os valores de Picture1.Width, Picture1.Height. Ex: Picture1.Width * 2, Picture1.Height * 2 ( imprime a imagem com o dobro do tamanho) 10 - Imprimir um relatório feito no Microsoft Access Não esqueça de fazer a referência a biblioteca - Microsoft Access X.0 Object Library - no seu projeto. Você tem que abrir o banco de dados Access e pode escolher se deseja visualizar ou não a impressão.Private Sub Command1_Click() Dim ac As Access.Application Set ac = New Access.Application ac.OpenCurrentDatabase ("c:\teste\SeuBancoAccess.mdb") ' Para visualizar a impressão descomente a linha abaixo ' ac.Visible = True ' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora ac.DoCmd.OpenReport "Catalog", acViewNormal ' e exclua a linha a baixo para visualizar a impressão ac.CloseCurrentDatabase End Sub ible = True ' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora ac.DoCmd.OpenReport "Catalog", acViewNormal ' e exclua a linha a baixo para visualizar a impressão ac.CloseCurrentDatabase End SubCréditos: VBMania
Link: http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=1226